* Text::Parse : pod

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<items>
+
+  my @items = $pls->items; # array
+  my $items = $pls->items; # arrayref
+
+Returns array of playlist items.
+
+=head2 C<load>
+
+  $pls->load('playlist.pls');
+
+Simple helper for loading playlist from file. See also C<parse>.
+
+=head2 C<save>
+
+  $pls->save('playlist.pls');
+
+Simple helper for saving playlist to file. See also C<dump>.
+
+=head1 AUTHORS
+
+  Alex 'AdUser' Z <ad_user@runbox.com>
+
+=cut