File: | /Users/michael/perl5/bin/prove |
Coverage: | 100.0% |
line | stmt | time | code |
---|---|---|---|
1 | #!/usr/bin/perl -w | ||
2 | |||
3 | 1 | 166773 | eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' |
4 | if 0; # not running under some shell | ||
5 | |||
6 | 1 1 1 | 8036 4 49 | use strict; |
7 | 1 1 1 | 7 1 57 | use warnings; |
8 | 1 1 1 | 772 92017 60634 | use App::Prove; |
9 | |||
10 | 1 | 16 | my $app = App::Prove->new; |
11 | 1 | 164 | $app->process_args(@ARGV); |
12 | 1 | 4213 | exit( $app->run ? 0 : 1 ); |
13 |