r29738 - in /trunk/libaudio-mpd-perl: ./ bin/ debian/ lib/Audio/ lib/Audio/MPD/ t/ t/mpd-test/

rmayorga-guest at users.alioth.debian.org rmayorga-guest at users.alioth.debian.org
Sat Jan 17 03:02:53 UTC 2009


Author: rmayorga-guest
Date: Sat Jan 17 03:02:23 2009
New Revision: 29738

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29738
Log:
* New upstream release
* debian/copyright 
  + update format
  + refresh upstream copyright years
  + Add individual stanzas for debian/* copyright
* debian/rules; enable test suite, MPD related tests are skipped
* debian/control; add libtest-pod-perl and libtest-pod-coverage-perl

Modified:
    trunk/libaudio-mpd-perl/AUTHORS
    trunk/libaudio-mpd-perl/Build.PL
    trunk/libaudio-mpd-perl/Changes
    trunk/libaudio-mpd-perl/META.yml
    trunk/libaudio-mpd-perl/Makefile.PL
    trunk/libaudio-mpd-perl/README
    trunk/libaudio-mpd-perl/bin/mpd-dynamic
    trunk/libaudio-mpd-perl/debian/changelog
    trunk/libaudio-mpd-perl/debian/control
    trunk/libaudio-mpd-perl/debian/copyright
    trunk/libaudio-mpd-perl/debian/rules
    trunk/libaudio-mpd-perl/lib/Audio/MPD.pm
    trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm
    trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm
    trunk/libaudio-mpd-perl/lib/Audio/MPD/Test.pm
    trunk/libaudio-mpd-perl/t/00-use.t
    trunk/libaudio-mpd-perl/t/01-pod.t
    trunk/libaudio-mpd-perl/t/02-pod-coverage.t
    trunk/libaudio-mpd-perl/t/20-connection.t
    trunk/libaudio-mpd-perl/t/21-new.t
    trunk/libaudio-mpd-perl/t/22-general.t
    trunk/libaudio-mpd-perl/t/23-output.t
    trunk/libaudio-mpd-perl/t/24-info.t
    trunk/libaudio-mpd-perl/t/25-settings.t
    trunk/libaudio-mpd-perl/t/26-playback.t
    trunk/libaudio-mpd-perl/t/30-collection.t
    trunk/libaudio-mpd-perl/t/40-playlist.t
    trunk/libaudio-mpd-perl/t/mpd-test/mpd.conf.template

Modified: trunk/libaudio-mpd-perl/AUTHORS
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/AUTHORS?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/AUTHORS (original)
+++ trunk/libaudio-mpd-perl/AUTHORS Sat Jan 17 03:02:23 2009
@@ -1,6 +1,8 @@
-Tue Abrahamsen <tue.abrahamsen at gmail.com>
-Nicholas J Humfrey <njh at aelius.com>
 Jerome Quelin <jquelin at cpan.org
+
+Original authors:
+  Tue Abrahamsen <tue.abrahamsen at gmail.com> (code)
+  Nicholas J Humfrey <njh at aelius.com> (doc)
 
 With thanks to:
   msells

Modified: trunk/libaudio-mpd-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/Build.PL?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/Build.PL (original)
+++ trunk/libaudio-mpd-perl/Build.PL Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/Changes?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/Changes (original)
+++ trunk/libaudio-mpd-perl/Changes Sat Jan 17 03:02:23 2009
@@ -18,6 +18,10 @@
 
 Low-level changelog
 ===================
+
+0.19.5 Mon Jan  5 15:31:29 CET 2009
+ - updated to match mpd 0.14 behaviour
+ - doc update
 
 0.19.4 Sat Aug 16 10:38:12 CEST 2008
  - doc update

Modified: trunk/libaudio-mpd-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/META.yml?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/META.yml (original)
+++ trunk/libaudio-mpd-perl/META.yml Sat Jan 17 03:02:23 2009
@@ -1,6 +1,6 @@
 ---
 name: Audio-MPD
-version: 0.19.4
+version: 0.19.5
 author:
   - 'Jerome Quelin, C<< <jquelin at cpan.org> >>'
   - |-
@@ -41,14 +41,14 @@
 provides:
   Audio::MPD:
     file: lib/Audio/MPD.pm
-    version: 0.19.4
+    version: 0.19.5
   Audio::MPD::Collection:
     file: lib/Audio/MPD/Collection.pm
   Audio::MPD::Playlist:
     file: lib/Audio/MPD/Playlist.pm
   Audio::MPD::Test:
     file: lib/Audio/MPD/Test.pm
-generated_by: Module::Build version 0.2808
+generated_by: Module::Build version 0.31
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html
   version: 1.2

Modified: trunk/libaudio-mpd-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/Makefile.PL?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/Makefile.PL (original)
+++ trunk/libaudio-mpd-perl/Makefile.PL Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/README?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/README (original)
+++ trunk/libaudio-mpd-perl/README Sat Jan 17 03:02:23 2009
@@ -72,7 +72,7 @@
 
 Copyright (c) 2005 Tue Abrahamsen, all rights reserved.
 Copyright (c) 2006 Nicholas, all rights reserved.
-Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/bin/mpd-dynamic
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/bin/mpd-dynamic?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/bin/mpd-dynamic (original)
+++ trunk/libaudio-mpd-perl/bin/mpd-dynamic Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.
@@ -241,7 +241,7 @@
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/changelog?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/changelog (original)
+++ trunk/libaudio-mpd-perl/debian/changelog Sat Jan 17 03:02:23 2009
@@ -1,9 +1,19 @@
-libaudio-mpd-perl (0.19.4-2) UNRELEASED; urgency=low
-
+libaudio-mpd-perl (0.19.5-1) unstable; urgency=low
+  
+  [ gregor herrmann ]
   * debian/control: Changed: Switched Vcs-Browser field to ViewSVN
     (source stanza).
 
- -- gregor herrmann <gregoa at debian.org>  Sun, 16 Nov 2008 20:39:41 +0100
+  [ Rene Mayorga ]
+  * New upstream release
+  * debian/copyright 
+    + update format
+    + refresh upstream copyright years
+    + Add individual stanzas for debian/* copyright
+  * debian/rules; enable test suite, MPD related tests are skipped
+  * debian/control; add libtest-pod-perl and libtest-pod-coverage-perl
+  
+ -- Rene Mayorga <rmayorga at debian.org.sv>  Fri, 16 Jan 2009 20:11:25 -0600
 
 libaudio-mpd-perl (0.19.4-1) unstable; urgency=low
 

Modified: trunk/libaudio-mpd-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/control?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/control (original)
+++ trunk/libaudio-mpd-perl/debian/control Sat Jan 17 03:02:23 2009
@@ -2,7 +2,7 @@
 Section: perl
 Priority: optional
 Build-Depends: debhelper (>= 7), perl, libaudio-mpd-common-perl, libclass-accessor-perl,
- libreadonly-perl
+ libreadonly-perl, libtest-pod-perl, libtest-pod-coverage-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Damyan Ivanov <dmn at debian.org>,
  Rene Mayorga <rmayorga at debian.org.sv>, gregor herrmann <gregoa at debian.org>

Modified: trunk/libaudio-mpd-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/copyright?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/copyright (original)
+++ trunk/libaudio-mpd-perl/debian/copyright Sat Jan 17 03:02:23 2009
@@ -1,37 +1,36 @@
-This package was put together by Joey Hess using sources downloaded from CPAN,
-and is Maintained by the Debian Perl Group (pkg-perl)
-
-It was downloaded from: http://search.cpan.org/dist/Audio-MPD/
-
-Upstram Author: Tue Abrahamsen
-                Nicolas J. Humfrey
-                Jerome Quelin
+Format-Specification:
+   http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
+Upstream-Maintainer: Jerome Quelin, Nicolas J. Humfrey, Tue Abrahamsen
+Upstream-Source: http://search.cpan.org/dist/Audio-MPD/
+Upstream-Name: Audio::MPD
 
 Files: *
 Copyright: © 2005 Tue Abrahamsen
            © 2006 Nicholas J. Humfrey
-           © 2007-2008 Jerome Quelin
+           © 2007-2009 Jerome Quelin
+License-Alias: Perl
 License: GPL-1+ | Artistic
  This program is free software; you can redistribute it and/or modify
  it under the same terms as Perl itself.
 
 Files: debian/*
-Copyright: © 2007-2008 Debian Perl Group
-             <pkg-perl-maintainers at lists.alioth.debian.org>
+Copyright: © 2007-2008 Joey Hess <joeyh at debian.org>
+           © 2008 Damyan Ivanov <dmn at debian.org>
+	   © 2008 gregor herrmann <gregoa at debian.org>
 License: GPL-1+ | Artistic
 This program is free software; you can redistribute it and/or modify it under
 the same terms as Perl itself.
 
-The Perl license is:
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of either:
+License: Artistic
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the Artistic License, which comes with Perl.
+   On Debian GNU/Linux systems, the complete text of the Artistic License
+   can be found in /usr/share/common-licenses/Artistic
 
-    a) the GNU General Public License as published by the Free Software
-       Foundation; either version 1, or (at your option) any later
-       version, or
-
-    b) the "Artistic License" which comes with Perl.
-
-The full text of the GPL is distributed in /usr/share/common-licenses/GPL
-on Debian systems, and the Artistic license in
-/usr/share/common-licenses/Artistic
+License: GPL-1+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 1, or (at your option)
+   any later version.
+   On Debian GNU/Linux systems, the complete text of the GNU General
+   Public License can be found in `/usr/share/common-licenses/GPL'

Modified: trunk/libaudio-mpd-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/rules?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/rules (original)
+++ trunk/libaudio-mpd-perl/debian/rules Sat Jan 17 03:02:23 2009
@@ -2,9 +2,7 @@
 
 build: build-stamp
 build-stamp:
-	dh build --before test
-	# the test suite is not run by default since it runs mpd
-	dh build --after test
+	dh build
 	touch $@
 
 clean:

Modified: trunk/libaudio-mpd-perl/lib/Audio/MPD.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/lib/Audio/MPD.pm?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD.pm Sat Jan 17 03:02:23 2009
@@ -1,6 +1,6 @@
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.
@@ -28,7 +28,7 @@
         collection playlist version ] );
 
 
-our $VERSION = '0.19.4';
+our $VERSION = '0.19.5';
 
 Readonly our $REUSE => 0;
 Readonly our $ONCE  => 1;
@@ -581,29 +581,36 @@
 
     use Audio::MPD;
 
-    my $mpd = Audio::MPD->new();
-    $mpd->play();
+    my $mpd = Audio::MPD->new;
+    $mpd->play;
     sleep 10;
-    $mpd->next();
+    $mpd->next;
 
 
 =head1 DESCRIPTION
 
-Audio::MPD gives a clear object-oriented interface for talking to and
+C<Audio::MPD> gives a clear object-oriented interface for talking to and
 controlling MPD (Music Player Daemon) servers. A connection to the MPD
-server is established as soon as a new Audio::MPD object is created.
+server is established as soon as a new C<Audio::MPD> object is created.
+
+Since mpd is still in 0.x versions, C<Audio::MPD> sticks to latest mpd
+(0.14 as time of writing) protocol & behaviour, and does B<not> try to
+maintain backward compatibility.
 
 Note that the module will by default connect to mpd before sending any
-command, and will disconnect after the command has been issued. This scheme
-is far from optimal, but allows us not to care about timeout disconnections.
-
-B</!\> Note that Audio::MPD is using high-level, blocking sockets. This
-means that if the mpd server is slow, or hangs for whatever reason, or
-even crash abruptly, the program will be hung forever in this sub. The
-POE::Component::Client::MPD module is way safer - you're advised to use
-it instead of Audio::MPD. Or you can try to set C<conntype> to C<$REUSE>
-(see Audio::MPD constructor for more details), but you would be then on
-your own to deal with disconnections.
+command, and will disconnect after the command has been issued. This
+scheme is far from optimal, but allows us not to care about timeout
+disconnections. Because of that, the C<idle> command (new in mpd 0.14)
+is B<not> (and will not) be supported in C<Audio::MPD>. This will be
+implemented in C<POE::Component::Client::MPD>.
+
+B</!\> Note that C<Audio::MPD> is using high-level, blocking sockets.
+This means that if the mpd server is slow, or hangs for whatever reason,
+or even crash abruptly, the program will be hung forever in this sub.
+The C<POE::Component::Client::MPD> module is way safer - you're advised
+to use it instead of C<Audio::MPD>. Or you can try to set C<conntype> to
+C<$REUSE> (see C<Audio::MPD> constructor for more details), but you
+would be then on your own to deal with disconnections.
 
 
 =head1 METHODS
@@ -614,23 +621,23 @@
 
 =item new( [%opts] )
 
-This is the constructor for Audio::MPD. One can specify the following
+This is the constructor for C<Audio::MPD>. One can specify the following
 options:
 
 =over 4
 
 =item hostname => C<$hostname>
 
-defaults to environment var MPD_HOST, then to 'localhost'. Note that
-MPD_HOST can be of the form password at host.
+defaults to environment var C<MPD_HOST>, then to 'localhost'. Note that
+C<MPD_HOST> can be of the form password at host.
 
 =item port => C<$port>
 
-defaults to environment var MPD_PORT, then to 6600.
+defaults to environment var C<MPD_PORT>, then to 6600.
 
 =item password => $password
 
-defaults to environment var MPD_PASSWORD, then to ''.
+defaults to environment var C<MPD_PASSWORD>, then to ''.
 
 =item conntype => $type
 
@@ -669,15 +676,15 @@
 
 =item $mpd->password( [$password] )
 
-Change password used to communicate with MPD server to $password.
-Empty string is assumed if $password is not supplied.
+Change password used to communicate with MPD server to C<$password>.
+Empty string is assumed if C<$password> is not supplied.
 
 
 =item $mpd->updatedb( [$path] )
 
-Force mpd to recan its collection. If $path (relative to MPD's music directory)
-is supplied, MPD will only scan it - otherwise, MPD will rescan its whole
-collection.
+Force mpd to recan its collection. If C<$path> (relative to MPD's music
+directory) is supplied, MPD will only scan it - otherwise, MPD will
+rescan its whole collection.
 
 
 =item $mpd->urlhandlers()
@@ -694,19 +701,21 @@
 
 =item $mpd->volume( [+][-]$volume )
 
-Sets the audio output volume percentage to absolute $volume.
-If $volume is prefixed by '+' or '-' then the volume is changed relatively
-by that value.
+Sets the audio output volume percentage to absolute C<$volume>.  If
+C<$volume> is prefixed by '+' or '-' then the volume is changed
+relatively by that value.
 
 
 =item $mpd->output_enable( $output )
 
-Enable the specified audio output. $output is the ID of the audio output.
+Enable the specified audio output. C<$output> is the ID of the audio
+output.
 
 
 =item $mpd->output_disable( $output )
 
-Disable the specified audio output. $output is the ID of the audio output.
+Disable the specified audio output. C<$output> is the ID of the audio
+output.
 
 =back
 
@@ -754,20 +763,21 @@
 
 =item $mpd->repeat( [$repeat] )
 
-Set the repeat mode to $repeat (1 or 0). If $repeat is not specified then
-the repeat mode is toggled.
+Set the repeat mode to C<$repeat> (1 or 0). If C<$repeat> is not
+specified then the repeat mode is toggled.
 
 
 =item $mpd->random( [$random] )
 
-Set the random mode to $random (1 or 0). If $random is not specified then
-the random mode is toggled.
+Set the random mode to C<$random> (1 or 0). If C<$random> is not
+specified then the random mode is toggled.
 
 
 =item $mpd->fade( [$seconds] )
 
-Enable crossfading and set the duration of crossfade between songs.
-If $seconds is not specified or $seconds is 0, then crossfading is disabled.
+Enable crossfading and set the duration of crossfade between songs.  If
+C<$seconds> is not specified or $seconds is 0, then crossfading is
+disabled.
 
 =back
 
@@ -778,20 +788,20 @@
 
 =item $mpd->play( [$song] )
 
-Begin playing playlist at song number $song. If no argument supplied,
+Begin playing playlist at song number C<$song>. If no argument supplied,
 resume playing.
 
 
 =item $mpd->playid( [$songid] )
 
-Begin playing playlist at song ID $songid. If no argument supplied,
+Begin playing playlist at song ID C<$songid>. If no argument supplied,
 resume playing.
 
 
 =item $mpd->pause( [$state] )
 
 Pause playback. If C<$state> is 0 then the current track is unpaused,
-if $state is 1 then the current track is paused.
+if C<$state> is 1 then the current track is paused.
 
 Note that if C<$state> is not given, pause state will be toggled.
 
@@ -813,14 +823,16 @@
 
 =item $mpd->seek( $time, [$song])
 
-Seek to $time seconds in song number $song. If $song number is not specified
-then the perl module will try and seek to $time in the current song.
+Seek to C<$time> seconds in song number C<$song>. If C<$song> number is
+not specified then the perl module will try and seek to C<$time> in the
+current song.
 
 
 =item $mpd->seekid( $time, $songid )
 
-Seek to $time seconds in song ID $songid. If $song number is not specified
-then the perl module will try and seek to $time in the current song.
+Seek to C<$time> seconds in song ID C<$songid>. If C<$song> number is
+not specified then the perl module will try and seek to C<$time> in the
+current song.
 
 =back
 
@@ -830,7 +842,7 @@
 To search the collection, use the C<collection()> accessor, returning the
 associated C<Audio::MPD::Collection> object. You will then be able to call:
 
-    $mpd->collection->random_song();
+    $mpd->collection->random_song;
 
 See C<Audio::MPD::Collection> documentation for more details on available
 methods.
@@ -861,12 +873,13 @@
 =head1 SEE ALSO
 
 You can find more information on the mpd project on its homepage at
-L<http://www.musicpd.org>, or its wiki L<http://mpd.wikia.com>.
-
-Audio::MPD development takes place on <audio-mpd at googlegroups.com>: feel free
-to join us. (use L<http://groups.google.com/group/audio-mpd> to sign in). Our
-git repository is located at L<git://repo.or.cz/audio-mpd.git>, and can
-be browsed at L<http://repo.or.cz/w/audio-mpd.git>.
+L<http://www.musicpd.org>.wikia.com>.
+
+C<Audio::MPD> development takes place on <audio-mpd at googlegroups.com>:
+feel free to join us. (use L<http://groups.google.com/group/audio-mpd>
+to sign in). Our git repository is located at
+L<git://repo.or.cz/audio-mpd.git>, and can be browsed at
+L<http://repo.or.cz/w/audio-mpd.git>.
 
 
 You can also look for information on this module at:
@@ -901,7 +914,7 @@
 
 Copyright (c) 2005 Tue Abrahamsen, all rights reserved.
 Copyright (c) 2006 Nicolas J. Humfrey, all rights reserved.
-Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm Sat Jan 17 03:02:23 2009
@@ -1,6 +1,6 @@
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.
@@ -199,7 +199,7 @@
 
 
 #
-# my $song = $collection->songs_with_filename_partial( $path );
+# my $song = $collection->songs_with_filename_partial( $string );
 #
 # Return the AMC::Item::Songs containing $string in their path.
 #
@@ -367,9 +367,9 @@
 If C<$path> is supplied (relative to mpd root), restrict the retrieval to
 songs and dirs in this directory.
 
-B</!\ Warning>: the C<Audio::MPD::Common::Item::Song> objects will only have
-their tag file filled. Any other tag will be empty, so don't use this sub for
-any other thing than a quick scan!
+B</!\ Warning>: the C<Audio::MPD::Common::Item::Song> objects will only
+have their tag C<file> filled. Any other tag will be empty, so don't use
+this sub for any other thing than a quick scan!
 
 
 =item $coll->items_in_dir( [$path] )
@@ -432,9 +432,10 @@
 Return the C<Audio::MPD::Common::Item::Song> which correspond to C<$path>.
 
 
-=item $coll->songs_with_filename_partial( $path )
-
-Return the C<Audio::MPD::Common::Item::Song>s containing $string in their path.
+=item $coll->songs_with_filename_partial( $string )
+
+Return the C<Audio::MPD::Common::Item::Song>s containing C<$string> in
+their path.
 
 
 =back
@@ -457,8 +458,8 @@
 
 =item $coll->songs_by_artist_partial( $string )
 
-Return all C<Audio::MPD::Common::Item::Song>s performed by an artist with
-C<$string> in her name.
+Return all C<Audio::MPD::Common::Item::Song>s performed by an artist
+with C<$string> in her name.
 
 
 =item $coll->songs_from_album( $album )
@@ -468,17 +469,20 @@
 
 =item $coll->songs_from_album_partial( $string )
 
-Return all C<Audio::MPD::Common::Item::Song>s appearing in album containing C<$string>.
+Return all C<Audio::MPD::Common::Item::Song>s appearing in album
+containing C<$string>.
 
 
 =item $coll->songs_with_title( $title )
 
-Return all C<Audio::MPD::Common::Item::Song>s which title is exactly C<$title>.
+Return all C<Audio::MPD::Common::Item::Song>s which title is exactly
+C<$title>.
 
 
 =item $coll->songs_with_title_partial( $string )
 
-Return all C<Audio::MPD::Common::Item::Song>s where C<$string> is part of the title.
+Return all C<Audio::MPD::Common::Item::Song>s where C<$string> is part
+of the title.
 
 
 =back
@@ -497,7 +501,7 @@
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm Sat Jan 17 03:02:23 2009
@@ -1,6 +1,6 @@
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.
@@ -307,7 +307,7 @@
 =item $pl->items_changed_since( $plversion )
 
 Return a list with all the songs (as AMC::Item::Song objects) added to
-the playlist since playlist $plversion.
+the playlist since playlist C<$plversion>.
 
 
 =back
@@ -325,8 +325,8 @@
 
 =item $pl->delete( $song [, $song [...] ] )
 
-Remove song number C<$song>s (starting from 0) from the current playlist. No
-return value.
+Remove the specified C<$song> numbers (starting from 0) from the current
+playlist. No return value.
 
 
 =item $pl->deleteid( $songid [, $songid [...] ] )
@@ -342,7 +342,7 @@
 
 =item $pl->crop()
 
-Remove all of the songs from the current playlist *except* the
+Remove all of the songs from the current playlist B<except> the
 song currently playing.
 
 
@@ -420,7 +420,7 @@
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/lib/Audio/MPD/Test.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/lib/Audio/MPD/Test.pm?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Test.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Test.pm Sat Jan 17 03:02:23 2009
@@ -1,6 +1,6 @@
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.
@@ -210,7 +210,7 @@
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/t/00-use.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/00-use.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/00-use.t (original)
+++ trunk/libaudio-mpd-perl/t/00-use.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/t/01-pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/01-pod.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/01-pod.t (original)
+++ trunk/libaudio-mpd-perl/t/01-pod.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/t/02-pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/02-pod-coverage.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/02-pod-coverage.t (original)
+++ trunk/libaudio-mpd-perl/t/02-pod-coverage.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/t/20-connection.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/20-connection.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/20-connection.t (original)
+++ trunk/libaudio-mpd-perl/t/20-connection.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/t/21-new.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/21-new.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/21-new.t (original)
+++ trunk/libaudio-mpd-perl/t/21-new.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/t/22-general.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/22-general.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/22-general.t (original)
+++ trunk/libaudio-mpd-perl/t/22-general.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.
@@ -18,7 +18,7 @@
 eval 'use Audio::MPD::Test';
 plan skip_all => $@ if $@ =~ s/\n+Compilation failed.*//s;
 
