r22391 - in /trunk/libaudio-moosic-perl: Changes MANIFEST MANIFEST.SKIP META.yml Makefile.PL debian/changelog debian/control debian/rules inc/ lib/Audio/Moosic.pm t/Audio-Moosic.t t/pod.t t/pod_coverage.t t/use.t
ghostbar-guest at users.alioth.debian.org
ghostbar-guest at users.alioth.debian.org
Sun Jun 29 04:43:58 UTC 2008
Author: ghostbar-guest
Date: Sun Jun 29 04:43:57 2008
New Revision: 22391
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=22391
Log:
* New upstream release
* Bumped to 3.8.0 Standards-Version without further changes needed
* Removed distclean call from debian/rules since there's no distclean target.
* Added me as co-maintainer
Added:
trunk/libaudio-moosic-perl/MANIFEST.SKIP
- copied unchanged from r22390, branches/upstream/libaudio-moosic-perl/current/MANIFEST.SKIP
trunk/libaudio-moosic-perl/inc/
- copied from r22390, branches/upstream/libaudio-moosic-perl/current/inc/
trunk/libaudio-moosic-perl/t/pod.t
- copied unchanged from r22390, branches/upstream/libaudio-moosic-perl/current/t/pod.t
trunk/libaudio-moosic-perl/t/pod_coverage.t
- copied unchanged from r22390, branches/upstream/libaudio-moosic-perl/current/t/pod_coverage.t
trunk/libaudio-moosic-perl/t/use.t
- copied unchanged from r22390, branches/upstream/libaudio-moosic-perl/current/t/use.t
Removed:
trunk/libaudio-moosic-perl/t/Audio-Moosic.t
Modified:
trunk/libaudio-moosic-perl/Changes
trunk/libaudio-moosic-perl/MANIFEST
trunk/libaudio-moosic-perl/META.yml
trunk/libaudio-moosic-perl/Makefile.PL
trunk/libaudio-moosic-perl/debian/changelog
trunk/libaudio-moosic-perl/debian/control
trunk/libaudio-moosic-perl/debian/rules
trunk/libaudio-moosic-perl/lib/Audio/Moosic.pm
Modified: trunk/libaudio-moosic-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-moosic-perl/Changes?rev=22391&op=diff
==============================================================================
--- trunk/libaudio-moosic-perl/Changes (original)
+++ trunk/libaudio-moosic-perl/Changes Sun Jun 29 04:43:57 2008
@@ -1,35 +1,38 @@
Revision history for Perl extension Audio::Moosic.
+0.10 Fri Jan 18 13:50:16 2008
+ - Minor update. No functional changes.
+
0.09 Mon Mar 21 20:45:33 2005
- - Makefile.PL: Added RPC::XML to PREREQ_PM.
+ - Makefile.PL: Added RPC::XML to PREREQ_PM.
0.08 Wed Dez 15 15:10:03 2004
- - Documentation fix.
- - Fixed fatal bugs in move() and move_list().
- - Removed 'use 5.008004;' from Makefile.PL.
+ - Documentation fix.
+ - Fixed fatal bugs in move() and move_list().
+ - Removed 'use 5.008004;' from Makefile.PL.
0.07 Tue Sep 14 21:23:08 2004
- - Added can_play().
+ - Added can_play().
0.06 Mon Sep 13 12:48:22 2004
- - Fixed bug with set_loop_mode().
- - Added play().
+ - Fixed bug with set_loop_mode().
+ - Added play().
0.05 Fri Aug 20 12:41:03 2004
- - Don't croak anymore if the connect failed. Simply set $@ and return an
- undefined value.
+ - Don't croak anymore if the connect failed. Simply set $@ and return an
+ undefined value.
0.04 Thu Aug 19 13:26:12 2004
- - Added swap method introduced by moosic 1.5.1 (api version 1.8).
+ - Added swap method introduced by moosic 1.5.1 (api version 1.8).
0.03 Thu Jul 15 09:35:34 2004
- - LWP::Protocol::http::SocketUnix is the new name included in the module
- list.
+ - LWP::Protocol::http::SocketUnix is the new name included in the module
+ list.
0.02 Thu Jul 15 04:18:20 2004
- - LWP::Protocol::http::UNIX is now known as LWP::Protocol::http::UnixSocket
+ - LWP::Protocol::http::UNIX is now known as LWP::Protocol::http::UnixSocket
0.01 Sun Jun 6 19:21:53 2004
- - original version; created by h2xs 1.23 with options
- -AXO -n Audio::Moosic
+ - original version; created by h2xs 1.23 with options
+ -AXO -n Audio::Moosic
Modified: trunk/libaudio-moosic-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-moosic-perl/MANIFEST?rev=22391&op=diff
==============================================================================
--- trunk/libaudio-moosic-perl/MANIFEST (original)
+++ trunk/libaudio-moosic-perl/MANIFEST Sun Jun 29 04:43:57 2008
@@ -1,7 +1,18 @@
Changes
+inc/Module/Install.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
+lib/Audio/Moosic.pm
Makefile.PL
-MANIFEST
+MANIFEST This list of files
+MANIFEST.SKIP
+META.yml
README
-t/Audio-Moosic.t
-lib/Audio/Moosic.pm
-META.yml Module meta-data (added by MakeMaker)
+t/pod.t
+t/pod_coverage.t
+t/use.t
Modified: trunk/libaudio-moosic-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-moosic-perl/META.yml?rev=22391&op=diff
==============================================================================
--- trunk/libaudio-moosic-perl/META.yml (original)
+++ trunk/libaudio-moosic-perl/META.yml Sun Jun 29 04:43:57 2008
@@ -1,11 +1,18 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Audio-Moosic
-version: 0.09
-version_from: lib/Audio/Moosic.pm
-installdirs: site
-requires:
- RPC::XML: 0
-
+---
+abstract: Moosic client library for Perl
+author:
+ - Florian Ragwitz <rafl at debian.org>
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: Module::Install version 0.68
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
+name: Audio-Moosic
+no_index:
+ directory:
+ - inc
+ - t
+requires:
+ RPC::XML: 0
+version: 0.10
Modified: trunk/libaudio-moosic-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-moosic-perl/Makefile.PL?rev=22391&op=diff
==============================================================================
--- trunk/libaudio-moosic-perl/Makefile.PL (original)
+++ trunk/libaudio-moosic-perl/Makefile.PL Sun Jun 29 04:43:57 2008
@@ -1,14 +1,10 @@
-use 5.008004;
-use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
- NAME => 'Audio::Moosic',
- VERSION_FROM => 'lib/Audio/Moosic.pm', # finds $VERSION
- PREREQ_PM => {
- 'RPC::XML' => 0
- }, # e.g., Module::Name => 1.1
- ($] >= 5.005 ? ## Add these new keywords supported since 5.005
- (ABSTRACT_FROM => 'lib/Audio/Moosic.pm', # retrieve abstract from module
- AUTHOR => 'Florian Ragwitz <flora at cpan.org>') : ()),
-);
+use strict;
+use warnings;
+use inc::Module::Install;
+
+name 'Audio-Moosic';
+all_from 'lib/Audio/Moosic.pm';
+
+requires 'RPC::XML';
+
+WriteAll;
Modified: trunk/libaudio-moosic-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-moosic-perl/debian/changelog?rev=22391&op=diff
==============================================================================
--- trunk/libaudio-moosic-perl/debian/changelog (original)
+++ trunk/libaudio-moosic-perl/debian/changelog Sun Jun 29 04:43:57 2008
@@ -1,5 +1,6 @@
-libaudio-moosic-perl (0.09-2) UNRELEASED; urgency=low
+libaudio-moosic-perl (0.10-1) unstable; urgency=low
+ [ gregor herrmann ]
* Take over for the Debian Perl Group with maintainer's permission
(http://lists.debian.org/debian-perl/2008/06/msg00039.html)
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
@@ -10,7 +11,15 @@
to Uploaders.
* Add debian/watch.
- -- gregor herrmann <gregoa at debian.org> Sun, 15 Jun 2008 15:19:46 +0200
+ [ Jose Luis Rivas ]
+ * New upstream release.
+ * debian/control:
+ + Changed to latest Standards-Version, not changed needed.
+ + Added me as co-maintainer.
+ * debian/rules: Removed distclean call from clean since there's no such
+ distclean target.
+
+ -- Jose Luis Rivas <ghostbar38 at gmail.com> Sun, 29 Jun 2008 00:12:28 -0430
libaudio-moosic-perl (0.09-1.1) unstable; urgency=low
Modified: trunk/libaudio-moosic-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-moosic-perl/debian/control?rev=22391&op=diff
==============================================================================
--- trunk/libaudio-moosic-perl/debian/control (original)
+++ trunk/libaudio-moosic-perl/debian/control Sun Jun 29 04:43:57 2008
@@ -2,10 +2,10 @@
Section: perl
Priority: optional
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Florian Ragwitz <florian at mookooh.org>
+Uploaders: Florian Ragwitz <florian at mookooh.org>, Jose Luis Rivas <ghostbar38 at gmail.com>
Build-Depends: debhelper (>= 4.0.0)
Build-Depends-Indep: perl, librpc-xml-perl
-Standards-Version: 3.6.1
+Standards-Version: 3.8.0.1
Homepage: http://search.cpan.org/dist/Audio-Moosic/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libaudio-moosic-perl/
Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-moosic-perl/
Modified: trunk/libaudio-moosic-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-moosic-perl/debian/rules?rev=22391&op=diff
==============================================================================
--- trunk/libaudio-moosic-perl/debian/rules (original)
+++ trunk/libaudio-moosic-perl/debian/rules Sun Jun 29 04:43:57 2008
@@ -25,7 +25,6 @@
clean:
dh_testdir
dh_testroot
- -$(MAKE) distclean
dh_clean build-stamp install-stamp
install: install-stamp
Modified: trunk/libaudio-moosic-perl/lib/Audio/Moosic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-moosic-perl/lib/Audio/Moosic.pm?rev=22391&op=diff
==============================================================================
--- trunk/libaudio-moosic-perl/lib/Audio/Moosic.pm (original)
+++ trunk/libaudio-moosic-perl/lib/Audio/Moosic.pm Sun Jun 29 04:43:57 2008
@@ -6,7 +6,7 @@
use RPC::XML;
use RPC::XML::Client;
-$VERSION = 0.09;
+$VERSION = '0.10';
=head1 NAME
@@ -53,18 +53,18 @@
=cut
sub new {
- my ($class, @args) = @_;
- $class = ref($class) || $class;
-
- my $self = { __errors => [ ] };
- bless $self, $class;
-
- unless( $self->connect(@args) ) {
- $@ = "Can't connect to moosic server: $!";
- return;
- }
-
- return $self;
+ my ($class, @args) = @_;
+ $class = ref($class) || $class;
+
+ my $self = { __errors => [ ] };
+ bless $self, $class;
+
+ unless( $self->connect(@args) ) {
+ $@ = "Can't connect to moosic server: $!";
+ return;
+ }
+
+ return $self;
}
=head2 connect
@@ -77,9 +77,9 @@
=cut
sub connect {
- require Carp;
- Carp::croak('This method should never be called. Please create an instance'.
- ' of Audio::Moosic::Inet or Audio::Moosic::Unix.');
+ require Carp;
+ Carp::croak('This method should never be called. Please create an instance'.
+ ' of Audio::Moosic::Inet or Audio::Moosic::Unix.');
}
=head2 disconnect
@@ -92,9 +92,9 @@
=cut
sub disconnect {
- my $self = shift;
- $self->{__connected} = 0;
- delete $self->{__rpc_xml_client}
+ my $self = shift;
+ $self->{__connected} = 0;
+ delete $self->{__rpc_xml_client};
}
=head2 reconnect
@@ -106,9 +106,9 @@
=cut
sub reconnect {
- my $self = shift;
- $self->disconnect if $self->connected;
- return $self->connect;
+ my $self = shift;
+ $self->disconnect if $self->connected;
+ return $self->connect;
}
=head2 connected
@@ -120,8 +120,8 @@
=cut
sub connected {
- my $self = shift;
- return $self->{__connected};
+ my $self = shift;
+ return $self->{__connected};
}
=head2 client_config
@@ -138,12 +138,12 @@
=cut
sub client_config {
- my ($self, $key) = @_;
- if($key) {
- return $self->{__client_config}{$key};
- } else {
- return $self->{__client_config};
- }
+ my ($self, $key) = @_;
+ if($key) {
+ return $self->{__client_config}{$key};
+ } else {
+ return $self->{__client_config};
+ }
}
=head2 ping
@@ -157,17 +157,17 @@
=cut
sub ping {
- my $self = shift;
-
- my $resp = $self->{__rpc_xml_client}->send_request('no_op');
-
- if( ref $resp ) {
- $self->{__connected} = 1;
- } else {
- $self->{__connected} = 0;
- }
-
- return $self->connected;
+ my $self = shift;
+
+ my $resp = $self->{__rpc_xml_client}->send_request('no_op');
+
+ if( ref $resp ) {
+ $self->{__connected} = 1;
+ } else {
+ $self->{__connected} = 0;
+ }
+
+ return $self->connected;
}
=head2 error
@@ -182,15 +182,15 @@
=cut
sub error {
- my ($self, $error) = @_;
-
- if($error) {
- push(@{$self->{__errors}}, $error);
- } else {
- return wantarray ?
- @{$self->{__errors}} :
- @{$self->{__errors}}[@{$self->{__errors}} - 1];
- }
+ my ($self, $error) = @_;
+
+ if($error) {
+ push(@{$self->{__errors}}, $error);
+ } else {
+ return wantarray ?
+ @{$self->{__errors}} :
+ @{$self->{__errors}}[@{$self->{__errors}} - 1];
+ }
}
=head2 call
@@ -220,26 +220,26 @@
=cut
sub call {
- my ($self, $method, @args) = @_;
- return unless $self->connected;
- my $resp = $self->{__rpc_xml_client}->send_request($method, @args);
-
- unless( ref $resp ) {
- my $error = qq/Lost connection to moosic server: "$resp"/;
- if( my $function = (caller(1))[3]) { $error .= " in $function()"; }
- $self->error($error);
- $self->{__connected} = 0;
- return;
- }
-
- if( $resp->is_fault ) {
- my $error = 'Error: '. $resp->code .': "'. $resp->string .'"';
- if( my $function = (caller(1))[3]) { $error .= " in $function()"; }
- $self->error($error);
- return;
- }
-
- return $resp->value;
+ my ($self, $method, @args) = @_;
+ return unless $self->connected;
+ my $resp = $self->{__rpc_xml_client}->send_request($method, @args);
+
+ unless( ref $resp ) {
+ my $error = qq/Lost connection to moosic server: "$resp"/;
+ if( my $function = (caller(1))[3]) { $error .= " in $function()"; }
+ $self->error($error);
+ $self->{__connected} = 0;
+ return;
+ }
+
+ if( $resp->is_fault ) {
+ my $error = 'Error: '. $resp->code .': "'. $resp->string .'"';
+ if( my $function = (caller(1))[3]) { $error .= " in $function()"; }
+ $self->error($error);
+ return;
+ }
+
+ return $resp->value;
}
=head2 api_version
@@ -254,9 +254,9 @@
=cut
sub api_version {
- my $self = shift;
- my $resp = $self->call('api_version') or return;
- return wantarray ? @{$resp} : join('.', @{$resp});
+ my $self = shift;
+ my $resp = $self->call('api_version') or return;
+ return wantarray ? @{$resp} : join('.', @{$resp});
}
=head2 append
@@ -271,10 +271,10 @@
=cut
sub append {
- my ($self, @items) = @_;
- return $self->call('append', RPC::XML::array->new(
- map { RPC::XML::base64->new($_) } @items
- ));
+ my ($self, @items) = @_;
+ return $self->call('append', RPC::XML::array->new(
+ map { RPC::XML::base64->new($_) } @items
+ ));
}
=head2 clear
@@ -286,8 +286,8 @@
=cut
sub clear {
- my $self = shift;
- return $self->call('clear');
+ my $self = shift;
+ return $self->call('clear');
}
=head2 crop
@@ -304,10 +304,10 @@
=cut
sub crop {
- my ($self, @range) = @_;
- return $self->call('crop', RPC::XML::array->new(
- map { RPC::XML::int->new($_) } @range
- ));
+ my ($self, @range) = @_;
+ return $self->call('crop', RPC::XML::array->new(
+ map { RPC::XML::int->new($_) } @range
+ ));
}
=head2 crop_list
@@ -319,10 +319,10 @@
=cut
sub crop_list {
- my ($self, @range) = @_;
- return $self->call('crop_list', RPC::XML::array->new(
- map { RPC::XML::int->new($_) } @range
- ));
+ my ($self, @range) = @_;
+ return $self->call('crop_list', RPC::XML::array->new(
+ map { RPC::XML::int->new($_) } @range
+ ));
}
=head2 current
@@ -334,8 +334,8 @@
=cut
sub current {
- my $self = shift;
- return $self->call('current');
+ my $self = shift;
+ return $self->call('current');
}
=head2 current_time
@@ -347,8 +347,8 @@
=cut
sub current_time {
- my $self = shift;
- return $self->call('current_time');
+ my $self = shift;
+ return $self->call('current_time');
}
=head2 cut
@@ -362,10 +362,10 @@
=cut
sub cut {
- my ($self, @range) = @_;
- return $self->call('cut', RPC::XML::array->new(
- map { RPC::XML::int->new($_) } @range
- ));
+ my ($self, @range) = @_;
+ return $self->call('cut', RPC::XML::array->new(
+ map { RPC::XML::int->new($_) } @range
+ ));
}
=head2 cut_list
@@ -377,10 +377,10 @@
=cut
sub cut_list {
- my ($self, @range) = @_;
- return $self->call('cut_list', RPC::XML::array->new(
- map { RPC::XML::int->new($_) } @range
- ));
+ my ($self, @range) = @_;
+ return $self->call('cut_list', RPC::XML::array->new(
+ map { RPC::XML::int->new($_) } @range
+ ));
}
=head2 die
@@ -392,8 +392,8 @@
=cut
sub die {
- my $self = shift;
- ($self->call('die') and $self->disconnect) or return;
+ my $self = shift;
+ ($self->call('die') and $self->disconnect) or return;
}
=head2 filter
@@ -408,11 +408,11 @@
=cut
sub filter {
- my ($self, $regex, @range) = @_;
- return $self->call('filter',
- RPC::XML::base64->new($regex),
- RPC::XML::array->new( map { RPC::XML::int->new($_) } @range )
- );
+ my ($self, $regex, @range) = @_;
+ return $self->call('filter',
+ RPC::XML::base64->new($regex),
+ RPC::XML::array->new( map { RPC::XML::int->new($_) } @range )
+ );
}
=head2 get_history_limit
@@ -424,8 +424,8 @@
=cut
sub get_history_limit {
- my $self = shift;
- return $self->call('get_history_limit');
+ my $self = shift;
+ return $self->call('get_history_limit');
}
=head2 getconfig
@@ -437,10 +437,10 @@
=cut
sub getconfig {
- my ($self, $key) = @_;
- my $resp = $self->call('getconfig');
- return @{$resp};
- #TODO support $key to read single config options
+ my ($self, $key) = @_;
+ my $resp = $self->call('getconfig');
+ return @{$resp};
+ #TODO support $key to read single config options
}
=head2 halt_queue
@@ -452,8 +452,8 @@
=cut
sub halt_queue {
- my $self = shift;
- return $self->call('halt_queue');
+ my $self = shift;
+ return $self->call('halt_queue');
}
=head2 haltqueue
@@ -463,8 +463,8 @@
=cut
sub haltqueue {
- my $self = shift;
- $self->halt_queue;
+ my $self = shift;
+ $self->halt_queue;
}
=head2 history
@@ -485,13 +485,13 @@
=cut
sub history {
- my ($self, $num) = @_;
-
- return map {
- title => $_->[0],
- start => $_->[1],
- stop => $_->[2] }, @{$self->call('history',
- RPC::XML::int->new( $num || 0 )) };
+ my ($self, $num) = @_;
+
+ return map {
+ title => $_->[0],
+ start => $_->[1],
+ stop => $_->[2] }, @{$self->call('history',
+ RPC::XML::int->new( $num || 0 )) };
}
=head2 indexed_list
@@ -512,11 +512,11 @@
=cut
sub indexed_list {
- my ($self, @range) = @_;
-
- return $self->call('indexed_list', RPC::XML::array->new(
- map { RPC::XML::int->new($_) } @range
- ));
+ my ($self, @range) = @_;
+
+ return $self->call('indexed_list', RPC::XML::array->new(
+ map { RPC::XML::int->new($_) } @range
+ ));
}
=head2 insert
@@ -528,14 +528,14 @@
=cut
sub insert {
- my $self = shift;
- my $num = pop;
- my @items = @_;
-
- return $self->call('insert',
- RPC::XML::array->new( map { RPC::XML::base64->new($_) } @items ),
- RPC::XML::int->new( $num )
- );
+ my $self = shift;
+ my $num = pop;
+ my @items = @_;
+
+ return $self->call('insert',
+ RPC::XML::array->new( map { RPC::XML::base64->new($_) } @items ),
+ RPC::XML::int->new( $num )
+ );
}
=head2 is_looping
@@ -547,8 +547,8 @@
=cut
sub is_looping {
- my $self = shift;
- return $self->call('is_looping');
+ my $self = shift;
+ return $self->call('is_looping');
}
=head2 is_paused
@@ -560,8 +560,8 @@
=cut
sub is_paused {
- my $self = shift;
- return $self->call('is_paused');
+ my $self = shift;
+ return $self->call('is_paused');
}
=head2 is_queue_running
@@ -575,8 +575,8 @@
=cut
sub is_queue_running {
- my $self = shift;
- return $self->call('is_queue_running');
+ my $self = shift;
+ return $self->call('is_queue_running');
}
=head2 last_queue_update
@@ -588,8 +588,8 @@
=cut
sub last_queue_update {
- my $self = shift;
- return $self->call('last_queue_update');
+ my $self = shift;
+ return $self->call('last_queue_update');
}
=head2 length
@@ -601,8 +601,8 @@
=cut
sub length {
- my $self = shift;
- return $self->call('length');
+ my $self = shift;
+ return $self->call('length');
}
=head2 list
@@ -619,15 +619,15 @@
=cut
sub list {
- my ($self, @range) = @_;
-
- my $list = $self->call('list', RPC::XML::array->new(
- map { RPC::XML::int->new($_) } @range
- ));
-
- return wantarray ?
- @{$list} :
- $list;
+ my ($self, @range) = @_;
+
+ my $list = $self->call('list', RPC::XML::array->new(
+ map { RPC::XML::int->new($_) } @range
+ ));
+
+ return wantarray ?
+ @{$list} :
+ $list;
}
=head2 move
@@ -640,14 +640,14 @@
=cut
sub move {
- my $self = shift;
- my $num = pop;
- my @range = @_;
-
- return $self->call('move',
- RPC::XML::array->new( map { RPC::XML::int->new($_) } @range ),
- RPC::XML::int->new( $num )
- );
+ my $self = shift;
+ my $num = pop;
+ my @range = @_;
+
+ return $self->call('move',
+ RPC::XML::array->new( map { RPC::XML::int->new($_) } @range ),
+ RPC::XML::int->new( $num )
+ );
}
=head2 move_list
@@ -659,14 +659,14 @@
=cut
sub move_list {
- my $self = shift;
- my $num = pop;
- my @range = @_;
-
- return $self->call('move_list',
- RPC::XML::array->new( map { RPC::XML::int->new($_) } @range ),
- RPC::XML::int->new( $num )
- );
+ my $self = shift;
+ my $num = pop;
+ my @range = @_;
+
+ return $self->call('move_list',
+ RPC::XML::array->new( map { RPC::XML::int->new($_) } @range ),
+ RPC::XML::int->new( $num )
+ );
}
=head2 next
@@ -682,9 +682,9 @@
=cut
sub next {
- my ($self, $num) = @_;
-
- return $self->call('next', RPC::XML::int->new( $num || 1 ));
+ my ($self, $num) = @_;
+
+ return $self->call('next', RPC::XML::int->new( $num || 1 ));
}
=head2 no_op
@@ -696,8 +696,8 @@
=cut
sub no_op {
- my $self = shift;
- return $self->call('no_op');
+ my $self = shift;
+ return $self->call('no_op');
}
=head2 pause
@@ -709,8 +709,8 @@
=cut
sub pause {
- my $self = shift;
- return $self->call('pause');
+ my $self = shift;
+ return $self->call('pause');
}
=head2 prepend
@@ -722,11 +722,11 @@
=cut
sub prepend {
- my ($self, @items) = @_;
-
- return $self->call('prepend', RPC::XML::array->new(
- map { RPC::XML::base64->new($_) } @items
- ));
+ my ($self, @items) = @_;
+
+ return $self->call('prepend', RPC::XML::array->new(
+ map { RPC::XML::base64->new($_) } @items
+ ));
}
=head2 previous
@@ -742,9 +742,9 @@
=cut
sub previous {
- my ($self, $num) = @_;
-
- return $self->call('previous', RPC::XML::int->new( $num || 1 ));
+ my ($self, $num) = @_;
+
+ return $self->call('previous', RPC::XML::int->new( $num || 1 ));
}
=head2 putback
@@ -756,8 +756,8 @@
=cut
sub putback {
- my $self = shift;
- return $self->call('putback');
+ my $self = shift;
+ return $self->call('putback');
}
=head2 queue_length
@@ -769,8 +769,8 @@
=cut
sub queue_length {
- my $self = shift;
- return $self->call('queue_length');
+ my $self = shift;
+ return $self->call('queue_length');
}
=head2 reconfigure
@@ -782,8 +782,8 @@
=cut
sub reconfigure {
- my $self = shift;
- return $self->call('reconfigure');
+ my $self = shift;
+ return $self->call('reconfigure');
}
=head2 remove
@@ -798,12 +798,12 @@
=cut
sub remove {
- my ($self, $regex, @range) = @_;
-
- return $self->call('remove',
- RPC::XML::base64->new( $regex ),
- RPC::XML::array->new( map { RPC::XML::int->new($_) } @range )
- );
+ my ($self, $regex, @range) = @_;
+
+ return $self->call('remove',
+ RPC::XML::base64->new( $regex ),
+ RPC::XML::array->new( map { RPC::XML::int->new($_) } @range )
+ );
}
=head2 replace
@@ -817,11 +817,11 @@
=cut
sub replace {
- my ($self, @items) = @_;
-
- return $self->call('replace', RPC::XML::array->new(
- map { RPC::XML::base64->new($_) } @items
- ));
+ my ($self, @items) = @_;
+
+ return $self->call('replace', RPC::XML::array->new(
+ map { RPC::XML::base64->new($_) } @items
+ ));
}
=head2 reverse
@@ -836,11 +836,11 @@
=cut
sub reverse {
- my ($self, @range) = @_;
-
- return $self->call('reverse', RPC::XML::array->new(
- map { RPC::XML::int->new($_) } @range
- ));
+ my ($self, @range) = @_;
+
+ return $self->call('reverse', RPC::XML::array->new(
+ map { RPC::XML::int->new($_) } @range
+ ));
}
=head2 run_queue
@@ -852,8 +852,8 @@
=cut
sub run_queue {
- my $self = shift;
- return $self->call('run_queue');
+ my $self = shift;
+ return $self->call('run_queue');
}
=head2 runqueue
@@ -863,8 +863,8 @@
=cut
sub runqueue {
- my $self = shift;
- return $self->run_queue;
+ my $self = shift;
+ return $self->run_queue;
}
=head2 set_history_limit
@@ -876,9 +876,9 @@
=cut
sub set_history_limit {
- my ($self, $limit) = @_;
-
- return $self->call('set_history_limit', RPC::XML::int->new( $limit ));
+ my ($self, $limit) = @_;
+
+ return $self->call('set_history_limit', RPC::XML::int->new( $limit ));
}
=head2 set_loop_mode
@@ -891,9 +891,9 @@
=cut
sub set_loop_mode {
- my ($self, $mode) = @_;
-
- return $self->call('set_loop_mode', RPC::XML::boolean->new( $mode ));
+ my ($self, $mode) = @_;
+
+ return $self->call('set_loop_mode', RPC::XML::boolean->new( $mode ));
}
=head2 showconfig
@@ -909,20 +909,20 @@
=cut
sub showconfig {
- my $self = shift;
-
- my $config = $self->call('showconfig');
- return unless $config;
- return $config unless wantarray;
-
- my @config;
- foreach(split("\n", $config)) {
- s/^\s+//;
- chomp;
- push(@config, $_);
- }
-
- return @config;
+ my $self = shift;
+
+ my $config = $self->call('showconfig');
+ return unless $config;
+ return $config unless wantarray;
+
+ my @config;
+ foreach(split("\n", $config)) {
+ s/^\s+//;
+ chomp;
+ push(@config, $_);
+ }
+
+ return @config;
}
=head2 shuffle
@@ -937,11 +937,11 @@
=cut
sub shuffle {
- my ($self, @range) = @_;
-
- return $self->call('shuffle', RPC::XML::array->new(
- map { RPC::XML::int->new($_) } @range
- ));
+ my ($self, @range) = @_;
+
+ return $self->call('shuffle', RPC::XML::array->new(
+ map { RPC::XML::int->new($_) } @range
+ ));
}
=head2 skip
@@ -954,8 +954,8 @@
=cut
sub skip {
- my $self = shift;
- return $self->call('skip');
+ my $self = shift;
+ return $self->call('skip');
}
=head2 sort
@@ -969,11 +969,11 @@
=cut
sub sort {
- my ($self, @range) = @_;
-
- return $self->call('sort', RPC::XML::array->new(
- map { RPC::XML::int->new($_) } @range
- ));
+ my ($self, @range) = @_;
+
+ return $self->call('sort', RPC::XML::array->new(
+ map { RPC::XML::int->new($_) } @range
+ ));
}
=head2 stop
@@ -988,8 +988,8 @@
=cut
sub stop {
- my $self = shift;
- return $self->call('stop');
+ my $self = shift;
+ return $self->call('stop');
}
=head2 sub
@@ -1004,13 +1004,13 @@
=cut
sub sub {
- my ($self, $regex, $subst, @range) = @_;
-
- return $self->call('sub',
- RPC::XML::base64->new( $regex ),
- RPC::XML::base64->new( $subst ),
- RPC::XML::array->new( map { RPC::XML::int->new($_) } @range )
- );
+ my ($self, $regex, $subst, @range) = @_;
+
+ return $self->call('sub',
+ RPC::XML::base64->new( $regex ),
+ RPC::XML::base64->new( $subst ),
+ RPC::XML::array->new( map { RPC::XML::int->new($_) } @range )
+ );
}
=head2 sub_all
@@ -1024,13 +1024,13 @@
=cut
sub sub_all {
- my ($self, $regex, $subst, @range) = @_;
-
- return $self->call('sub_all',
- RPC::XML::base64->new( $regex ),
- RPC::XML::base64->new( $subst ),
- RPC::XML::array->new( map { RPC::XML::int->new($_) } @range )
- );
+ my ($self, $regex, $subst, @range) = @_;
+
+ return $self->call('sub_all',
+ RPC::XML::base64->new( $regex ),
+ RPC::XML::base64->new( $subst ),
+ RPC::XML::array->new( map { RPC::XML::int->new($_) } @range )
+ );
}
=head2 swap
@@ -1044,12 +1044,12 @@
=cut
sub swap {
- my ($self, $range1, $range2) = @_;
-
- return $self->call('swap',
- RPC::XML::array->new( map { RPC::XML::int->new($_) } @{$range1} ),
- RPC::XML::array->new( map { RPC::XML::int->new($_) } @{$range2} )
- );
+ my ($self, $range1, $range2) = @_;
+
+ return $self->call('swap',
+ RPC::XML::array->new( map { RPC::XML::int->new($_) } @{$range1} ),
+ RPC::XML::array->new( map { RPC::XML::int->new($_) } @{$range2} )
+ );
}
=head2 listMethods
@@ -1061,8 +1061,8 @@
=cut
sub listMethods {
- my $self = shift;
- return $self->call('system.listMethods');
+ my $self = shift;
+ return $self->call('system.listMethods');
}
=head2 methodHelp
@@ -1074,11 +1074,11 @@
=cut
sub methodHelp {
- my ($self, $method) = @_;
-
- return $self->call('syste.methodHelp',
- RPC::XML::string->new( $method )
- );
+ my ($self, $method) = @_;
+
+ return $self->call('syste.methodHelp',
+ RPC::XML::string->new( $method )
+ );
}
=head2 methodSignature
@@ -1092,11 +1092,11 @@
=cut
sub methodSignature {
- my ($self, $method) = @_;
-
- return $self->call('system.methodSignature',
- RPC::XML::string->new( $method )
- );
+ my ($self, $method) = @_;
+
+ return $self->call('system.methodSignature',
+ RPC::XML::string->new( $method )
+ );
}
=head2 multicall
@@ -1109,9 +1109,9 @@
=cut
sub multicall {
- my ($self, @cmds) = @_;
- require Carp;
- Carp::carp(__PACKAGE__."::multicall() isn't implemented yet."); #TODO
+ my ($self, @cmds) = @_;
+ require Carp;
+ Carp::carp(__PACKAGE__."::multicall() isn't implemented yet."); #TODO
}
=head2 toggle_loop_mode
@@ -1123,8 +1123,8 @@
=cut
sub toggle_loop_mode {
- my $self = shift;
- return $self->call('toggle_loop_mode');
+ my $self = shift;
+ return $self->call('toggle_loop_mode');
}
=head2 toggle_pause
@@ -1136,8 +1136,8 @@
=cut
sub toggle_pause {
- my $self = shift;
- return $self->call('toggle_pause');
+ my $self = shift;
+ return $self->call('toggle_pause');
}
=head2 unpause
@@ -1149,8 +1149,8 @@
=cut
sub unpause {
- my $self = shift;
- return $self->call('unpause');
+ my $self = shift;
+ return $self->call('unpause');
}
=head2 version
@@ -1162,8 +1162,8 @@
=cut
sub version {
- my $self = shift;
- return $self->call('version');
+ my $self = shift;
+ return $self->call('version');
}
=head1 HELPER METHODS
@@ -1181,10 +1181,10 @@
=cut
sub play {
- my $self = shift;
-
- return $self->unpause() if $self->is_paused();
- return $self->run_queue();
+ my $self = shift;
+
+ return $self->unpause() if $self->is_paused();
+ return $self->run_queue();
}
=head2 can_play
@@ -1197,17 +1197,17 @@
=cut
sub can_play {
- my $self = shift;
- my @can_play;
-
- my @config = $self->getconfig();
- for my $track ( @_ ) {
- for( @config ) {
- push @can_play, $track if $track =~ qr/$_->[0]/;
- }
- }
-
- return @can_play;
+ my $self = shift;
+ my @can_play;
+
+ my @config = $self->getconfig();
+ for my $track ( @_ ) {
+ for( @config ) {
+ push @can_play, $track if $track =~ qr/$_->[0]/;
+ }
+ }
+
+ return @can_play;
}
package Audio::Moosic::Inet;
@@ -1217,15 +1217,15 @@
use base qw( Audio::Moosic );
sub connect {
- my ($self, $host, $port) = @_;
- return if $self->connected;
-
- my $location = "http://$host\:$port";
- $self->disconnect;
- $self->{__rpc_xml_client} = RPC::XML::Client->new($location);
-
- $self->ping or return;
- $self->{__client_config} = { location => $location };
+ my ($self, $host, $port) = @_;
+ return if $self->connected;
+
+ my $location = "http://$host\:$port";
+ $self->disconnect;
+ $self->{__rpc_xml_client} = RPC::XML::Client->new($location);
+
+ $self->ping or return;
+ $self->{__client_config} = { location => $location };
}
package Audio::Moosic::Unix;
@@ -1236,29 +1236,29 @@
sub connect {
- _init();
-
- my ($self, $filename) = @_;
- return if $self->connected;
-
- $filename = ($ENV{HOME} || '/tmp') . '/.moosic/socket' unless $filename;
- my $location = "http://$filename";
- $self->disconnect;
- $self->{__rpc_xml_client} = RPC::XML::Client->new($location);
-
- $self->ping or return;
- $self->{__client_config} = { location => $location };
+ _init();
+
+ my ($self, $filename) = @_;
+ return if $self->connected;
+
+ $filename = ($ENV{HOME} || '/tmp') . '/.moosic/socket' unless $filename;
+ my $location = "http://$filename";
+ $self->disconnect;
+ $self->{__rpc_xml_client} = RPC::XML::Client->new($location);
+
+ $self->ping or return;
+ $self->{__client_config} = { location => $location };
}
sub _init {
- unless( eval 'require LWP::Protocol::http::SocketUnix' ) {
- require Carp;
- Carp::croak('You need LWP::Protocol::http::SocketUnix to connect to a local'.
- " moosic server using a UNIX socket.\nPlease install it!");
- }
-
- LWP::Protocol::implementor( http => 'LWP::Protocol::http::SocketUnix' );
+ unless( eval 'require LWP::Protocol::http::SocketUnix' ) {
+ require Carp;
+ Carp::croak('You need LWP::Protocol::http::SocketUnix to connect to a local'.
+ " moosic server using a UNIX socket.\nPlease install it!");
+ }
+
+ LWP::Protocol::implementor( http => 'LWP::Protocol::http::SocketUnix' );
}
1;
@@ -1296,11 +1296,11 @@
=head1 AUTHOR
-Florian Ragwitz, E<lt>flora at cpan.orgE<gt>
+Florian Ragwitz E<lt>rafl at debian.orgE<gt>
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2004 by Florian Ragwitz
+Copyright (C) 2004-2008 by Florian Ragwitz
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
More information about the Pkg-perl-cvs-commits
mailing list