From 432d6714a2a92ef5d68615d15c9ffce3f6dd029b Mon Sep 17 00:00:00 2001
From: Alex 'AdUser' Z <ad_user@runbox.com>
Date: Wed, 6 May 2015 13:34:22 +1000
Subject: [PATCH] * Text::Parse : pod

---
 lib/Text/Playlist.pm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

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<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