From f3286fcdcb8b72114af37942582795b08dbc0a74 Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 6 Feb 2016 18:03:40 +0000
Subject: [PATCH] Remove everything libpurple-related

---
 lib/App/XMMS2/Notifier.pm |  7 +------
 t/test.t                  | 10 +++-------
 xmms2-notifier            |  2 +-
 3 files changed, 5 insertions(+), 14 deletions(-)

diff --git a/lib/App/XMMS2/Notifier.pm b/lib/App/XMMS2/Notifier.pm
index b0a2f44..d04b638 100644
--- a/lib/App/XMMS2/Notifier.pm
+++ b/lib/App/XMMS2/Notifier.pm
@@ -13,13 +13,9 @@ use constant CONVERSION_SPECIFIERS => qw/bitrate date sample_format url id chann
 
 ##################################################
 
-my $use_libnotify = 1;
-my $use_libpurple;
 my $format = '$artist - $title';
 
 GetOptions (
-	"libnotify!" => \$use_libnotify,
-	"libpurple!" => \$use_libpurple,
 	"format=s" => \$format,
 );
 
@@ -43,8 +39,7 @@ sub notify{
 	my $str=$format;
 	$str =~ s/\$$_/$metadata{$_}/g for keys %metadata;
 
-	notify_libnotify $str if $use_libnotify;
-	# notify_libpurple $str if $use_libpurple;
+	notify_libnotify $str
 }
 
 sub on_playback_current_id {
diff --git a/t/test.t b/t/test.t
index 5f945bc..4d39474 100644
--- a/t/test.t
+++ b/t/test.t
@@ -1,14 +1,10 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 use v5.14;
+use warnings;
 
-use Test::More tests => 3;
+use Test::More tests => 2;
 BEGIN { use_ok('App::XMMS2::Notifier') };
 
 #########################
 
 can_ok('App::XMMS2::Notifier', qw/run notify_libnotify/);
-
-TODO: {
-	local $TODO = 'libpurple notify not written yet';
-	can_ok('App::XMMS2::Notifier', 'notify_libpurple');
-}
diff --git a/xmms2-notifier b/xmms2-notifier
index 437b681..262d6b5 100755
--- a/xmms2-notifier
+++ b/xmms2-notifier
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 use v5.14;
 use warnings;
 
-- 
2.39.2