package STR;
use Class::Std::Fast; ## cache => 1;

package main;
use Time::HiRes qw[ time ];

my $start = time;
STR->new for 1 .. 1e6;
printf "Took %.8f seconds\n", ( time - $start ) / 1e6;

__END__
## With caching
c:\test>junk64
Took 0.00002447 seconds

## Without caching
c:\test>junk64
Took 0.00002391 seconds