Changeset 13120 for lang/perl/autobox-DateTime-Duration

Timestamp:

06/03/08 16:45:23 (5 years ago)

Author:

tokuhirom

Message:

use modern autobox style.

Location:

lang/perl/autobox-DateTime-Duration/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/autobox/DateTime/Duration.pm (modified) (1 diff)
• t/01_duration.t (modified) (1 diff)
• t/02_ago_from_now.t (modified) (1 diff)

lang/perl/autobox-DateTime-Duration/trunk/Makefile.PL

@@ -3 +3 @@
 all_from 'lib/autobox/DateTime/Duration.pm';
 
-requires 'autobox';
+requires 'autobox' => 2.55;
 requires 'DateTime';
 requires 'DateTime::Duration';

lang/perl/autobox-DateTime-Duration/trunk/lib/autobox/DateTime/Duration.pm

@@ -5 +5 @@
 our $VERSION = '0.02';
 
-use autobox;
+use base qw(autobox);
 use DateTime;
 use DateTime::Duration;
 
+sub import {
+    my $class = shift;
+    $class->SUPER::import(NUMBER => 'autobox::DateTime::Duration::Number');
+}
+
+package # hide from pause
+    autobox::DateTime::Duration::Number;
+
 for my $accessor (qw( day hour minute month second week year )) {
-    no strict 'refs';
+    no strict 'refs'; ## no critic
     my $plural = $accessor . "s";
-    *{"SCALAR::$accessor"} = *{"SCALAR::$plural"} = sub {
+    *{"autobox::DateTime::Duration::Number::$accessor"} = *{"autobox::DateTime::Duration::Number::$plural"} = sub {
         DateTime::Duration->new($plural => $_[0]);
     };
 }
 
-sub SCALAR::fortnight {
+sub autobox::DateTime::Duration::Number::fortnight {
     DateTime::Duration->new(weeks => 2 * $_[0]);
 }
 
-*SCALAR::fortnights = \&SCALAR::fortnight;
+*autobox::DateTime::Duration::Number::fortnights = \&autobox::DateTime::Duration::Number::fortnight;
 
 sub DateTime::Duration::ago {

lang/perl/autobox-DateTime-Duration/trunk/t/01_duration.t

@@ -12 +12 @@
 run {
     my $block = shift;
-    my $duration = eval "use autobox; use autobox::DateTime::Duration;" . $block->input;
+    my $duration = eval "use autobox::DateTime::Duration;" . $block->input;
     die $@ if $@;
     is $base->clone->add_duration($duration)->iso8601, $block->expected, $block->input;

lang/perl/autobox-DateTime-Duration/trunk/t/02_ago_from_now.t

@@ -12 +12 @@
 run {
     my $block = shift;
-    my $datetime = eval "use autobox; use autobox::DateTime::Duration;" . $block->input . "(\$base)";
+    my $datetime = eval "use autobox::DateTime::Duration;" . $block->input . "(\$base)";
     die $@ if $@;
     is $datetime->iso8601, $block->expected, $block->input;