r69897 - in /trunk/libaudio-mpd-perl: ./ bin/ debian/ lib/Audio/ lib/Audio/MPD/ t/
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Sun Feb 27 16:23:33 UTC 2011
Author: ghedo-guest
Date: Sun Feb 27 16:23:14 2011
New Revision: 69897
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69897
Log:
new uèstream release
Added:
trunk/libaudio-mpd-perl/META.json
- copied unchanged from r69895, branches/upstream/libaudio-mpd-perl/current/META.json
trunk/libaudio-mpd-perl/t/000-report-versions-tiny.t
- copied unchanged from r69895, branches/upstream/libaudio-mpd-perl/current/t/000-report-versions-tiny.t
Removed:
trunk/libaudio-mpd-perl/t/author-critic.t
trunk/libaudio-mpd-perl/t/release-distmeta.t
trunk/libaudio-mpd-perl/t/release-unused-vars.t
Modified:
trunk/libaudio-mpd-perl/Build.PL
trunk/libaudio-mpd-perl/Changes
trunk/libaudio-mpd-perl/MANIFEST
trunk/libaudio-mpd-perl/META.yml
trunk/libaudio-mpd-perl/README
trunk/libaudio-mpd-perl/bin/mpd-dynamic
trunk/libaudio-mpd-perl/bin/mpd-rate
trunk/libaudio-mpd-perl/debian/changelog
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/Types.pm
trunk/libaudio-mpd-perl/t/00-compile.t
trunk/libaudio-mpd-perl/t/23-output.t
Modified: trunk/libaudio-mpd-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/Build.PL?rev=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/Build.PL (original)
+++ trunk/libaudio-mpd-perl/Build.PL Sun Feb 27 16:23:14 2011
@@ -7,12 +7,11 @@
my %module_build_args = (
'build_requires' => {
- 'English' => '0',
'File::Find' => '0',
'File::Temp' => '0',
'Module::Build' => '0.3601',
'Test::Corpus::Audio::MPD' => '1.092920',
- 'Test::More' => '0'
+ 'Test::More' => '0.88'
},
'configure_requires' => {
'Module::Build' => '0.3601'
@@ -22,13 +21,14 @@
'Jerome Quelin'
],
'dist_name' => 'Audio-MPD',
- 'dist_version' => '1.102260',
+ 'dist_version' => '1.110560',
'license' => 'perl',
'module_name' => 'Audio::MPD',
'recommends' => {},
'recursive_test_files' => 1,
'requires' => {
'Audio::MPD::Common::Item' => '0',
+ 'Audio::MPD::Common::Output' => '0',
'Audio::MPD::Common::Stats' => '0',
'Audio::MPD::Common::Status' => '0',
'DB_File' => '0',
Modified: trunk/libaudio-mpd-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/Changes?rev=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/Changes (original)
+++ trunk/libaudio-mpd-perl/Changes Sun Feb 27 16:23:14 2011
@@ -1,4 +1,7 @@
Changelog for Audio-MPD
+
+1.110560 2011-02-25 15:28:59 Europe/Paris
+ - new command available: outputs
1.102260 2010-08-14 19:21:51 Europe/Paris
- new script mpd-rate to rate a song / display current rating
Modified: trunk/libaudio-mpd-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/MANIFEST?rev=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/MANIFEST (original)
+++ trunk/libaudio-mpd-perl/MANIFEST Sun Feb 27 16:23:14 2011
@@ -3,6 +3,7 @@
Changes
LICENSE
MANIFEST
+META.json
META.yml
README
TODO
@@ -16,6 +17,7 @@
lib/Audio/MPD/Playlist.pm
lib/Audio/MPD/Types.pm
t/00-compile.t
+t/000-report-versions-tiny.t
t/20-connection.t
t/21-new.t
t/22-general.t
@@ -25,13 +27,10 @@
t/26-playback.t
t/30-collection.t
t/40-playlist.t
-t/author-critic.t
-t/release-distmeta.t
t/release-has-version.t
t/release-kwalitee.t
t/release-minimum-version.t
t/release-pod-coverage.t
t/release-pod-syntax.t
t/release-portability.t
-t/release-unused-vars.t
weaver.ini
Modified: trunk/libaudio-mpd-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/META.yml?rev=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/META.yml (original)
+++ trunk/libaudio-mpd-perl/META.yml Sun Feb 27 16:23:14 2011
@@ -3,16 +3,15 @@
author:
- 'Jerome Quelin'
build_requires:
- English: 0
File::Find: 0
File::Temp: 0
Module::Build: 0.3601
Test::Corpus::Audio::MPD: 1.092920
- Test::More: 0
+ Test::More: 0.88
configure_requires:
Module::Build: 0.3601
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.101900, CPAN::Meta::Converter version 2.101670'
+generated_by: 'Dist::Zilla version 4.200004, CPAN::Meta::Converter version 2.102400'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -21,18 +20,19 @@
provides:
Audio::MPD:
file: lib/Audio/MPD.pm
- version: 1.102260
+ version: 1.110560
Audio::MPD::Collection:
file: lib/Audio/MPD/Collection.pm
- version: 1.102260
+ version: 1.110560
Audio::MPD::Playlist:
file: lib/Audio/MPD/Playlist.pm
- version: 1.102260
+ version: 1.110560
Audio::MPD::Types:
file: lib/Audio/MPD/Types.pm
- version: 1.102260
+ version: 1.110560
requires:
Audio::MPD::Common::Item: 0
+ Audio::MPD::Common::Output: 0
Audio::MPD::Common::Stats: 0
Audio::MPD::Common::Status: 0
DB_File: 0
@@ -51,13 +51,13 @@
bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Audio-MPD
homepage: http://search.cpan.org/dist/Audio-MPD/
repository: http://github.com/jquelin/audio-mpd
-version: 1.102260
+version: 1.110560
x_Dist_Zilla:
plugins:
-
class: Dist::Zilla::Plugin::MetaResources
name: MetaResources
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::Prereqs
config:
@@ -65,23 +65,19 @@
phase: test
type: requires
name: TestRequires
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::AutoVersion
name: '@Filter/AutoVersion'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::GatherDir
name: '@Filter/GatherDir'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::CompileTests
name: '@Filter/CompileTests'
- version: 1.101800
- -
- class: Dist::Zilla::Plugin::CriticTests
- name: '@Filter/CriticTests'
- version: 1.100140
+ version: 1.103030
-
class: Dist::Zilla::Plugin::HasVersionTests
name: '@Filter/HasVersionTests'
@@ -90,10 +86,6 @@
class: Dist::Zilla::Plugin::KwaliteeTests
name: '@Filter/KwaliteeTests'
version: 1.101420
- -
- class: Dist::Zilla::Plugin::MetaTests
- name: '@Filter/MetaTests'
- version: 4.101900
-
class: Dist::Zilla::Plugin::MinimumVersionTests
name: '@Filter/MinimumVersionTests'
@@ -101,47 +93,51 @@
-
class: Dist::Zilla::Plugin::PodCoverageTests
name: '@Filter/PodCoverageTests'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::PodSyntaxTests
name: '@Filter/PodSyntaxTests'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::PortabilityTests
name: '@Filter/PortabilityTests'
version: 1.101420
-
- class: Dist::Zilla::Plugin::UnusedVarsTests
- name: '@Filter/UnusedVarsTests'
- version: 1.100860
+ class: Dist::Zilla::Plugin::ReportVersions::Tiny
+ name: '@Filter/ReportVersions::Tiny'
+ version: 1.02
-
class: Dist::Zilla::Plugin::PruneCruft
name: '@Filter/PruneCruft'
- version: 4.101900
+ version: 4.200004
+ -
+ class: Dist::Zilla::Plugin::PruneFiles
+ name: '@Filter/PruneFiles'
+ version: 4.200004
-
class: Dist::Zilla::Plugin::ManifestSkip
name: '@Filter/ManifestSkip'
- version: 4.101900
- -
- class: Dist::Zilla::Plugin::AutoPrereq
- name: '@Filter/AutoPrereq'
- version: 4.101900
+ version: 4.200004
+ -
+ class: Dist::Zilla::Plugin::AutoPrereqs
+ name: '@Filter/AutoPrereqs'
+ version: 4.200004
-
class: Dist::Zilla::Plugin::ExtraTests
name: '@Filter/ExtraTests'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::NextRelease
name: '@Filter/NextRelease'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::PkgVersion
name: '@Filter/PkgVersion'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::PodWeaver
name: '@Filter/PodWeaver'
- version: 3.101640
+ version: 3.101641
-
class: Dist::Zilla::Plugin::Prepender
name: '@Filter/Prepender'
@@ -149,15 +145,15 @@
-
class: Dist::Zilla::Plugin::ExecDir
name: '@Filter/ExecDir'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::ShareDir
name: '@Filter/ShareDir'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::Bugtracker
name: '@Filter/Bugtracker'
- version: 1.101490
+ version: 1.102670
-
class: Dist::Zilla::Plugin::Homepage
name: '@Filter/Homepage'
@@ -165,7 +161,7 @@
-
class: Dist::Zilla::Plugin::Repository
name: '@Filter/Repository'
- version: 0.13
+ version: 0.15
-
class: Dist::Zilla::Plugin::MetaProvides::Package
name: '@Filter/MetaProvides::Package'
@@ -173,27 +169,31 @@
-
class: Dist::Zilla::Plugin::MetaConfig
name: '@Filter/MetaConfig'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::License
name: '@Filter/License'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::MetaYAML
name: '@Filter/MetaYAML'
- version: 4.101900
+ version: 4.200004
+ -
+ class: Dist::Zilla::Plugin::MetaJSON
+ name: '@Filter/MetaJSON'
+ version: 4.200004
-
class: Dist::Zilla::Plugin::ModuleBuild
name: '@Filter/ModuleBuild'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::Readme
name: '@Filter/Readme'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::Manifest
name: '@Filter/Manifest'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::CheckChangeLog
name: '@Filter/CheckChangeLog'
@@ -201,41 +201,41 @@
-
class: Dist::Zilla::Plugin::UploadToCPAN
name: '@Filter/UploadToCPAN'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::Git::Check
name: '@Filter/Git/Check'
- version: 1.102090
+ version: 1.110500
-
class: Dist::Zilla::Plugin::Git::Commit
name: '@Filter/Git/Commit'
- version: 1.102090
+ version: 1.110500
-
class: Dist::Zilla::Plugin::Git::Tag
name: '@Filter/Git/Tag'
- version: 1.102090
+ version: 1.110500
-
class: Dist::Zilla::Plugin::Git::Push
name: '@Filter/Git/Push'
- version: 1.102090
+ version: 1.110500
-
class: Dist::Zilla::Plugin::FinderCode
name: ':InstallModules'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::FinderCode
name: ':TestFiles'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ExecFiles'
- version: 4.101900
+ version: 4.200004
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ShareFiles'
- version: 4.101900
+ version: 4.200004
zilla:
class: Dist::Zilla::Dist::Builder
config:
is_trial: 0
- version: 4.101900
+ version: 4.200004
Modified: trunk/libaudio-mpd-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/README?rev=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/README (original)
+++ trunk/libaudio-mpd-perl/README Sun Feb 27 16:23:14 2011
@@ -1,7 +1,7 @@
This archive contains the distribution Audio-MPD,
-version 1.102260:
+version 1.110560:
class to talk to MPD (Music Player Daemon) servers
Modified: trunk/libaudio-mpd-perl/bin/mpd-dynamic
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/bin/mpd-dynamic?rev=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/bin/mpd-dynamic (original)
+++ trunk/libaudio-mpd-perl/bin/mpd-dynamic Sun Feb 27 16:23:14 2011
@@ -13,7 +13,7 @@
package main;
BEGIN {
- $main::VERSION = '1.102260';
+ $main::VERSION = '1.110560';
}
# ABSTRACT: a dynamic playlist for mpd
@@ -108,7 +108,7 @@
=head1 VERSION
-version 1.102260
+version 1.110560
=head1 DESCRIPTION
Modified: trunk/libaudio-mpd-perl/bin/mpd-rate
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/bin/mpd-rate?rev=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/bin/mpd-rate (original)
+++ trunk/libaudio-mpd-perl/bin/mpd-rate Sun Feb 27 16:23:14 2011
@@ -14,7 +14,7 @@
package main;
BEGIN {
- $main::VERSION = '1.102260';
+ $main::VERSION = '1.110560';
}
#ABSTRACT: rate your songs for mpd-dynamic
@@ -48,7 +48,7 @@
=head1 VERSION
-version 1.102260
+version 1.110560
=head1 DESCRIPTION
Modified: trunk/libaudio-mpd-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/debian/changelog?rev=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/debian/changelog (original)
+++ trunk/libaudio-mpd-perl/debian/changelog Sun Feb 27 16:23:14 2011
@@ -1,3 +1,9 @@
+libaudio-mpd-perl (1.110560-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Alessandro Ghedini <al3xbio at gmail.com> Sun, 27 Feb 2011 17:21:01 +0100
+
libaudio-mpd-perl (1.102260-1) unstable; urgency=low
* New upstream release.
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=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD.pm Sun Feb 27 16:23:14 2011
@@ -12,21 +12,23 @@
package Audio::MPD;
BEGIN {
- $Audio::MPD::VERSION = '1.102260';
+ $Audio::MPD::VERSION = '1.110560';
}
# ABSTRACT: class to talk to MPD (Music Player Daemon) servers
-use Audio::MPD::Collection;
use Audio::MPD::Common::Item;
use Audio::MPD::Common::Stats;
use Audio::MPD::Common::Status;
-use Audio::MPD::Playlist;
-use Audio::MPD::Types;
+use Audio::MPD::Common::Output;
use Encode;
use IO::Socket;
use Moose;
use MooseX::Has::Sugar;
use MooseX::SemiAffordanceAccessor;
+
+use Audio::MPD::Collection;
+use Audio::MPD::Playlist;
+use Audio::MPD::Types;
@@ -281,6 +283,27 @@
+sub outputs {
+ my ($self) = @_;
+
+ my @lines = $self->_send_command("outputs\n");
+ my (@outputs, %param);
+
+ # parse lines in reverse order since "id" lines come first
+ foreach my $line (reverse @lines) {
+ my ($k,$v) = split /:\s/, $line, 2;
+ $k =~ s/^output//;
+ $param{$k} = $v;
+ next unless $k eq 'id'; # last output param
+ unshift @outputs, Audio::MPD::Common::Output->new(%param);
+ %param = ();
+ }
+
+ return @outputs;
+}
+
+
+
sub output_enable {
my ($self, $output) = @_;
$self->_send_command("enableoutput $output\n");
@@ -452,7 +475,7 @@
=head1 VERSION
-version 1.102260
+version 1.110560
=head1 SYNOPSIS
@@ -537,101 +560,144 @@
=head1 METHODS
-=head2 my $mpd = Audio::MPD->new( \%opts );
+=head2 new
+
+ my $mpd = Audio::MPD->new( \%opts );
This is the constructor for L<Audio::MPD>. One can specify any of the
attributes (cf above).
=head1 CONTROLLING THE SERVER
-=head2 $mpd->ping;
+=head2 ping
+
+ $mpd->ping;
Sends a ping command to the mpd server.
-=head2 my $version = $mpd->version;
+=head2 version
+
+ my $version = $mpd->version;
Return mpd's version number as advertised during connection. Note that
mpd returns B<protocol> version when connected. This protocol version
can differ from the real mpd version. eg, mpd version 0.13.2 is
"speaking" and thus advertising version 0.13.0.
-=head2 $mpd->kill;
+=head2 kill
+
+ $mpd->kill;
Send a message to the MPD server telling it to shut down.
-=head2 $mpd->set_password( [$password] );
+=head2 set_password
+
+ $mpd->set_password( [$password] );
Change password used to communicate with MPD server to C<$password>.
Empty string is assumed if C<$password> is not supplied.
-=head2 $mpd->updatedb( [$path] );
+=head2 updatedb
+
+ $mpd->updatedb( [$path] );
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.
-=head2 my @handlers = $mpd->urlhandlers;
+=head2 urlhandlers
+
+ my @handlers = $mpd->urlhandlers;
Return an array of supported URL schemes.
=head1 HANDLING VOLUME & OUTPUT
-=head2 $mpd->volume( [+][-]$volume );
+=head2 volume
+
+ $mpd->volume( [+][-]$volume );
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.
-=head2 $mpd->output_enable( $output );
+=head2 outputs
+
+ my @outputs = $mpd->outputs( );
+
+Return a list of C<Audio::MPD::Common::Outputs> with all outputs
+available within MPD.
+
+=head2 output_enable
+
+ $mpd->output_enable( $output );
Enable the specified audio output. C<$output> is the ID of the audio
output.
-=head2 $mpd->output_disable( $output );
+=head2 output_disable
+
+ $mpd->output_disable( $output );
Disable the specified audio output. C<$output> is the ID of the audio
output.
=head1 RETRIEVING INFO FROM CURRENT STATE
-=head2 my $stats = $mpd->stats;
+=head2 stats
+
+ my $stats = $mpd->stats;
Return an L<Audio::MPD::Common::Stats> object with the current statistics
of MPD. See the associated pod for more information.
-=head2 my $status = $mpd->status;
+=head2 status
+
+ my $status = $mpd->status;
Return an L<Audio::MPD::Common::Status> object with various information on
current MPD server settings. See the associated pod for more information.
-=head2 my $song = $mpd->current;
+=head2 current
+
+ my $song = $mpd->current;
Return an L<Audio::MPD::Common::Item::Song> representing the song currently
playing.
-=head2 my $song = $mpd->song( [$song] );
+=head2 song
+
+ my $song = $mpd->song( [$song] );
Return an L<Audio::MPD::Common::Item::Song> representing the song number
C<$song>. If C<$song> is not supplied, returns the current song.
-=head2 my $song = $mpd->songid( [$songid] );
+=head2 songid
+
+ my $song = $mpd->songid( [$songid] );
Return an L<Audio::MPD::Common::Item::Song> representing the song with id
C<$songid>. If C<$songid> is not supplied, returns the current song.
=head1 ALTERING MPD SETTINGS
-=head2 $mpd->repeat( [$repeat] );
+=head2 repeat
+
+ $mpd->repeat( [$repeat] );
Set the repeat mode to C<$repeat> (1 or 0). If C<$repeat> is not
specified then the repeat mode is toggled.
-=head2 $mpd->random( [$random] );
+=head2 random
+
+ $mpd->random( [$random] );
Set the random mode to C<$random> (1 or 0). If C<$random> is not
specified then the random mode is toggled.
-=head2 $mpd->fade( [$seconds] );
+=head2 fade
+
+ $mpd->fade( [$seconds] );
Enable crossfading and set the duration of crossfade between songs. If
C<$seconds> is not specified or $seconds is 0, then crossfading is
@@ -639,42 +705,58 @@
=head1 CONTROLLING PLAYBACK
-=head2 $mpd->play( [$song] );
+=head2 play
+
+ $mpd->play( [$song] );
Begin playing playlist at song number C<$song>. If no argument supplied,
resume playing.
-=head2 $mpd->playid( [$songid] );
+=head2 playid
+
+ $mpd->playid( [$songid] );
Begin playing playlist at song ID C<$songid>. If no argument supplied,
resume playing.
-=head2 $mpd->pause( [$state] );
+=head2 pause
+
+ $mpd->pause( [$state] );
Pause playback. If C<$state> is 0 then the current track is unpaused,
if C<$state> is 1 then the current track is paused.
Note that if C<$state> is not given, pause state will be toggled.
-=head2 $mpd->stop;
+=head2 stop
+
+ $mpd->stop;
Stop playback.
-=head2 $mpd->next;
+=head2 next
+
+ $mpd->next;
Play next song in playlist.
-=head2 $mpd->prev;
+=head2 prev
+
+ $mpd->prev;
Play previous song in playlist.
-=head2 $mpd->seek( $time, [$song]);
+=head2 seek
+
+ $mpd->seek( $time, [$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.
-=head2 $mpd->seekid( $time, $songid );
+=head2 seekid
+
+ $mpd->seekid( $time, $songid );
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
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=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Collection.pm Sun Feb 27 16:23:14 2011
@@ -12,7 +12,7 @@
package Audio::MPD::Collection;
BEGIN {
- $Audio::MPD::Collection::VERSION = '1.102260';
+ $Audio::MPD::Collection::VERSION = '1.110560';
}
# ABSTRACT: class to query MPD's collection
@@ -219,7 +219,7 @@
=head1 VERSION
-version 1.102260
+version 1.110560
=head1 SYNOPSIS
@@ -239,7 +239,9 @@
=head1 RETRIEVING SONGS & DIRECTORIES
-=head2 my @items = $coll->all_items( [$path] );
+=head2 all_items
+
+ my @items = $coll->all_items( [$path] );
Return B<all> L<Audio::MPD::Common::Item>s (both songs & directories)
currently known by mpd.
@@ -247,7 +249,9 @@
If C<$path> is supplied (relative to mpd root), restrict the retrieval to
songs and dirs in this directory.
-=head2 my @items = $coll->all_items_simple( [$path] );
+=head2 all_items_simple
+
+ my @items = $coll->all_items_simple( [$path] );
Return B<all> L<Audio::MPD::Common::Item>s (both songs & directories)
currently known by mpd.
@@ -259,7 +263,9 @@
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!
-=head2 my @items = $coll->items_in_dir( [$path] );
+=head2 items_in_dir
+
+ my @items = $coll->items_in_dir( [$path] );
Return the items in the given C<$path>. If no C<$path> supplied, do it on
mpd's root directory.
@@ -268,75 +274,105 @@
=head1 RETRIEVING THE WHOLE COLLECTION
-=head2 my @songs = $coll->all_songs( [$path] );
+=head2 all_songs
+
+ my @songs = $coll->all_songs( [$path] );
Return B<all> L<Audio::MPD::Common::Item::Song>s currently known by mpd.
If C<$path> is supplied (relative to mpd root), restrict the retrieval to
songs and dirs in this directory.
-=head2 my @albums = $coll->all_albums;
+=head2 all_albums
+
+ my @albums = $coll->all_albums;
Return the list of all albums (strings) currently known by mpd.
-=head2 my @artists = $coll->all_artists;
+=head2 all_artists
+
+ my @artists = $coll->all_artists;
Return the list of all artists (strings) currently known by mpd.
-=head2 my @titles = $coll->all_titles;
+=head2 all_titles
+
+ my @titles = $coll->all_titles;
Return the list of all song titles (strings) currently known by mpd.
-=head2 my @pathes = $coll->all_pathes;
+=head2 all_pathes
+
+ my @pathes = $coll->all_pathes;
Return the list of all pathes (strings) currently known by mpd.
-=head2 my @lists = $coll->all_playlists;
+=head2 all_playlists
+
+ my @lists = $coll->all_playlists;
Return the list of all playlists (strings) currently known by mpd.
=head1 PICKING A SONG
-=head2 my $song = $coll->song( $path );
+=head2 song
+
+ my $song = $coll->song( $path );
Return the L<Audio::MPD::Common::Item::Song> which correspond to C<$path>.
-=head2 my @songs = $coll->songs_with_filename_partial( $string );
+=head2 songs_with_filename_partial
+
+ my @songs = $coll->songs_with_filename_partial( $string );
Return the L<Audio::MPD::Common::Item::Song>s containing C<$string> in
their path.
=head1 SONGS, ALBUMS & ARTISTS RELATIONS
-=head2 my @albums = $coll->albums_by_artist( $artist );
+=head2 albums_by_artist
+
+ my @albums = $coll->albums_by_artist( $artist );
Return all albums (strings) performed by C<$artist> or where C<$artist>
participated.
-=head2 my @songs = $coll->songs_by_artist( $artist );
+=head2 songs_by_artist
+
+ my @songs = $coll->songs_by_artist( $artist );
Return all L<Audio::MPD::Common::Item::Song>s performed by C<$artist>.
-=head2 my @songs = $coll->songs_by_artist_partial( $string );
+=head2 songs_by_artist_partial
+
+ my @songs = $coll->songs_by_artist_partial( $string );
Return all L<Audio::MPD::Common::Item::Song>s performed by an artist
with C<$string> in her name.
-=head2 my @songs = $coll->songs_from_album( $album );
+=head2 songs_from_album
+
+ my @songs = $coll->songs_from_album( $album );
Return all L<Audio::MPD::Common::Item::Song>s appearing in C<$album>.
-=head2 my @songs = $coll->songs_from_album_partial( $string );
+=head2 songs_from_album_partial
+
+ my @songs = $coll->songs_from_album_partial( $string );
Return all L<Audio::MPD::Common::Item::Song>s appearing in album
containing C<$string>.
-=head2 my @songs = $coll->songs_with_title( $title );
+=head2 songs_with_title
+
+ my @songs = $coll->songs_with_title( $title );
Return all L<Audio::MPD::Common::Item::Song>s which title is exactly
C<$title>.
-=head2 my @songs = $coll->songs_with_title_partial( $string );
+=head2 songs_with_title_partial
+
+ my @songs = $coll->songs_with_title_partial( $string );
Return all L<Audio::MPD::Common::Item::Song>s where C<$string> is part
of the title.
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=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Playlist.pm Sun Feb 27 16:23:14 2011
@@ -12,7 +12,7 @@
package Audio::MPD::Playlist;
BEGIN {
- $Audio::MPD::Playlist::VERSION = '1.102260';
+ $Audio::MPD::Playlist::VERSION = '1.110560';
}
# ABSTRACT: class to mess MPD's playlist
@@ -194,7 +194,7 @@
=head1 VERSION
-version 1.102260
+version 1.110560
=head1 SYNOPSIS
@@ -213,78 +213,108 @@
=head1 RETRIEVING INFORMATION
-=head2 my @items = $pl->as_items;
+=head2 as_items
+
+ my @items = $pl->as_items;
Return an array of L<Audio::MPD::Common::Item::Song>s, one for each of the
songs in the current playlist.
-=head2 my @items = $pl->items_changed_since( $plversion );
+=head2 items_changed_since
+
+ my @items = $pl->items_changed_since( $plversion );
Return a list with all the songs (as L<Audio::MPD::Common::Item::Song> objects)
added to the playlist since playlist C<$plversion>.
=head1 ADDING / REMOVING SONGS
-=head2 $pl->add( $path [, $path [...] ] );
+=head2 add
+
+ $pl->add( $path [, $path [...] ] );
Add the songs identified by C<$path> (relative to MPD's music directory) to the
current playlist. No return value.
-=head2 $pl->delete( $song [, $song [...] ] );
+=head2 delete
+
+ $pl->delete( $song [, $song [...] ] );
Remove the specified C<$song> numbers (starting from 0) from the current
playlist. No return value.
-=head2 $pl->deleteid( $songid [, $songid [...] ] );
+=head2 deleteid
+
+ $pl->deleteid( $songid [, $songid [...] ] );
Remove the specified C<$songid>s (as assigned by mpd when inserted in playlist)
from the current playlist. No return value.
-=head2 $pl->clear;
+=head2 clear
+
+ $pl->clear;
Remove all the songs from the current playlist. No return value.
-=head2 $pl->crop;
+=head2 crop
+
+ $pl->crop;
Remove all of the songs from the current playlist B<except> the
song currently playing.
=head1 CHANGING PLAYLIST ORDER
-=head2 $pl->shuffle;
+=head2 shuffle
+
+ $pl->shuffle;
Shuffle the current playlist. No return value.
-=head2 $pl->swap( $song1, $song2 );
+=head2 swap
+
+ $pl->swap( $song1, $song2 );
Swap positions of song number C<$song1> and C<$song2> in the current
playlist. No return value.
-=head2 $pl->swapid( $songid1, $songid2 );
+=head2 swapid
+
+ $pl->swapid( $songid1, $songid2 );
Swap the postions of song ID C<$songid1> with song ID C<$songid2> in the
current playlist. No return value.
-=head2 $pl->move( $song, $newpos );
+=head2 move
+
+ $pl->move( $song, $newpos );
Move song number C<$song> to the position C<$newpos>. No return value.
-=head2 $pl->moveid( $songid, $newpos );
+=head2 moveid
+
+ $pl->moveid( $songid, $newpos );
Move song ID C<$songid> to the position C<$newpos>. No return value.
=head1 MANAGING PLAYLISTS
-=head2 $pl->load( $playlist );
+=head2 load
+
+ $pl->load( $playlist );
Load list of songs from specified C<$playlist> file. No return value.
-=head2 $pl->save( $playlist );
+=head2 save
+
+ $pl->save( $playlist );
Save the current playlist to a file called C<$playlist> in MPD's playlist
directory. No return value.
-=head2 $pl->rm( $playlist );
+=head2 rm
+
+ $pl->rm( $playlist );
Delete playlist named C<$playlist> from MPD's playlist directory. No
return value.
Modified: trunk/libaudio-mpd-perl/lib/Audio/MPD/Types.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/lib/Audio/MPD/Types.pm?rev=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/lib/Audio/MPD/Types.pm (original)
+++ trunk/libaudio-mpd-perl/lib/Audio/MPD/Types.pm Sun Feb 27 16:23:14 2011
@@ -12,7 +12,7 @@
package Audio::MPD::Types;
BEGIN {
- $Audio::MPD::Types::VERSION = '1.102260';
+ $Audio::MPD::Types::VERSION = '1.110560';
}
# ABSTRACT: types used in the distribution
@@ -31,7 +31,7 @@
=head1 VERSION
-version 1.102260
+version 1.110560
=head1 DESCRIPTION
Modified: trunk/libaudio-mpd-perl/t/00-compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-perl/t/00-compile.t?rev=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/00-compile.t (original)
+++ trunk/libaudio-mpd-perl/t/00-compile.t Sun Feb 27 16:23:14 2011
@@ -12,6 +12,9 @@
use warnings;
use Test::More;
+
+
+
use File::Find;
use File::Temp qw{ tempdir };
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=69897&op=diff
==============================================================================
--- trunk/libaudio-mpd-perl/t/23-output.t (original)
+++ trunk/libaudio-mpd-perl/t/23-output.t Sun Feb 27 16:23:14 2011
@@ -18,7 +18,7 @@
eval 'use Test::Corpus::Audio::MPD';
plan skip_all => $@ if $@ =~ s/\n+Compilation failed.*//s;
-plan tests => 5;
+plan tests => 9;
my $mpd = Audio::MPD->new;
@@ -39,6 +39,15 @@
$mpd->volume('-4');
is( $mpd->status->volume, 47, 'decreasing volume' );
$mpd->volume($oldvol); # resoring volume.
+
+#
+# testing outputs.
+my @outputs = $mpd->outputs;
+is( scalar(@outputs), 1, 'list of outputs' );
+my $o = shift @outputs;
+isa_ok( $o, 'Audio::MPD::Common::Output', "outputs return AMC:Output objects" );
+is( $o->id, 0, "AMC:O object: id" );
+is( $o->name, "null", "AMC:O object: name" );
#
# testing disable_output.
More information about the Pkg-perl-cvs-commits
mailing list