rev 1824 - trunk/Email-Store-Thread/lib/Email/Store

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

Author: richardc
Date: 2005-02-06 17:04:44 +0000 (Sun, 06 Feb 2005)
New Revision: 1824

Modified:
   trunk/Email-Store-Thread/lib/Email/Store/Thread.pm
Log:
"emables perls safety features"


Modified: trunk/Email-Store-Thread/lib/Email/Store/Thread.pm
===================================================================
--- trunk/Email-Store-Thread/lib/Email/Store/Thread.pm	2005-02-06 16:52:56 UTC (rev 1823)
+++ trunk/Email-Store-Thread/lib/Email/Store/Thread.pm	2005-02-06 17:04:44 UTC (rev 1824)
@@ -1,4 +1,6 @@
 package Email::Store::Thread;
+use strict;
+use warnings;
 our $VERSION = "1.1";
 
 # Watch the pea. It's under the first shell
@@ -13,7 +15,7 @@
     # If I'm in the root set, then everyone under me has to know the new
     # root.
     if (grep { $container == $_ } $threader->rootset) {
-        $container->recurse_down(sub { shift->root($container) }); 
+        $container->recurse_down(sub { shift->root($container) });
     } else {
        # Otherwise, work upwards until I find a root.
        $container->find_root_upwards;
@@ -53,7 +55,7 @@
 my %container_cache = ();
 sub new {
     my ($class, $id) = @_;
-    $container_cache{$id} 
+    $container_cache{$id}
         ||= $class->find_or_create({ message => $id });
 }
 
@@ -75,11 +77,11 @@
     }
 }
 
-sub subject { $_[0]->message->message ? shift->message->simple->header("Subject") : "" } 
+sub subject { $_[0]->message->message ? shift->message->simple->header("Subject") : "" }
 
 package Email::Store::Mail;
 sub container {
-    Email::Store::Thread::Container->new(shift->message_id) 
+    Email::Store::Thread::Container->new(shift->message_id)
 }
 
 

• rev 1824 - trunk/Email-Store-Thread/lib/Email/Store richardc 17:04 on 06 Feb 2005

Generated at 18:00 on 06 Feb 2005 by mariachi 0.52