Select Code to Download

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;
}