From f3286fcdcb8b72114af37942582795b08dbc0a74 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu 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