[siesta-commit] siesta/lib/Siesta Message.pm,1.13,1.14

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

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

Modified Files:
	Message.pm 
Log Message:
simplify subjecttag by adding a convenience method to Message + tests for subjecttag

Index: Message.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Message.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- Message.pm	23 Aug 2002 14:26:38 -0000	1.13
+++ Message.pm	23 Aug 2002 15:20:30 -0000	1.14
@@ -15,6 +15,14 @@
     Email::Valid->address( $self->head->get('From') );
 }
 
+sub subject {
+    my $self = shift;
+    if (@_) {
+        $self->head->replace('Subject', shift);
+    }
+    $self->head->get('Subject');
+}
+
 sub reply {
 
 }

• [siesta-commit] siesta/lib/Siesta Message.pm,1.13,1.14 clampr 16:20 on 23 Aug 2002

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