r29739 - in /branches/upstream/libaudio-mpd-common-perl/current: Changes META.yml lib/Audio/MPD/Common.pm lib/Audio/MPD/Common/Item.pm lib/Audio/MPD/Common/Item/Playlist.pm t/10-item.t
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Sat Jan 17 03:20:46 UTC 2009
Author: rmayorga-guest
Date: Sat Jan 17 03:20:43 2009
New Revision: 29739
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29739
Log:
[svn-upgrade] Integrating new upstream version, libaudio-mpd-common-perl (0.1.4)
Modified:
branches/upstream/libaudio-mpd-common-perl/current/Changes
branches/upstream/libaudio-mpd-common-perl/current/META.yml
branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common.pm
branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common/Item.pm
branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common/Item/Playlist.pm
branches/upstream/libaudio-mpd-common-perl/current/t/10-item.t
Modified: branches/upstream/libaudio-mpd-common-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-common-perl/current/Changes?rev=29739&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-common-perl/current/Changes (original)
+++ branches/upstream/libaudio-mpd-common-perl/current/Changes Sat Jan 17 03:20:43 2009
@@ -8,6 +8,9 @@
Low-level changelog
===================
+
+0.1.4 Tue Jan 6 16:40:08 CET 2009
+ - missing tag last_modified in amci:playlist (new in mpd 0.14)
0.1.3 Tue Sep 23 08:35:42 CEST 2008
- [rt#39529] missing tag fields in amci:song
Modified: branches/upstream/libaudio-mpd-common-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-common-perl/current/META.yml?rev=29739&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-common-perl/current/META.yml (original)
+++ branches/upstream/libaudio-mpd-common-perl/current/META.yml Sat Jan 17 03:20:43 2009
@@ -1,6 +1,6 @@
---
name: Audio-MPD-Common
-version: 0.1.3
+version: 0.1.4
author:
- 'Jerome Quelin <jquelin at cpan.org>'
abstract: a bunch of common helper classes for mpd
@@ -22,7 +22,7 @@
provides:
Audio::MPD::Common:
file: lib/Audio/MPD/Common.pm
- version: 0.1.3
+ version: 0.1.4
Audio::MPD::Common::Item:
file: lib/Audio/MPD/Common/Item.pm
Audio::MPD::Common::Item::Directory:
@@ -37,7 +37,7 @@
file: lib/Audio/MPD/Common/Status.pm
Audio::MPD::Common::Time:
file: lib/Audio/MPD/Common/Time.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: branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common.pm?rev=29739&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common.pm (original)
+++ branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common.pm Sat Jan 17 03:20:43 2009
@@ -11,7 +11,7 @@
use warnings;
use strict;
-our $VERSION = '0.1.3';
+our $VERSION = '0.1.4';
1;
Modified: branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common/Item.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common/Item.pm?rev=29739&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common/Item.pm (original)
+++ branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common/Item.pm Sat Jan 17 03:20:43 2009
@@ -23,9 +23,9 @@
sub new {
my ($pkg, %params) = @_;
- # transform keys in lowercase.
+ # transform keys in lowercase, remove dashes "-"
my %lowcase;
- @lowcase{ map { lc } keys %params } = values %params;
+ @lowcase{ map { s/-/_/; lc } keys %params } = values %params;
return Audio::MPD::Common::Item::Song->new(\%lowcase) if exists $params{file};
return Audio::MPD::Common::Item::Directory->new(\%lowcase) if exists $params{directory};
Modified: branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common/Item/Playlist.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common/Item/Playlist.pm?rev=29739&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common/Item/Playlist.pm (original)
+++ branches/upstream/libaudio-mpd-common-perl/current/lib/Audio/MPD/Common/Item/Playlist.pm Sat Jan 17 03:20:43 2009
@@ -13,7 +13,7 @@
use warnings;
use base qw[ Class::Accessor::Fast Audio::MPD::Common::Item ];
-__PACKAGE__->mk_accessors( qw[ playlist ] );
+__PACKAGE__->mk_accessors( qw[ last_modified playlist ] );
#our ($VERSION) = '$Rev: 5645 $' =~ /(\d+)/;
Modified: branches/upstream/libaudio-mpd-common-perl/current/t/10-item.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libaudio-mpd-common-perl/current/t/10-item.t?rev=29739&op=diff
==============================================================================
--- branches/upstream/libaudio-mpd-common-perl/current/t/10-item.t (original)
+++ branches/upstream/libaudio-mpd-common-perl/current/t/10-item.t Sat Jan 17 03:20:43 2009
@@ -12,7 +12,7 @@
use warnings;
use Audio::MPD::Common::Item;
-use Test::More tests => 21;
+use Test::More tests => 22;
my ($i, $output, @output, %params);
@@ -68,12 +68,15 @@
#
# testing amc::item::playlist
-$output = "playlist: some_name\n";
+$output = 'playlist: some_name
+Last-Modified: 2006-12-13T19:53:50Z
+';
@output = split /\n/, $output;
%params = map { /^([^:]+):\s+(.*)$/ ? ($1=>$2) : () } @output;
$i = Audio::MPD::Common::Item->new( %params );
isa_ok( $i, 'Audio::MPD::Common::Item::Playlist', 'playlist creation' );
is( $i->playlist, 'some_name', 'accessor: playlist' );
+is( $i->last_modified, '2006-12-13T19:53:50Z', 'accessor: last_modified' );
isa_ok( $i, 'Audio::MPD::Common::Item', 'playlistinherits from item' );
exit;
More information about the Pkg-perl-cvs-commits
mailing list