X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTime%2Flocaltime.pm;h=c3d9fb36085c8e5cc28076def71cb6ead3e54ac9;hb=eb6393247e5113feb0b19b71cbdee87eebedbbb7;hp=8f7695b0f52fb469d0a300e962d941b7f9ee8643;hpb=72451f4af0d31f24ef5b12bc5d034e3e8b35d43d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Time/localtime.pm b/lib/Time/localtime.pm
index 8f7695b..c3d9fb3 100644
--- a/lib/Time/localtime.pm
+++ b/lib/Time/localtime.pm
@@ -1,10 +1,12 @@
 package Time::localtime;
 use strict;
+use 5.006_001;
+
 use Time::tm;
 
-BEGIN { 
+our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
+BEGIN {
     use Exporter   ();
-    use vars       qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
     @ISA         = qw(Exporter Time::tm);
     @EXPORT      = qw(localtime ctime);
     @EXPORT_OK   = qw(  
@@ -13,6 +15,7 @@ BEGIN {
 			$tm_isdst
 		    );
     %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] );
+    $VERSION     = 1.02;
 }
 use vars      @EXPORT_OK;
 
@@ -27,8 +30,8 @@ sub populate (@) {
     return $tmob;
 } 
 
-sub localtime (;$) { populate CORE::localtime(shift||time)}
-sub ctime (;$)     { scalar   CORE::localtime(shift||time) } 
+sub localtime (;$) { populate CORE::localtime(@_ ? shift : time)}
+sub ctime (;$)     { scalar   CORE::localtime(@_ ? shift : time) } 
 
 1;
 
@@ -64,7 +67,7 @@ variables named with a preceding C<tm_> in front their method names.
 Thus, C<$tm_obj-E<gt>mday()> corresponds to $tm_mday if you import
 the fields.
 
-The ctime() funtion provides a way of getting at the 
+The ctime() function provides a way of getting at the 
 scalar sense of the original CORE::localtime() function.
 
 To access this functionality without the core overrides,
@@ -75,7 +78,7 @@ via the C<CORE::> pseudo-package.
 
 =head1 NOTE
 
-While this class is currently implemented using the Class::Template
+While this class is currently implemented using the Class::Struct
 module to build a struct-like class, you shouldn't rely upon this.
 
 =head1 AUTHOR