[prev] [thread] [next] [lurker] [Date index for 2002/09/08]
Update of /cvsroot/siesta/siesta/lib/Siesta In directory usw-pr-cvs1:/tmp/cvs-serv13430 Modified Files: User.pm Log Message: layout fixes Index: User.pm =================================================================== RCS file: /cvsroot/siesta/siesta/lib/Siesta/User.pm,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- User.pm 6 Sep 2002 10:26:14 -0000 1.12 +++ User.pm 8 Sep 2002 14:57:55 -0000 1.13 @@ -9,8 +9,7 @@ @fields = qw(id forename surname password bouncing lastbounce created); } -use Class::MethodMaker - get_set => \@fields; +use Class::MethodMaker get_set => \@fields; =head1 NAME @@ -77,20 +76,19 @@ return bless $hash, $class; } -sub lists -{ - my $self = shift; - return Siesta->storage->user_lists($self->id); +sub lists { + my $self = shift; + return Siesta->storage->user_lists($self->id); } sub save { - my $self = shift; - return Siesta->storage->save_user($self); + my $self = shift; + return Siesta->storage->save_user($self); } sub delete { - my $self = shift; - return Siesta->storage->delete_user($self) + my $self = shift; + return Siesta->storage->delete_user($self) } 1;
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52