-plan tests => 8;
+plan tests => 7;
 my $mpd = Audio::MPD->new;
 
 
@@ -61,7 +61,6 @@
 #
 # testing urlhandlers.
 my @handlers = $mpd->urlhandlers;
-is( scalar @handlers,     1, 'only one url handler supported' );
-is( $handlers[0], 'http://', 'only http is supported by now' );
+is( scalar @handlers, 0, 'only one url handler supported' );
 
 exit;

Modified: trunk/libaudio-mpd-perl/t/23-output.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/23-output.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/23-output.t (original)
+++ trunk/libaudio-mpd-perl/t/23-output.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/t/24-info.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/24-info.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/24-info.t (original)
+++ trunk/libaudio-mpd-perl/t/24-info.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/t/25-settings.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/25-settings.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/25-settings.t (original)
+++ trunk/libaudio-mpd-perl/t/25-settings.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/t/26-playback.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/26-playback.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/26-playback.t (original)
+++ trunk/libaudio-mpd-perl/t/26-playback.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/t/30-collection.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/30-collection.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/30-collection.t (original)
+++ trunk/libaudio-mpd-perl/t/30-collection.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.
@@ -75,22 +75,25 @@
 
 #
 # testing all_albums.
+# note: mpd 0.14 also returns empty albums
 @list = $coll->all_albums;
