Heray-Was-Here
Server : Apache
System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64
User : calvet ( 273824)
PHP Version : 7.4.33
Disable Function : NONE
Directory :  /proc/self/root/proc/self/root/usr/share/doc/perl-Moose/benchmarks/cmop/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //proc/self/root/proc/self/root/usr/share/doc/perl-Moose/benchmarks/cmop/profile.pl
#!/usr/bin/perl -w
# Usage: perl bench/profile.pl (no other options including -Mblib are reqired)

use strict;

my $script = 'bench/foo.pl';

my $branch = do {
    open my $in, '.git/HEAD' or die "Cannot open .git/HEAD: $!";
    my $s = scalar <$in>;
    chomp $s;
    $s =~ s{^ref: \s+ refs/heads/}{}xms;
    $s =~ s{/}{_}xmsg;
    $s;
};

print "Profiling $branch ...\n";

my @cmd = ( $^X, '-Iblib/lib', '-Iblib/arch', $script );
print "> @cmd\n";
system(@cmd) == 0 or die "Cannot profile";

@cmd = ( $^X, '-S', 'nytprofhtml', '--out', "nytprof-$branch" );
print "> @cmd\n";
system(@cmd) == 0 or die "Cannot profile";

Hry