| line |
true |
false |
branch |
|
72
|
0 |
0 |
unless ($code) |
|
99
|
0 |
0 |
unless ($code) |
|
123
|
0 |
0 |
unless ($class) |
|
152
|
0 |
1 |
unless my $handle = 'IO::File'->new($_[0], 'r') |
|
171
|
0 |
1 |
unless my $handle = _HANDLE(shift()) |
|
179
|
1 |
3676 |
unless defined $string |
|
184
|
488 |
3188 |
if $string =~ /^\s*$/ |
|
185
|
758 |
2430 |
if $string =~ /^\s*#/ |
|
188
|
2188 |
242 |
if ($string =~ /^\s/) { } |
|
190
|
0 |
2188 |
unless ($string =~ /^\s+(\w+)\s+=\s+\"(.*)\"$/) |
|
198
|
0 |
242 |
unless ($string =~ /^([\w\.-]+)\:\s*$/) |
|
203
|
241 |
1 |
if ($current) |
|
208
|
1 |
0 |
if ($mirror) |
|
220
|
0 |
0 |
if ($name eq 'grep') { } |
|
|
0 |
0 |
elsif ($name eq 'map') { } |