|
|
|
@ -6,10 +6,9 @@ use feature qw(switch);
|
|
|
|
|
use utf8; |
|
|
|
|
|
|
|
|
|
use base 'Text::Playlist'; |
|
|
|
|
|
|
|
|
|
use XML::XPath; |
|
|
|
|
|
|
|
|
|
our $VERSION = 0.1; |
|
|
|
|
our $VERSION = "v0.1.0"; |
|
|
|
|
|
|
|
|
|
sub new { |
|
|
|
|
my ($class) = @_; |
|
|
|
@ -62,8 +61,21 @@ __END__
|
|
|
|
|
|
|
|
|
|
Text::Playlist::XSPF - parser for 'xspf' format |
|
|
|
|
|
|
|
|
|
=head1 SYNOPSIS |
|
|
|
|
|
|
|
|
|
my $xspf = Text::Playlist::XSPF->new; |
|
|
|
|
my @items = $xspf->load('/path/to/playlist.xspf'); |
|
|
|
|
|
|
|
|
|
foreach my $item (@items) { |
|
|
|
|
<work with playlist items> |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
=head1 DESCRIPTION |
|
|
|
|
|
|
|
|
|
Fast-and-dirty parser for xspf playlist. |
|
|
|
|
Will be usefull if you're just want to read playlist or simple want |
|
|
|
|
to convert such playlist to more common alternative. |
|
|
|
|
|
|
|
|
|
=head2 C<load> |
|
|
|
|
=head2 C<parse> |
|
|
|
|
=head2 C<save> |
|
|
|
@ -82,12 +94,20 @@ Each parsed item has the following keys in hashref:
|
|
|
|
|
- External URL : http://www.example.com/music/bar.ogg |
|
|
|
|
* title -- title for given item, required |
|
|
|
|
|
|
|
|
|
=head1 TODO |
|
|
|
|
|
|
|
|
|
C<dump()> method still not implemented |
|
|
|
|
|
|
|
|
|
=head1 SEE ALSO |
|
|
|
|
|
|
|
|
|
L<XML::Toolkit> -- contains complete implementation for work with XSPF format |
|
|
|
|
|
|
|
|
|
=head1 LINKS |
|
|
|
|
|
|
|
|
|
L<https://en.wikipedia.org/wiki/XML_Shareable_Playlist_Format> |
|
|
|
|
|
|
|
|
|
=head1 AUTHORS |
|
|
|
|
|
|
|
|
|
Alex 'AdUser' Z <ad_user@runbox.com> |
|
|
|
|
Alex 'AdUser' Z <aduser@cpan.org> |
|
|
|
|
|
|
|
|
|
=cut |
|
|
|
|