| line |
true |
false |
branch |
|
23
|
16 |
0 |
if ($target =~ /^\w+(::\w+)*$/) { } |
|
|
0 |
0 |
elsif ($target =~ /\.pm$/) { } |
|
43
|
21 |
17 |
if (my(@keys) = grep({not /::$/;} keys %{"${classname}::";})) |
|
50
|
2 |
15 |
if $@ |
|
58
|
0 |
0 |
if $@ |
|
69
|
7 |
0 |
if $suite |
|
78
|
0 |
14 |
unless $package |
|
81
|
0 |
14 |
unless $suite |
|
88
|
3 |
11 |
if ($package->can('suite')) |
|
97
|
11 |
0 |
if ($package->isa('Test::Unit::TestCase')) |
|
109
|
67 |
0 |
if (my $a_class_instance = $classname->new($method)) { } |
|
119
|
1 |
20 |
unless @testcases |
|
129
|
0 |
0 |
if (-r $file) |
|
131
|
0 |
0 |
unless open FH, $file |
|
133
|
0 |
0 |
unless close FH |
|
142
|
0 |
0 |
if (-d $test_dir) |
|
157
|
0 |
0 |
unless $real_path and open FH, $real_path |
|
160
|
0 |
0 |
if (/^\s*package\s+([\w:]+)/) |