rev 1809 - trunk/Email-Store/lib/Email/Store

[prev] [thread] [next] [lurker] [Date index for 2005/02/04]

Author: richardc
Date: 2005-02-04 04:05:13 +0000 (Fri, 04 Feb 2005)
New Revision: 1809

Modified:
   trunk/Email-Store/lib/Email/Store/Mail.pm
Log:
bitch about modification of the message attribute


Modified: trunk/Email-Store/lib/Email/Store/Mail.pm
===================================================================
--- trunk/Email-Store/lib/Email/Store/Mail.pm	2005-02-03 17:05:09 UTC (rev 1808)
+++ trunk/Email-Store/lib/Email/Store/Mail.pm	2005-02-04 04:05:13 UTC (rev 1809)
@@ -14,7 +14,19 @@
 use Email::Simple;
 use Email::MessageID;
 
+sub message {
+    my $self = shift;
+    if (@_) {
+        # we want to stamp out direct modification of the pristine message
+        # for now, allow it and complain
 
+        my $who = caller;
+        warn "(re)setting the message is frowned upon - please fix $who\n";
+        $self->set('message', @_);
+    }
+    return $self->get('message');
+}
+
 sub _simple { Email::Simple->new(shift); } # RFC2822 -> Email::Simple
 
 sub simple {

• rev 1809 - trunk/Email-Store/lib/Email/Store richardc 04:05 on 04 Feb 2005

Generated at 05:00 on 04 Feb 2005 by mariachi 0.52