| support/Test/Harness/Straps.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 14 | 39 | 35.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 170 | 48543 | 0 | 0 | $self->{'lone_not_line'} and $self->{'lone_not_line'} == $self->{'line'} - 1 |
| 188 | 48543 | 0 | 0 | $point->number > 100000 and $point->number > ($self->{'max'} || 100000) |
| 203 | 0 | 0 | 48543 | defined $details->{'ok'} && defined $details->{'actual_ok'} |
| 301 | 58 | 0 | 0 | $? and $self->{'_is_vms'} |
| 336 | 58 | 0 | 0 | $file =~ /\s/ and not $file =~ /^".*"$/ |
| 361 | 116 | 0 | 0 | $self->{'_is_win32'} and $^X =~ m([^\w\./\\]) |
| 398 | 0 | 0 | 0 | /\s/ || $self->{'_is_vms'} and not /^".*"$/ |
| 565 | 0 | 0 | 1 | defined $skip and $skip =~ /^Skip/i |
| line | l | !l | condition |
|---|---|---|---|
| 188 | 0 | 0 | $self->{'max'} || 100000 |
| 227 | 6499 | 9729 | $test->{'diagnostics'} ||= '' |
| 480 | 57 | 1 | $cache{$perl} ||= [do { local $ENV{'PERL5LIB'}; my(@inc) = `$perl -le "print join qq[\\n], \@INC"`; chomp @inc }] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 144 | 1 | 57 | 0 | $totals{'max'} == 0 && defined $totals{'skip_all'} || $totals{'max'} && $totals{'seen'} && $totals{'max'} == $totals{'seen'} && $totals{'max'} == $totals{'ok'} |
| 389 | 0 | 0 | 58 | $taint or $self->{'_is_macos'} |
| 398 | 0 | 0 | 0 | /\s/ || $self->{'_is_vms'} |