r48214 - in /trunk/libaudio-mpd-common-perl: ./ debian/ lib/Audio/MPD/ lib/Audio/MPD/Common/ lib/Audio/MPD/Common/Item/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Dec 5 03:19:37 UTC 2009
Author: jawnsy-guest
Date: Sat Dec 5 03:19:23 2009
New Revision: 48214
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=48214
Log:
* New upstream release
* Add myself to Uploaders and Copyright
* Rewrite control description
Added:
trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Types.pm
- copied unchanged from r48213, branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common/Types.pm
Modified:
trunk/libaudio-mpd-common-perl/Build.PL
trunk/libaudio-mpd-common-perl/Changes
trunk/libaudio-mpd-common-perl/MANIFEST
trunk/libaudio-mpd-common-perl/META.yml
trunk/libaudio-mpd-common-perl/Makefile.PL
trunk/libaudio-mpd-common-perl/README
trunk/libaudio-mpd-common-perl/debian/changelog
trunk/libaudio-mpd-common-perl/debian/control
trunk/libaudio-mpd-common-perl/dist.ini
trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common.pm
trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item.pm
trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Directory.pm
trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Playlist.pm
trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Song.pm
trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Stats.pm
trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Status.pm
trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Time.pm
Modified: trunk/libaudio-mpd-common-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/Build.PL?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/Build.PL (original)
+++ trunk/libaudio-mpd-common-perl/Build.PL Sat Dec 5 03:19:23 2009
@@ -14,9 +14,12 @@
],
requires => {
"base" => '0',
+ "MooseX::Has::Sugar" => '0',
+ "MooseX::Types::Moose" => '0',
"English" => '0',
"ExtUtils::MakeMaker" => '0',
"overload" => '0',
+ "Sub::Exporter" => '0',
"Moose::Util::TypeConstraints" => '0',
"Readonly" => '0',
"Test::More" => '0',
Modified: trunk/libaudio-mpd-common-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/Changes?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/Changes (original)
+++ trunk/libaudio-mpd-common-perl/Changes Sat Dec 5 03:19:23 2009
@@ -1,6 +1,10 @@
Revision history for Audio-MPD-Common
-1.093170 2009-11-13 16:38:18 UTC
+1.093190 2009-11-15 11:14:07 UTC
+ - isolating types in amc:types
+ - sweetening code with moosex::has::sugar
+
+1.093170 Fri Nov 13 17:38:35 2009
- volume can be negative (in some error cases)
1.093120 Sun Nov 8 15:15:58 2009
Modified: trunk/libaudio-mpd-common-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/MANIFEST?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/MANIFEST (original)
+++ trunk/libaudio-mpd-common-perl/MANIFEST Sat Dec 5 03:19:23 2009
@@ -14,6 +14,7 @@
lib/Audio/MPD/Common/Stats.pm
lib/Audio/MPD/Common/Status.pm
lib/Audio/MPD/Common/Time.pm
+lib/Audio/MPD/Common/Types.pm
t/00-compile.t
t/10-item.t
t/11-time.t
Modified: trunk/libaudio-mpd-common-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/META.yml?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/META.yml (original)
+++ trunk/libaudio-mpd-common-perl/META.yml Sat Dec 5 03:19:23 2009
@@ -11,34 +11,40 @@
provides:
Audio::MPD::Common:
file: lib/Audio/MPD/Common.pm
- version: 1.093170
+ version: 1.093190
Audio::MPD::Common::Item:
file: lib/Audio/MPD/Common/Item.pm
- version: 1.093170
+ version: 1.093190
Audio::MPD::Common::Item::Directory:
file: lib/Audio/MPD/Common/Item/Directory.pm
- version: 1.093170
+ version: 1.093190
Audio::MPD::Common::Item::Playlist:
file: lib/Audio/MPD/Common/Item/Playlist.pm
- version: 1.093170
+ version: 1.093190
Audio::MPD::Common::Item::Song:
file: lib/Audio/MPD/Common/Item/Song.pm
- version: 1.093170
+ version: 1.093190
Audio::MPD::Common::Stats:
file: lib/Audio/MPD/Common/Stats.pm
- version: 1.093170
+ version: 1.093190
Audio::MPD::Common::Status:
file: lib/Audio/MPD/Common/Status.pm
- version: 1.093170
+ version: 1.093190
Audio::MPD::Common::Time:
file: lib/Audio/MPD/Common/Time.pm
- version: 1.093170
+ version: 1.093190
+ Audio::MPD::Common::Types:
+ file: lib/Audio/MPD/Common/Types.pm
+ version: 1.093190
requires:
English: 0
File::Find: 0
Moose: 0.92
Moose::Util::TypeConstraints: 0
+ MooseX::Has::Sugar: 0
+ MooseX::Types::Moose: 0
Readonly: 0
+ Sub::Exporter: 0
Test::More: 0
base: 0
overload: 0
@@ -47,4 +53,4 @@
MailingList: http://groups.google.com/group/audio-mpd
homepage: http://search.cpan.org/dist/Audio-MPD-Common
repository: http://github.com/jquelin/audio-mpd-common
-version: 1.093170
+version: 1.093190
Modified: trunk/libaudio-mpd-common-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/Makefile.PL?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/Makefile.PL (original)
+++ trunk/libaudio-mpd-common-perl/Makefile.PL Sat Dec 5 03:19:23 2009
@@ -9,18 +9,21 @@
NAME => 'Audio::MPD::Common',
AUTHOR => "Jerome\ Quelin",
ABSTRACT => "common\ helper\ classes\ for\ mpd",
- VERSION => '1.093170',
+ VERSION => '1.093190',
EXE_FILES => [ qw() ],
(eval { ExtUtils::MakeMaker->VERSION(6.31) } ? (LICENSE => 'perl') : ()),
PREREQ_PM => {
- "perl" => '5.008',
- "Test::More" => '0',
"base" => '0',
+ "MooseX::Has::Sugar" => '0',
+ "MooseX::Types::Moose" => '0',
"English" => '0',
- "File::Find" => '0',
"overload" => '0',
+ "Sub::Exporter" => '0',
"Moose::Util::TypeConstraints" => '0',
"Readonly" => '0',
+ "Test::More" => '0',
+ "perl" => '5.008',
+ "File::Find" => '0',
"Moose" => '0.92',
},
test => {TESTS => 't/*.t'}
Modified: trunk/libaudio-mpd-common-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/README?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/README (original)
+++ trunk/libaudio-mpd-common-perl/README Sat Dec 5 03:19:23 2009
@@ -1,7 +1,7 @@
This archive contains the distribution Audio-MPD-Common, version
-1.093170:
+1.093190:
common helper classes for mpd
Modified: trunk/libaudio-mpd-common-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/debian/changelog?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/debian/changelog (original)
+++ trunk/libaudio-mpd-common-perl/debian/changelog Sat Dec 5 03:19:23 2009
@@ -1,3 +1,11 @@
+libaudio-mpd-common-perl (1.093190-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Add myself to Uploaders and Copyright
+ * Rewrite control description
+
+ -- Jonathan Yu <jawnsy at cpan.org> Fri, 04 Dec 2009 19:04:32 -0500
+
libaudio-mpd-common-perl (1.093170-1) unstable; urgency=low
[ Nathan Handler ]
Modified: trunk/libaudio-mpd-common-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/debian/control?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/debian/control (original)
+++ trunk/libaudio-mpd-common-perl/debian/control Sat Dec 5 03:19:23 2009
@@ -3,10 +3,12 @@
Priority: optional
Build-Depends: debhelper (>= 7.0.50), perl
Build-Depends-Indep: libreadonly-perl, libmoose-perl (>= 0.92),
- libtest-pod-perl, libtest-pod-coverage-perl, libtest-cpan-meta-perl
+ libtest-pod-perl, libtest-pod-coverage-perl, libtest-cpan-meta-perl,
+ libmoosex-types-perl, libmoosex-has-sugar-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jose Luis Rivas <ghostbar38 at gmail.com>,
- Rene Mayorga <rmayorga at debian.org.sv>, gregor herrmann <gregoa at debian.org>
+ Rene Mayorga <rmayorga at debian.org.sv>, gregor herrmann <gregoa at debian.org>,
+ Jonathan Yu <jawnsy at cpan.org>
Standards-Version: 3.8.3
Homepage: http://search.cpan.org/dist/Audio-MPD-Common
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libaudio-mpd-common-perl/
@@ -18,7 +20,6 @@
Depends: ${perl:Depends}, ${misc:Depends}, libreadonly-perl,
libmoose-perl (>= 0.92)
Description: common perl helper classes for MPD
- Audio::MPD::Common provides classes to represent MPD (Music Player Daemon)
- states and information.
- .
- This module is a dependency of more useful modules such as Audio::MPD.
+ Audio::MPD::Common is a Perl module which provides some base classes to
+ represent MPD (Music Player Daemon) states and information. This module is a
+ dependency of other, more useful modules such as Audio::MPD.
Modified: trunk/libaudio-mpd-common-perl/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/dist.ini?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/dist.ini (original)
+++ trunk/libaudio-mpd-common-perl/dist.ini Sat Dec 5 03:19:23 2009
@@ -47,7 +47,7 @@
[ExtraTests]
[NextRelease]
[PkgVersion]
-[PodPurler]
+[PodWeaver]
[Prepender]
copyright = 1
Modified: trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common.pm?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common.pm (original)
+++ trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common.pm Sat Dec 5 03:19:23 2009
@@ -11,7 +11,7 @@
use warnings;
package Audio::MPD::Common;
-our $VERSION = '1.093170';
+our $VERSION = '1.093190';
# ABSTRACT: common helper classes for mpd
@@ -27,7 +27,7 @@
=head1 VERSION
-version 1.093170
+version 1.093190
=head1 DESCRIPTION
@@ -61,22 +61,42 @@
=item * L<Audio::MPD::Common::Time>
+=item * L<Audio::MPD::Common::Types>
+
=back
Note that those modules should not be of any use outside the two mpd
modules afore-mentioned.
-=head1 BUGS
-
-Please report any bugs or feature requests to C<bug-audio-mpd-common at
-rt.cpan.org>, or through the web interface at
-L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Audio-MPD-Common>.
-I will be notified, and then you'll automatically be notified of
-progress on your bug as I make changes.
-
=head1 SEE ALSO
-You may want to see the modules really accessing MPD:
+You can look for information on this module at:
+
+=over 4
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Audio-MPD-Common>
+
+=item * See open / report bugs
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Audio-MPD-Common>
+
+=item * Git repository
+
+L<http://github.com/jquelin/audio-mpd-common.git>
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Audio-MPD-Common>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/d/Audio-MPD-Common>
+
+=back
+
+You may want to look at the modules really accessing MPD:
=over 4
@@ -86,27 +106,9 @@
=back
-You can also look for information on this module at:
-
-=over 4
-
-=item * AnnoCPAN: Annotated CPAN documentation
-
-L<http://annocpan.org/dist/Audio-MPD-Common>
-
-=item * CPAN Ratings
-
-L<http://cpanratings.perl.org/d/Audio-MPD-Common>
-
-=item * Open bugs
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Audio-MPD-Common>
-
-=back
-
=head1 AUTHOR
-Jerome Quelin
+ Jerome Quelin
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item.pm?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item.pm (original)
+++ trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item.pm Sat Dec 5 03:19:23 2009
@@ -11,7 +11,7 @@
use warnings;
package Audio::MPD::Common::Item;
-our $VERSION = '1.093170';
+our $VERSION = '1.093190';
# ABSTRACT: a generic collection item
@@ -47,20 +47,7 @@
=head1 VERSION
-version 1.093170
-
-=head1 METHODS
-
-=head2 my $item = Audio::MPD::Common::Item->new( %params );
-
-Create and return either an L<Audio::MPD::Common::Item::Song>, an
-L<Audio::MPD::Common::Item::Directory> or an L<Audio::MPD::Common::Playlist>
-object, depending on the existence of a key C<file>, C<directory> or
-C<playlist> (respectively).
-
-=cut
-
-=pod
+version 1.093190
=head1 SYNOPSIS
@@ -76,9 +63,18 @@
or an L<Audio::MPD::Common::Playlist> object. Currently, the
discrimination is done on the existence of the C<file> key of C<%params>.
+=head1 METHODS
+
+=head2 my $item = Audio::MPD::Common::Item->new( %params );
+
+Create and return either an L<Audio::MPD::Common::Item::Song>, an
+L<Audio::MPD::Common::Item::Directory> or an L<Audio::MPD::Common::Playlist>
+object, depending on the existence of a key C<file>, C<directory> or
+C<playlist> (respectively).
+
=head1 AUTHOR
-Jerome Quelin
+ Jerome Quelin
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Directory.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Directory.pm?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Directory.pm (original)
+++ trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Directory.pm Sat Dec 5 03:19:23 2009
@@ -11,12 +11,14 @@
use warnings;
package Audio::MPD::Common::Item::Directory;
-our $VERSION = '1.093170';
+our $VERSION = '1.093190';
# ABSTRACT: a directory object
use Moose;
+use MooseX::Has::Sugar;
+use MooseX::Types::Moose qw{ Str };
use base qw{ Audio::MPD::Common::Item };
@@ -24,7 +26,7 @@
# -- public attributes
-has directory => ( is=>'rw', isa=>'Str', required=>1 );
+has directory => ( rw, isa=>Str, required );
1;
@@ -37,17 +39,7 @@
=head1 VERSION
-version 1.093170
-
-=head1 ATTRIBUTES
-
-=head2 $item->directory;
-
-The path to the item's directory.
-
-=cut
-
-=pod
+version 1.093190
=head1 DESCRIPTION
@@ -57,9 +49,15 @@
The constructor should only be called by L<Audio::MPD::Common::Item>'s
constructor.
+=head1 ATTRIBUTES
+
+=head2 $item->directory;
+
+The path to the item's directory.
+
=head1 AUTHOR
-Jerome Quelin
+ Jerome Quelin
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Playlist.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Playlist.pm?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Playlist.pm (original)
+++ trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Playlist.pm Sat Dec 5 03:19:23 2009
@@ -11,12 +11,14 @@
use warnings;
package Audio::MPD::Common::Item::Playlist;
-our $VERSION = '1.093170';
+our $VERSION = '1.093190';
# ABSTRACT: a playlist object
use Moose;
+use MooseX::Has::Sugar;
+use MooseX::Types::Moose qw{ Str };
use base qw{ Audio::MPD::Common::Item };
@@ -24,8 +26,8 @@
# -- public attributes
-has last_modified => ( is=>'rw', isa=>'Str', required=>0 );
-has playlist => ( is=>'rw', isa=>'Str', required=>1 );
+has last_modified => ( rw, isa=>Str );
+has playlist => ( rw, isa=>Str, required );
1;
@@ -38,7 +40,15 @@
=head1 VERSION
-version 1.093170
+version 1.093190
+
+=head1 DESCRIPTION
+
+L<Audio::MPD::Common::Item::Playlist> is more a placeholder with some
+attributes.
+
+The constructor should only be called by L<Audio::MPD::Common::Item>'s
+constructor.
=head1 ATTRIBUTES
@@ -50,21 +60,9 @@
Path to the playlist file.
-=cut
-
-=pod
-
-=head1 DESCRIPTION
-
-L<Audio::MPD::Common::Item::Playlist> is more a placeholder with some
-attributes.
-
-The constructor should only be called by L<Audio::MPD::Common::Item>'s
-constructor.
-
=head1 AUTHOR
-Jerome Quelin
+ Jerome Quelin
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Song.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Song.pm?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Song.pm (original)
+++ trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Item/Song.pm Sat Dec 5 03:19:23 2009
@@ -11,12 +11,14 @@
use warnings;
package Audio::MPD::Common::Item::Song;
-our $VERSION = '1.093170';
+our $VERSION = '1.093190';
# ABSTRACT: a song object with some audio tags
use Moose;
+use MooseX::Has::Sugar;
+use MooseX::Types::Moose qw{ Int Str };
use Readonly;
use base qw{ Audio::MPD::Common::Item };
@@ -28,18 +30,18 @@
# -- public attributes
-has album => ( is=>'rw', isa=>'Str' );
-has artist => ( is=>'rw', isa=>'Str' );
-has date => ( is=>'rw', isa=>'Str' );
-has disc => ( is=>'rw', isa=>'Str' );
-has file => ( is=>'rw', isa=>'Str', required=>1 );
-has genre => ( is=>'rw', isa=>'Str' );
-has id => ( is=>'rw', isa=>'Int' );
-has name => ( is=>'rw', isa=>'Str' );
-has pos => ( is=>'rw', isa=>'Int' );
-has title => ( is=>'rw', isa=>'Str' );
-has track => ( is=>'rw', isa=>'Str' );
-has time => ( is=>'rw', isa=>'Int' );
+has album => ( rw, isa=>Str );
+has artist => ( rw, isa=>Str );
+has date => ( rw, isa=>Str );
+has disc => ( rw, isa=>Str );
+has file => ( rw, isa=>Str, required );
+has genre => ( rw, isa=>Str );
+has id => ( rw, isa=>Int );
+has name => ( rw, isa=>Str );
+has pos => ( rw, isa=>Int );
+has title => ( rw, isa=>Str );
+has track => ( rw, isa=>Str );
+has time => ( rw, isa=>Int );
# -- public methods
@@ -70,7 +72,16 @@
=head1 VERSION
-version 1.093170
+version 1.093190
+
+=head1 DESCRIPTION
+
+L<Audio::MPD::Common::Item::Song> is more a placeholder with some
+attributes. Those attributes are taken from the song tags, so some of
+them can be empty depending on the file.
+
+The constructor should only be called by L<Audio::MPD::Common::Item>'s
+constructor.
=head1 ATTRIBUTES
@@ -122,10 +133,6 @@
Length of the song in seconds.
-=cut
-
-=pod
-
=head1 METHODS
=head2 my $str = $song->as_string;
@@ -149,22 +156,9 @@
This method is also used to automatically stringify the C<$song>.
-=cut
-
-=pod
-
-=head1 DESCRIPTION
-
-L<Audio::MPD::Common::Item::Song> is more a placeholder with some
-attributes. Those attributes are taken from the song tags, so some of
-them can be empty depending on the file.
-
-The constructor should only be called by L<Audio::MPD::Common::Item>'s
-constructor.
-
=head1 AUTHOR
-Jerome Quelin
+ Jerome Quelin
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Stats.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Stats.pm?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Stats.pm (original)
+++ trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Stats.pm Sat Dec 5 03:19:23 2009
@@ -11,24 +11,26 @@
use warnings;
package Audio::MPD::Common::Stats;
-our $VERSION = '1.093170';
+our $VERSION = '1.093190';
# ABSTRACT: class representing MPD stats
use Moose;
+use MooseX::Has::Sugar;
+use MooseX::Types::Moose qw{ Int };
# -- public attributes
-has artists => ( is=>'ro', isa=>'Int', required=>1 );
-has albums => ( is=>'ro', isa=>'Int', required=>1 );
-has songs => ( is=>'ro', isa=>'Int', required=>1 );
-has uptime => ( is=>'ro', isa=>'Int', required=>1 );
-has playtime => ( is=>'ro', isa=>'Int', required=>1 );
-has db_playtime => ( is=>'ro', isa=>'Int', required=>1 );
-has db_update => ( is=>'ro', isa=>'Int', required=>1 );
+has artists => ( ro, isa=>Int, required );
+has albums => ( ro, isa=>Int, required );
+has songs => ( ro, isa=>Int, required );
+has uptime => ( ro, isa=>Int, required );
+has playtime => ( ro, isa=>Int, required );
+has db_playtime => ( ro, isa=>Int, required );
+has db_update => ( ro, isa=>Int, required );
1;
@@ -42,7 +44,19 @@
=head1 VERSION
-version 1.093170
+version 1.093190
+
+=head1 DESCRIPTION
+
+The MPD server maintains some general information. Those information can
+be queried with the mpd modules. Some of those information are served to
+you as an L<Audio::MPD::Common::Status> object.
+
+An L<Audio::MPD::Common::Stats> object does B<not> update itself
+regularly, and thus should be used immediately.
+
+Note: one should B<never> ever instantiate an L<Audio::MPD::Common::Stats>
+object directly - use the mpd modules instead.
=head1 ATTRIBUTES
@@ -74,25 +88,9 @@
Last database update in UNIX time.
-=cut
-
-=pod
-
-=head1 DESCRIPTION
-
-The MPD server maintains some general information. Those information can
-be queried with the mpd modules. Some of those information are served to
-you as an L<Audio::MPD::Common::Status> object.
-
-An L<Audio::MPD::Common::Stats> object does B<not> update itself
-regularly, and thus should be used immediately.
-
-Note: one should B<never> ever instantiate an L<Audio::MPD::Common::Stats>
-object directly - use the mpd modules instead.
-
=head1 AUTHOR
-Jerome Quelin
+ Jerome Quelin
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Status.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Status.pm?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Status.pm (original)
+++ trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Status.pm Sat Dec 5 03:19:23 2009
@@ -11,41 +11,36 @@
use warnings;
package Audio::MPD::Common::Status;
-our $VERSION = '1.093170';
+our $VERSION = '1.093190';
# ABSTRACT: class representing MPD status
use Moose;
-use Moose::Util::TypeConstraints;
+use MooseX::Has::Sugar;
+use MooseX::Types::Moose qw{ Bool Int Str };
+
use Audio::MPD::Common::Time;
-
-
-# -- private types
-
-enum 'State' => qw{ play stop pause };
-coerce 'Audio::MPD::Common::Time'
- => from 'Str'
- => via { Audio::MPD::Common::Time->new(time=>$_) };
+use Audio::MPD::Common::Types;
# -- public attributes
-has audio => ( is=>'ro', isa=>'Str' );
-has bitrate => ( is=>'ro', isa=>'Int' );
-has error => ( is=>'ro', isa=>'Str' );
-has playlist => ( is=>'ro', isa=>'Int' );
-has playlistlength => ( is=>'ro', isa=>'Int' );
-has random => ( is=>'ro', isa=>'Bool' );
-has repeat => ( is=>'ro', isa=>'Bool' );
-has songid => ( is=>'ro', isa=>'Int' );
-has song => ( is=>'ro', isa=>'Int' );
-has state => ( is=>'ro', isa=>'State' );
-has time => ( is=>'ro', isa=>'Audio::MPD::Common::Time', coerce=>1 );
-has updating_db => ( is=>'ro', isa=>'Int' );
-has volume => ( is=>'ro', isa=>'Int' );
-has xfade => ( is=>'ro', isa=>'Int' );
+has audio => ( ro, isa=>Str );
+has bitrate => ( ro, isa=>Int );
+has error => ( ro, isa=>Str );
+has playlist => ( ro, isa=>Int );
+has playlistlength => ( ro, isa=>Int );
+has random => ( ro, isa=>Bool );
+has repeat => ( ro, isa=>Bool );
+has songid => ( ro, isa=>Int );
+has song => ( ro, isa=>Int );
+has state => ( ro, isa=>'State' );
+has time => ( ro, isa=>'Audio::MPD::Common::Time', coerce );
+has updating_db => ( ro, isa=>Int );
+has volume => ( ro, isa=>Int );
+has xfade => ( ro, isa=>Int );
1;
@@ -59,7 +54,19 @@
=head1 VERSION
-version 1.093170
+version 1.093190
+
+=head1 DESCRIPTION
+
+The MPD server maintains some information on its current state. Those
+information can be queried with mpd modules. Some of those information
+are served to you as an L<Audio::MPD::Common::Status> object.
+
+An L<Audio::MPD::Common::Status> object does B<not> update itself
+regularly, and thus should be used immediately.
+
+Note: one should B<never> ever instantiate an L<Audio::MPD::Common::Status>
+object directly - use the mpd modules instead.
=head1 ATTRIBUTES
@@ -123,25 +130,9 @@
The crossfade in seconds.
-=cut
-
-=pod
-
-=head1 DESCRIPTION
-
-The MPD server maintains some information on its current state. Those
-information can be queried with mpd modules. Some of those information
-are served to you as an L<Audio::MPD::Common::Status> object.
-
-An L<Audio::MPD::Common::Status> object does B<not> update itself
-regularly, and thus should be used immediately.
-
-Note: one should B<never> ever instantiate an L<Audio::MPD::Common::Status>
-object directly - use the mpd modules instead.
-
=head1 AUTHOR
-Jerome Quelin
+ Jerome Quelin
=head1 COPYRIGHT AND LICENSE
Modified: trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Time.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Time.pm?rev=48214&op=diff
==============================================================================
--- trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Time.pm (original)
+++ trunk/libaudio-mpd-common-perl/lib/Audio/MPD/Common/Time.pm Sat Dec 5 03:19:23 2009
@@ -11,7 +11,7 @@
use warnings;
package Audio::MPD::Common::Time;
-our $VERSION = '1.093170';
+our $VERSION = '1.093190';
# ABSTRACT: class representing time of current song
@@ -110,77 +110,7 @@
=head1 VERSION
-version 1.093170
-
-=head1 ATTRIBUTES
-
-=head2 $time->time;
-
-The time passed to the constructor, used to compute all others values
-(see methods). It is the time value (on the "time" line) of what the MPD
-server returns to the status command. Defaults to C<0:0>.
-
-=cut
-
-=pod
-
-=head1 METHODS
-
-=head2 my $str = $time->sofar;
-
-Return elapsed C<$time> (C<minutes:seconds> format).
-
-=head2 my $str = $time->left;
-
-Return remaining C<$time> (C<minutes:seconds> format).
-
-=head2 my $str = $time->left;
-
-Return total C<$time> (C<minutes:seconds> format).
-
-=head2 my $percent = $time->percent;
-
-Return elapsed C<$time> (percentage, 1 digit).
-
-=head2 my $secs = $time->seconds_sofar;
-
-Return elapsed C<$time> in seconds.
-
-=head2 my $secs = $time->seconds_left;
-
-Return remaining C<$time> in seconds.
-
-=head2 my $secs = $time->seconds_total;
-
-Return total C<$time> in seconds.
-
-=head2 my $mins = $time->sofar_mins;
-
-Return minutes part of elapsed C<$time>.
-
-=head2 my $secs = $time->sofar_secs;
-
-Return seconds part of elapsed C<$time>.
-
-=head2 my $mins = $time->left_mins;
-
-Return minutes part of remaining C<$time>.
-
-=head2 my $secs = $time->left_secs;
-
-Return seconds part of remaining C<$time>.
-
-=head2 my $mins = $time->total_mins;
-
-Return minutes part of total C<$time>.
-
-=head2 my $mins = $time->total_secs;
-
-Return seconds part of total C<$time>.
-
-=cut
-
-=pod
+version 1.093190
=head1 DESCRIPTION
@@ -195,9 +125,71 @@
Note: one should B<never> ever instantiate an L<Audio::MPD::Common::Time>
object directly - use the mpd modules instead.
+=head1 ATTRIBUTES
+
+=head2 $time->time;
+
+The time passed to the constructor, used to compute all others values
+(see methods). It is the time value (on the "time" line) of what the MPD
+server returns to the status command. Defaults to C<0:0>.
+
+=head1 METHODS
+
+=head2 my $str = $time->sofar;
+
+Return elapsed C<$time> (C<minutes:seconds> format).
+
+=head2 my $str = $time->left;
+
+Return remaining C<$time> (C<minutes:seconds> format).
+
+=head2 my $str = $time->left;
+
+Return total C<$time> (C<minutes:seconds> format).
+
+=head2 my $percent = $time->percent;
+
+Return elapsed C<$time> (percentage, 1 digit).
+
+=head2 my $secs = $time->seconds_sofar;
+
+Return elapsed C<$time> in seconds.
+
+=head2 my $secs = $time->seconds_left;
+
+Return remaining C<$time> in seconds.
+
+=head2 my $secs = $time->seconds_total;
+
+Return total C<$time> in seconds.
+
+=head2 my $mins = $time->sofar_mins;
+
+Return minutes part of elapsed C<$time>.
+
+=head2 my $secs = $time->sofar_secs;
+
+Return seconds part of elapsed C<$time>.
+
+=head2 my $mins = $time->left_mins;
+
+Return minutes part of remaining C<$time>.
+
+=head2 my $secs = $time->left_secs;
+
+Return seconds part of remaining C<$time>.
+
+=head2 my $mins = $time->total_mins;
+
+Return minutes part of total C<$time>.
+
+=head2 my $mins = $time->total_secs;
+
+Return seconds part of total C<$time>.
+
=head1 AUTHOR
-Jerome Quelin
+ Jerome Quelin
=head1 COPYRIGHT AND LICENSE
More information about the Pkg-perl-cvs-commits
mailing list