-is( scalar @list, 1, 'all_albums return the albums' );
-is( $list[0], 'our album', 'all_albums return strings' );
+is( scalar @list, 2, 'all_albums return the albums' );
+is( $list[1], 'our album', 'all_albums return strings' );
 
 
 #
 # testing all_artists.
+# note: mpd 0.14 also returns empty artists
 @list = $coll->all_artists;
-is( scalar @list, 1, 'all_artists return the artists' );
+is( scalar @list, 2, 'all_artists return the artists' );
 is( $list[0], 'dir1-artist', 'all_artists return strings' );
 
 
 #
 # testing all_titles.
+# note: mpd 0.14 also returns empty titles
 @list = $coll->all_titles;
-is( scalar @list, 3, 'all_titles return the titles' );
+is( scalar @list, 4, 'all_titles return the titles' );
 like( $list[0], qr/-title$/, 'all_titles return strings' );
 
 
@@ -127,9 +130,10 @@
 
 #
 # testing albums_by_artist.
+# note: mpd 0.14 also returns empty albums
 @list = $coll->albums_by_artist( 'dir1-artist' );
-is( scalar @list, 1, 'albums_by_artist return the album' );
-is( $list[0], 'our album', 'albums_by_artist return plain strings' );
+is( scalar @list, 2, 'albums_by_artist return the album' );
+is( $list[1], 'our album', 'albums_by_artist return plain strings' );
 
 
 #

Modified: trunk/libaudio-mpd-perl/t/40-playlist.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/40-playlist.t?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/40-playlist.t (original)
+++ trunk/libaudio-mpd-perl/t/40-playlist.t Sat Jan 17 03:02:23 2009
@@ -1,7 +1,7 @@
 #!perl
 #
 # This file is part of Audio::MPD
-# Copyright (c) 2007-2008 Jerome Quelin, all rights reserved.
+# Copyright (c) 2007-2009 Jerome Quelin, all rights reserved.
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.

Modified: trunk/libaudio-mpd-perl/t/mpd-test/mpd.conf.template
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/mpd-test/mpd.conf.template?rev=29738&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/mpd-test/mpd.conf.template (original)
+++ trunk/libaudio-mpd-perl/t/mpd-test/mpd.conf.template Sat Jan 17 03:02:23 2009
@@ -11,3 +11,8 @@
 password             "foobar at read"
 default_permissions  "read,add,control,admin"
 connection_timeout   "10"
+audio_output {
+    name "null"
+    type "null"
+}
+




More information about the Pkg-perl-cvs-commits mailing list