Help for this page
use v5.10; use strict; ... Rate method call fun call method call 4365983/s -- -15% fun call 5128108/s 17% --
sub Foo::bar { my $filename = sprintf('/tmp/%s.txt', ref $_[0]); ... close $fh or die($!); 1 while unlink $filename; }