| blib/lib/Test/LogFile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 14 | 57.1 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 2 | 1 | wantarray ? : |
| 21 | 0 | 1 | unless my $log_file = $args{'file'} |
| 22 | 0 | 1 | unless my $str = $args{'str'} |
| 23 | 0 | 1 | unless my $count = $args{'count'} |
| 27 | 0 | 1 | unless open my $fh, '<', $log_file |
| 32 | 2 | 0 | if ($line =~ /$str/) |
| 34 | 2 | 0 | if ($hook and ref $hook eq 'CODE') |