| line |
true |
false |
branch |
|
20
|
16 |
0 |
if ($target =~ /^\w+(::\w+)*$/) { } |
|
|
0 |
0 |
elsif ($target =~ /\.pm$/) { } |
|
40
|
21 |
17 |
if (my(@keys) = grep({not /::$/;} keys %{"${classname}::";})) |
|
47
|
2 |
15 |
if $@ |
|
55
|
0 |
0 |
if $@ |
|
66
|
7 |
0 |
if $suite |
|
75
|
0 |
14 |
unless $package |
|
78
|
0 |
14 |
unless $suite |
|
85
|
3 |
11 |
if ($package->can('suite')) |
|
94
|
11 |
0 |
if ($package->isa('Test::Unit::TestCase')) |
|
106
|
67 |
0 |
if (my $a_class_instance = $classname->new($method)) { } |
|
116
|
1 |
20 |
unless @testcases |
|
126
|
0 |
0 |
if (-r $file) |
|
128
|
0 |
0 |
unless open FH, $file |
|
130
|
0 |
0 |
unless close FH |
|
139
|
0 |
0 |
if (-d $test_dir) |
|
154
|
0 |
0 |
unless $real_path and open FH, $real_path |
|
157
|
0 |
0 |
if (/^\s*package\s+([\w:]+)/) |