| support/Test/Harness/Point.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 16 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 42 | 0 | 64823 | unless my $line = shift() |
| 45 | 16280 | 48543 | unless my($not, $number, $extra) = $line =~ /^(not )?ok\b(?:\s+(\d+))?\s*(.*)/ |
| 51 | 20790 | 27753 | if ($extra) |
| 55 | 560 | 20230 | if ($directive) |
| 81 | 48543 | 0 | $ok ? : |
| 86 | 97086 | 0 | $self->ok || $self->is_todo || $self->is_skip ? : |
| 110 | 0 | 560 | unless defined $reason |
| 139 | 0 | 0 | if wantarray |