[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 {
Generated at 05:00 on 04 Feb 2005 by mariachi 0.52