| line |
true |
false |
branch |
|
122
|
11 |
1 |
if ($options) { } |
|
124
|
14 |
30 |
if exists $$options{$key} |
|
126
|
1 |
10 |
if $$self{'debug'} |
|
141
|
0 |
0 |
unless -e $$self{'test_file'} |
|
144
|
0 |
0 |
%$existing_test_subs ? : |
|
155
|
1 |
1 |
if (defined $$self{'test_file'} and -e $$self{'test_file'}) { } |
|
205
|
2 |
1 |
unless (-d $dir) |
|
218
|
1 |
3 |
if (my $err = $@) |
|
227
|
159 |
48 |
if $name =~ /^[[:upper:]_]+$/ |
|
228
|
2 |
46 |
if $name =~ /^_/ and $$self{'skip_private_methods'} |
|
229
|
18 |
28 |
if $info->package ne $package |
|
231
|
27 |
1 |
unless ($$existing_test_subs{"test_$name"}) |
|
243
|
1 |
1 |
if ($package =~ /\./) |
|
247
|
1 |
0 |
if ($ln =~ /^package (.+);\s*$/) |
|
259
|
7 |
5 |
unless $debug |
|
269
|
0 |
1 |
unless (-e $$self{'test_file'}) |
|
276
|
10 |
160 |
if ($ln =~ /^\bsub\s+(\w+)/) |