Changeset 4653

Timestamp:

01/16/08 10:15:04 (5 years ago)

Author:

miyagawa

Message:

simplify aliasing

Files:

• lang/perl/Acme-DateTime-Duration-Numeric/trunk/lib/Acme/DateTime/Duration/Numeric.pm (modified) (1 diff)

lang/perl/Acme-DateTime-Duration-Numeric/trunk/lib/Acme/DateTime/Duration/Numeric.pm

@@ -27 +27 @@
     no strict 'refs';
     my $plural = $accessor . "s";
-    *$accessor = sub {
+    *$accessor = *$plural = sub {
         my $self = shift;
         DateTime::Duration->new($plural => $self->{value});
     };
-    *$plural = \&{$accessor};
 }