Implement strict constructors, which will warn unkown constructor arguments

[gitmo/Mouse.git] / author / he-profile.pl

diff --git a/author/he-profile.pl b/author/he-profile.pl
index dbab673..31138be 100644 (file)
--- a/author/he-profile.pl
+++ b/author/he-profile.pl
@@ -3,27 +3,31 @@
 
 use strict;
 
-my $script = 'bench/foo.pl';
+my $script = 'author/use-he.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;
+    if(open my $in, '.git/HEAD'){
+        my $s = scalar <$in>;
+        chomp $s;
+        $s =~ s{^ref: \s+ refs/heads/}{}xms;
+        $s =~ s{/}{_}xmsg;
+        $s;
+    }
+    else{
+        require 'lib/Mouse/Spec.pm';
+        Mouse::Spec->VERSION;
+    }
 };
 
 print "Profiling $branch ...\n";
 
-my @cmd = ($^X, '-Iblib/lib', '-Iblib/arch', '-d:NYTProf', '-e',
-    'require HTTP::Engine; require HTTP::Engine::Interface::CGI');
+my @cmd = ($^X, '-Iblib/lib', '-Iblib/arch', '-d:NYTProf', $script);
 
 print "> @cmd\n";
-system(@cmd) == 0 or die "Cannot profile";
-system(@cmd) == 0 or die "Cannot profile";
-system(@cmd) == 0 or die "Cannot profile";
+system(@cmd) == 0 or die "Cannot profile (\$?=$?)";
+system(@cmd) == 0 or die "Cannot profile (\$?=$?)";
+system(@cmd) == 0 or die "Cannot profile (\$?=$?)";
 
 @cmd = ($^X, '-S', 'nytprofhtml', '--out', "nytprof-$branch");
 print "> @cmd\n";
-system(@cmd) == 0 or die "Cannot profile";
+system(@cmd) == 0 or die "Cannot profile (\$?=$?)";