Select Code to Download

Select or download this
```
#test.pl
use lib '.';
...
}

1;
```

Perl 5.8.8 Machine:
> Benchmark: running set_inherited_class, set_inherited_object for at 
+least 3 CPU seconds...
...
> set_inherited_class:  3 wallclock secs ( 3.12 usr +  0.01 sys =  3.1
+3 CPU) @ 335388.09/s (n=1050708)
> set_inherited_object:  2 wallclock secs ( 3.15 usr +  0.00 sys =  3.
+15 CPU) @ 412676.76/s (n=1299287)
> claco@fbsd510 ~ $

Select or download this

package Foo;
use Scalar::Util qw/blessed reftype/;
...
}

1;

Select or download this

5.8.8
> Benchmark: running set_inherited_class, set_inherited_object for at 
+least 3 CPU seconds...
...
> set_inherited_class:  4 wallclock secs ( 3.09 usr +  0.01 sys =  3.1
+0 CPU) @ 536733.34/s (n=1664712)
> set_inherited_object:  4 wallclock secs ( 3.13 usr +  0.00 sys =  3.
+13 CPU) @ 638055.42/s (n=1998908)
> claco@fbsd510 ~ $

Select or download this

package Foo;
use Scalar::Util qw/blessed reftype/;
...
}

1;

Select or download this

Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
  Platform:
...
    /usr/local/lib/perl5/site_perl/5.10.0/i386-freebsd
    /usr/local/lib/perl5/site_perl/5.10.0
    .