diff --git a/lib/Text/Playlist.pm b/lib/Text/Playlist.pm index cb63054..dd603a3 100644 --- a/lib/Text/Playlist.pm +++ b/lib/Text/Playlist.pm @@ -11,6 +11,9 @@ sub items { return wantarray ? @{$self->{items}} : $self->{items}; } +sub parse { die("must be implemented by subclass\n") } +sub dump { die("must be implemented by subclass\n") } + sub load { my ($self, $file) = @_; @@ -33,3 +36,36 @@ sub save { } 1; + +=pod + +=head1 NAME + +Text::Playlist -- base class for working with various playlist formats + +=head1 Methods + +=head2 C + + my @items = $pls->items; # array + my $items = $pls->items; # arrayref + +Returns array of playlist items. + +=head2 C + + $pls->load('playlist.pls'); + +Simple helper for loading playlist from file. See also C. + +=head2 C + + $pls->save('playlist.pls'); + +Simple helper for saving playlist to file. See also C. + +=head1 AUTHORS + + Alex 'AdUser' Z + +=cut