[siesta-commit] siesta/lib Siesta.pm,1.25,1.26

[prev] [thread] [next] [lurker] [Date index for 2003/03/15]

From: clampr
Subject: [siesta-commit] siesta/lib Siesta.pm,1.25,1.26
Date: 21:39 on 15 Mar 2003
Update of /cvsroot/siesta/siesta/lib
In directory sc8-pr-cvs1:/tmp/cvs-serv9889/lib

Modified Files:
	Siesta.pm 
Log Message:
refactor get_lists

Index: Siesta.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- Siesta.pm	15 Mar 2003 20:15:40 -0000	1.25
+++ Siesta.pm	15 Mar 2003 21:39:18 -0000	1.26
@@ -144,6 +144,17 @@
     return sort keys %plugins;
 }
 
+=item ->lists {
+
+=cut
+
+sub lists {
+    my $self = shift;
+
+    map { Siesta::List->new_from_hash(%$_) } $self->storage->get_lists;
+
+}
+
 =head1 COPYING
 
 Licensed under the same terms as Perl itself.



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