[gitmo/Class-MOP.git] / bench / profile.pl

#!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";
Commit	Line	Data
26b2e5ab	1	#!perl -w
	2	# Usage: perl bench/profile.pl (no other options including -Mblib are reqired)
	3
	4	use strict;
	5
	6	my $script = 'bench/foo.pl';
	7
78d1cea6	8	my $branch = do {
	9	open my $in, '.git/HEAD' or die "Cannot open .git/HEAD: $!";
	10	my $s = scalar <$in>;
	11	chomp $s;
	12	$s =~ s{^ref: \s+ refs/heads/}{}xms;
	13	$s =~ s{/}{_}xmsg;
	14	$s;
26b2e5ab	15	};
	16
	17	print "Profiling $branch ...\n";
	18
78d1cea6	19	my @cmd = ( $^X, '-Iblib/lib', '-Iblib/arch', $script );
26b2e5ab	20	print "> @cmd\n";
	21	system(@cmd) == 0 or die "Cannot profile";
	22
78d1cea6	23	@cmd = ( $^X, '-S', 'nytprofhtml', '--out', "nytprof-$branch" );
26b2e5ab	24	print "> @cmd\n";
26b2e5ab	25	system(@cmd) == 0 or die "Cannot profile";