Changeset 26325

Timestamp:

12/10/08 22:56:45 (4 years ago)

Author:

bonnu

Message:

lang/perl/Method-Cached: フェーズ変更

Location:

lang/perl/Method-Cached/trunk

Files:

• lib/Method/Cached.pm (modified) (2 diffs)
• t/benchmark.pl (modified) (1 diff)

lang/perl/Method-Cached/trunk/lib/Method/Cached.pm

@@ -47 +47 @@
 }
 
-sub UNIVERSAL::Cached :ATTR(CODE,BEGIN,CHECK) {
+sub UNIVERSAL::Cached :ATTR(CODE,BEGIN,INIT) {
     my ($package, $symbol, $code, $attr, $args, $phase, $file, $line) = @_;
     $args = [ $args || () ] if ref $args ne 'ARRAY';
@@ -65 +65 @@
         _method_info($package, $name, $code, _parse_attr_args(@{$args}));
     }
-    if ($phase eq 'CHECK') {
+    if ($phase eq 'INIT') {
         my $name = $package . '::' . *{$symbol}{NAME};
         _method_info($package, $name, $code, _parse_attr_args(@{$args}));

lang/perl/Method-Cached/trunk/t/benchmark.pl

@@ -76 +76 @@
 sub fm_fib  { $fm_fib  = $num; $fm_fib  = Dummy::fib_fastmmap($fm_fib)  }
 
-cmpthese(1, {
+cmpthese(50000, {
     'fib'               => \&fib,
     'C(default)'        => \&def_fib,