rev 1481 - in trunk/mariachi/lib: . Mariachi Template/Plugin

[prev] [thread] [next] [lurker] [Date index for 2003/11/27]

From: richardc
Subject: rev 1481 - in trunk/mariachi/lib: . Mariachi Template/Plugin
Date: 16:58 on 27 Nov 2003
Author: richardc
Date: 2003-11-27 16:58:11 +0000 (Thu, 27 Nov 2003)
New Revision: 1481

Modified:
   trunk/mariachi/lib/Mariachi.pm
   trunk/mariachi/lib/Mariachi/Message.pm
   trunk/mariachi/lib/Template/Plugin/Mariachi.pm
Log:
some tidyups made possibly by 5.6.1

Modified: trunk/mariachi/lib/Mariachi/Message.pm
===================================================================
--- trunk/mariachi/lib/Mariachi/Message.pm	2003-11-27 16:50:19 UTC (rev 1480)
+++ trunk/mariachi/lib/Mariachi/Message.pm	2003-11-27 16:58:11 UTC (rev 1481)
@@ -1,7 +1,6 @@
 use strict;
 package Mariachi::Message;
 use Email::Simple;
-use Class::Accessor::Fast;
 use Digest::MD5 qw(md5_hex);
 use Date::Parse qw(str2time);
 use Text::Original ();

Modified: trunk/mariachi/lib/Mariachi.pm
===================================================================
--- trunk/mariachi/lib/Mariachi.pm	2003-11-27 16:50:19 UTC (rev 1480)
+++ trunk/mariachi/lib/Mariachi.pm	2003-11-27 16:58:11 UTC (rev 1481)
@@ -1,21 +1,16 @@
 use strict;
 package Mariachi;
-use Class::Accessor::Fast;
 use Email::Thread;
 use Template;
 use Time::HiRes qw( gettimeofday tv_interval );
-use Data::Dumper qw( Dumper );
 use Storable qw( store retrieve );
 use File::Path qw( mkpath );
 use File::Copy qw( copy move );
 use File::Find::Rule;
 use File::Basename;
+use base qw( Class::Accessor::Fast );
+our $VERSION = '0.51';
 
-use base 'Class::Accessor::Fast';
-
-use vars '$VERSION';
-$VERSION = '0.51';
-
 __PACKAGE__->mk_accessors( qw( config messages rootset
                                start_time last_time tt ) );
 

Modified: trunk/mariachi/lib/Template/Plugin/Mariachi.pm
===================================================================
--- trunk/mariachi/lib/Template/Plugin/Mariachi.pm	2003-11-27 16:50:19 UTC (rev 1480)
+++ trunk/mariachi/lib/Template/Plugin/Mariachi.pm	2003-11-27 16:58:11 UTC (rev 1481)
@@ -1,18 +1,13 @@
-package Template::Plugin::Mariachi;
-
 use strict;
-use Template::Plugin::Filter;
-use base qw(Template::Plugin::Filter);
-use vars qw($FILTER_NAME);
-use Carp;
-
-$FILTER_NAME = "mariachi";
-
+package Template::Plugin::Mariachi;
 use URI::Find::Schemeless::Stricter;
 use Email::Find;
+use Carp qw(croak);
 
-=pod
+use base qw(Template::Plugin::Filter);
 
+our $FILTER_NAME = "mariachi";
+
 =head1 NAME
 
 Template::Plugin::Mariachi - gussy up email for the Mariachi mailing list archiver

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