[siesta-commit] siesta/lib Siesta.pm,1.9,1.10

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

From: clampr
Subject: [siesta-commit] siesta/lib Siesta.pm,1.9,1.10
Date: 15:26 on 23 Aug 2002
Update of /cvsroot/siesta/siesta/lib
In directory usw-pr-cvs1:/tmp/cvs-serv4992/lib

Modified Files:
	Siesta.pm 
Log Message:
change the Plugin->process api to simplify code

Index: Siesta.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- Siesta.pm	21 Aug 2002 16:49:03 -0000	1.9
+++ Siesta.pm	23 Aug 2002 14:26:34 -0000	1.10
@@ -15,14 +15,14 @@
 sub process {
     my %args = @_;
     my $mail = Siesta::Message->new( $args{mail} );
-    my $list = Siesta::List->new( $args{list} )
+    my $list = $mail->list( Siesta::List->new( $args{list} ) )
       or die "couldn't load list '$args{list}'";
     for my $class (map { "Siesta::Plugin::$_" } $list->plugins) {
         print "$class\n" if debug;
         eval "require $class";
         die $@ if $@;
         my $plugin = $class->new;
-        return if $plugin->process(mail => $mail, list => $list);
+        return if $plugin->process( $mail );
     }
 }
 



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