Sophie: perl-Devel-NYTProf-5.60.0-2.mga4 x86

perl-Devel-NYTProf-5.60.0-2.mga4.x86_64.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse



my $subref = sub { return };

for my $i (1..100_000) {

    some_expensive_sub();

    $subref->();
    $subref->(); # identical but faster!

    1; # loop
}

sub some_expensive_sub{

    my @x = (1000..1010);
    m/x/ for @x;

}