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

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

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

Modified Files:
	Plugin.pm 
Log Message:
fix layout, interleave docs and code


Index: Plugin.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- Plugin.pm	8 Sep 2002 12:04:23 -0000	1.10
+++ Plugin.pm	8 Sep 2002 15:08:16 -0000	1.11
@@ -3,30 +3,6 @@
 
 use Class::MethodMaker new => 'new';
 
-sub process { die "virtual" }
-
-sub config 
-{
-	my $self = shift;
-	(my $package = ref $self) =~ s!^.*::!!;
-
-	my $mail = shift;	
-
-	
-
-	my $list_id = $mail->list->id || undef if defined $mail->list;
-	my $user_id = $mail->user->id || undef if defined $mail->user;
-
-	
-
-	return Siesta->storage->config($package, $user_id, $list_id, @_);
-
-}
-
-
-
-1;
-__END__
 =head1 NAME
 
 Siesta::Plugin - base class for Siesta Plugins
@@ -46,12 +22,35 @@
 Return a true value to indicate "process no further plugins".  use
 this for message rejection.
 
-=item ->config($message, $key, [$value])  
+=cut
 
-gets (or sets) the value of key for this plugin based on the 
+sub process { die "virtual" }
+
+
+=item ->config($message, $key, [$value])
+
+gets (or sets) the value of key for this plugin based on the
 list and user.
 
 See B<Siesta::Storage> for more details.
+
+
+sub config {
+    my $self = shift;
+    (my $package = ref $self) =~ s!^.*::!!;
+
+    my $mail = shift;   
+
+    my $list_id = $mail->list->id || undef if defined $mail->list;
+    my $user_id = $mail->user->id || undef if defined $mail->user;
+
+    return Siesta->storage->config($package, $user_id, $list_id, @_);
+}
+
+
+1;
+
+__END__
 
 =back
 

• [siesta-commit] siesta/lib/Siesta Plugin.pm,1.10,1.11 clampr 16:08 on 08 Sep 2002

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