| blib/lib/Test/Harness/Straps.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 39 | 58.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 169 | 166 | 2 | 2 | $$self{'lone_not_line'} and $$self{'lone_not_line'} == $$self{'line'} - 1 |
| 187 | 168 | 0 | 2 | $point->number > 100000 and $point->number > ($$self{'max'} || 100000) |
| 202 | 0 | 0 | 168 | defined $$details{'ok'} && defined $$details{'actual_ok'} |
| 302 | 38 | 3 | 0 | $? and $$self{'_is_vms'} |
| 337 | 41 | 0 | 0 | $file =~ /\s/ and not $file =~ /^".*"$/ |
| 362 | 84 | 0 | 0 | $$self{'_is_win32'} and $^X =~ m([^\w\./\\]) |
| 399 | 22 | 0 | 0 | /\s/ || $$self{'_is_vms'} and not /^".*"$/ |
| 566 | 3 | 0 | 4 | defined $skip and $skip =~ /^Skip/i |
| line | l | !l | condition |
|---|---|---|---|
| 187 | 2 | 0 | $$self{'max'} || 100000 |
| 227 | 10 | 18 | $$test{'diagnostics'} ||= '' |
| 481 | 41 | 2 | $cache{$perl} ||= [do { local $ENV{'PERL5LIB'}; my(@inc) = `$perl -le "print join qq[\\n], \@INC"`; chomp @inc }] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 137 | 4 | 0 | 37 | $results->max == 0 && defined $results->skip_all || $results->max && $results->seen && $results->max == $results->seen && $results->max == $results->ok |
| 390 | 2 | 0 | 39 | $taint or $$self{'_is_macos'} |
| 399 | 0 | 0 | 22 | /\s/ || $$self{'_is_vms'} |