| blib/lib/Test/Harness/Point.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 16 | 93.7 |
| line | true | false | branch |
|---|---|---|---|
| 42 | 0 | 252 | unless my $line = shift() |
| 45 | 69 | 183 | unless my($not, $number, $extra) = $line =~ /^(not )?ok\b(?:\s+(\d+))?\s*(.*)/ |
| 51 | 51 | 132 | if ($extra) |
| 55 | 17 | 34 | if ($directive) |
| 79 | 158 | 29 | $ok ? : |
| 84 | 312 | 26 | $self->ok || $self->is_todo || $self->is_skip ? : |
| 108 | 4 | 14 | unless defined $reason |
| 137 | 1 | 1 | if wantarray |