view release on metacpan or  search on metacpan

eg/eg.pl  view on Meta::CPAN

print "Using native Perl types (ROR_native), the ROR is ", ROR_native(), "\n";

sub ROR_objects {
    ROR(bmv => $bmvobj, emv => $emvobj);
}


print "Using Math::FixedPrecision objects (ROR_objects), the ROR is ", ROR_objects(),"\n";

print "Go get a cup of coffee while we time 10000 iterations each of ROR_native and ROR_objects\n";

print "Start: @{[scalar(localtime())]}\n";
cmpthese($count,
	 {
	  ROR_native => \&ROR_native,
	  ROR_objects => \&ROR_objects,
	 }
	);
print "End: @{[scalar(localtime())]}\n";