| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package MyModuleBuilder; |
|
2
|
1
|
|
|
1
|
|
1082
|
use Module::Build; |
|
|
1
|
|
|
|
|
126536
|
|
|
|
1
|
|
|
|
|
224
|
|
|
3
|
|
|
|
|
|
|
our @ISA = qw(Module::Build); |
|
4
|
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
sub ACTION_testcover { |
|
6
|
|
|
|
|
|
|
$ENV{DEVEL_COVER_OPTIONS} = '-ignore,^Test/,-coverage,all,pod-also_private-STORABLE_' |
|
7
|
0
|
0
|
|
0
|
0
|
0
|
unless exists $ENV{DEVEL_COVER_OPTIONS}; |
|
8
|
0
|
|
|
|
|
0
|
print "DEVEL_COVER_OPTIONS = $ENV{DEVEL_COVER_OPTIONS}\n"; |
|
9
|
0
|
|
|
|
|
0
|
shift->SUPER::ACTION_testcover; |
|
10
|
|
|
|
|
|
|
} |
|
11
|
|
|
|
|
|
|
sub ACTION_test { |
|
12
|
1
|
50
|
|
1
|
0
|
125
|
local $_[0]->{properties}{verbose} = 1 if $ENV{AUTOMATED_TESTING}; |
|
13
|
1
|
|
|
|
|
42
|
$_[0]->SUPER::ACTION_test; |
|
14
|
|
|
|
|
|
|
} |
|
15
|
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
1; |