r10787 - in /branches/upstream/libaudio-mpd-perl/current: META.yml lib/Audio/MPD.pm lib/Audio/MPD/Collection.pm t/20-connection.t t/30-collection.t
joeyh at users.alioth.debian.org
joeyh at users.alioth.debian.org
Mon Dec 3 21:54:28 UTC 2007
Author: joeyh
Date: Mon Dec 3 21:54:28 2007
New Revision: 10787
URL: http://svn.debian.org/wsvn/?sc=1&rev=10787
Log:
[svn-upgrade] Integrating new upstream version, libaudio-mpd-perl (0.19.1)
Modified:
branches/upstream/libaudio-mpd-perl/current/META.yml
branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm
branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Collection.pm
branches/upstream/libaudio-mpd-perl/current/t/20-connection.t
branches/upstream/libaudio-mpd-perl/current/t/30-collection.t
Modified: branches/upstream/libaudio-mpd-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libaudio-mpd-perl/current/META.yml?rev=10787&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/META.yml (original)
+++ branches/upstream/libaudio-mpd-perl/current/META.yml Mon Dec 3 21:54:28 2007
@@ -1,6 +1,6 @@
---
name: Audio-MPD
-version: 0.19.0
+version: 0.19.1
author: []
abstract: class to talk to MPD (Music Player Daemon) servers
license: perl
@@ -29,7 +29,7 @@
provides:
Audio::MPD:
file: lib/Audio/MPD.pm
- version: 0.19.0
+ version: 0.19.1
Audio::MPD::Collection:
file: lib/Audio/MPD/Collection.pm
Audio::MPD::Playlist:
Modified: branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm?rev=10787&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm (original)
+++ branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD.pm Mon Dec 3 21:54:28 2007
@@ -28,7 +28,7 @@
collection playlist version ] );
-our $VERSION = '0.19.0';
+our $VERSION = '0.19.1';
Readonly our $REUSE => 0;
Readonly our $ONCE => 1;
@@ -183,9 +183,9 @@
# of course, since we want to preserve the playlist order, this means
# that we're going to unshift the objects instead of push.
foreach my $line (reverse @lines) {
- my ($k,$v) = split /:\s+/, $line, 2;
+ my ($k,$v) = split /:\s/, $line, 2;
$param{$k} = $v;
- next unless $k eq 'file' || $k eq 'directory'; # last param of item
+ next unless $k eq 'file' || $k eq 'directory' || $k eq 'playlist'; # last param of item
unshift @items, Audio::MPD::Common::Item->new(%param);
%param = ();
}
@@ -205,7 +205,7 @@
sub _cooked_command_as_kv {
my ($self, $command) = @_;
my %hash =
- map { split(/:\s+/, $_, 2) }
+ map { split(/:\s/, $_, 2) }
$self->_send_command($command);
return %hash;
}
Modified: branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Collection.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Collection.pm?rev=10787&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Collection.pm (original)
+++ branches/upstream/libaudio-mpd-perl/current/lib/Audio/MPD/Collection.pm Mon Dec 3 21:54:28 2007
@@ -167,6 +167,21 @@
}
+#
+# my @items = $collection->all_playlists;
+#
+# Return the list of playlists (strings) currently known by mpd.
+#
+sub all_playlists {
+ my ($self) = @_;
+
+ return
+ map { /^playlist: (.*)$/ ? ($1) : () }
+ $self->_mpd->_send_command( "lsinfo\n" );
+}
+
+
+
# -- Collection: picking songs
#
@@ -400,6 +415,11 @@
Return the list of all pathes (strings) currently known by mpd.
+=item $coll->all_playlists()
+
+Return the list of all playlists (strings) currently known by mpd.
+
+
=back
Modified: branches/upstream/libaudio-mpd-perl/current/t/20-connection.t
URL: http://svn.debian.org/wsvn/branches/upstream/libaudio-mpd-perl/current/t/20-connection.t?rev=10787&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/20-connection.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/20-connection.t Mon Dec 3 21:54:28 2007
@@ -18,7 +18,7 @@
eval 'use Audio::MPD::Test';
plan skip_all => $@ if $@ =~ s/\n+Compilation failed.*//s;
-plan tests => 17;
+plan tests => 18;
my $mpd = Audio::MPD->new;
isa_ok($mpd, 'Audio::MPD');
Modified: branches/upstream/libaudio-mpd-perl/current/t/30-collection.t
URL: http://svn.debian.org/wsvn/branches/upstream/libaudio-mpd-perl/current/t/30-collection.t?rev=10787&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-perl/current/t/30-collection.t (original)
+++ branches/upstream/libaudio-mpd-perl/current/t/30-collection.t Mon Dec 3 21:54:28 2007
@@ -18,7 +18,7 @@
eval 'use Audio::MPD::Test';
plan skip_all => $@ if $@ =~ s/\n+Compilation failed.*//s;
-plan tests => 73;
+plan tests => 76;
my $mpd = Audio::MPD->new;
my @list;
@@ -57,7 +57,7 @@
#
# testing items_in_dir.
@list = $coll->items_in_dir;
-is( scalar @list, 3, 'items_in_dir defaults to root' );
+is( scalar @list, 4, 'items_in_dir defaults to root' );
isa_ok( $_, 'Audio::MPD::Common::Item', 'items_in_dir return AMCI objects' ) for @list;
@list = $coll->items_in_dir( 'dir1' );
is( scalar @list, 2, 'items_in_dir can take a param' );
@@ -99,6 +99,13 @@
@list = $coll->all_pathes;
is( scalar @list, 4, 'all_pathes return the pathes' );
like( $list[0], qr/\.ogg$/, 'all_pathes return strings' );
+
+
+#
+# testing all_playlists
+ at list = $coll->all_playlists;
+is( scalar @list, 1, 'all_playlists return the playlists' );
+is( $list[0], 'test', 'all_playlists return strings' );
#
More information about the Pkg-perl-cvs-commits
mailing list