[siesta-commit] siesta/lib/Siesta List.pm,1.32,1.33

[prev] [thread] [next] [lurker] [Date index for 2002/09/08]

Update of /cvsroot/siesta/siesta/lib/Siesta
In directory usw-pr-cvs1:/tmp/cvs-serv15087

Modified Files:
	List.pm 
Log Message:
interleave docs and code - fix layout


Index: List.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/List.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- List.pm	7 Sep 2002 12:33:25 -0000	1.32
+++ List.pm	8 Sep 2002 15:05:08 -0000	1.33
@@ -11,24 +11,41 @@
 
 use Class::MethodMaker get_set => \@fields;
 
-=pod
-
 =head1 NAME
 
 Siesta::List - manipulate a list
 
-
 =head1 METHODS
 
 =head2 ->new
 
 takes a list_id and retrieves the information from the database.
 
+=cut
+
+sub new {
+    my $class = shift;
+    my $id    = shift;
+
+    my %list = Siesta->storage->load_list( $id );
+    return unless %list;
+
+    return bless \%list, $class;
+}
+
 =head2 ->new_from_hash
 
 takes a hash (possible keys are the values of @Siesta::List::fields)
 and creates a new object.
 
+=cut
+
+sub new_from_hash {
+    my $class = shift;
+    my $hash  = shift;
+
+    bless $hash, $class;
+}
 
 =head2 ->id
 
@@ -54,42 +71,29 @@
 
 insert or update this object in the database.
 
+=cut
+
+sub save {
+    my $self = shift;
+    return Siesta->storage->save_list($self);
+}
+
 =head2 ->delete
 
 delete this object from the database.
 
-=head2 ->config
-
-get and set config values for this User.
 =cut
 
-sub new {
-    my $class = shift;
-    my $id    = shift;
-
-    my %list = Siesta->storage->load_list( $id );
-    return unless %list;
-
-    return bless \%list, $class;
+sub delete {
+    my $self = shift;
+    return Siesta->storage->delete_list($self)
 }
 
 
-sub new_from_hash {
-        my $class = shift;
-        my $hash  = shift;
-
-        bless $hash, $class;
-}
+=head2 ->config
 
-sub save {
-        my $self = shift;
-        return Siesta->storage->save_list($self);
-}
+get and set config values for this User.
 
-sub delete {
-        my $self = shift;
-        return Siesta->storage->delete_list($self)
-}
 
 =head2 is_member(member)
 

• [siesta-commit] siesta/lib/Siesta List.pm,1.32,1.33 clampr 16:05 on 08 Sep 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52