From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 6 Feb 2016 18:03:40 +0000 (+0000)
Subject: Remove everything libpurple-related
X-Git-Tag: 0.001002~5
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=f3286fcdcb8b72114af37942582795b08dbc0a74;p=app-xmms2-notifier.git

Remove everything libpurple-related
---

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;