| blib/lib/TBX/Checker.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 18 | 55.5 |
| line | true | false | branch |
|---|---|---|---|
| 32 | 0 | 0 | unless $passed and print 'ok!' |
| 41 | 0 | 6 | unless $data |
| 64 | 3 | 3 | if (ref $data eq 'SCALAR') { } |
| 71 | 0 | 3 | unless $file->exists |
| 90 | 0 | 2 | unless grep {$_ eq $param;} @$allowed_params |
| 92 | 2 | 4 | if (exists $args{'loglevel'}) |
| 93 | 0 | 2 | unless grep {$_ eq $args{'loglevel'};} @$allowed_levels |
| 109 | 0 | 6 | if $$messages[$index] =~ /^Valid file: / |
| 113 | 6 | 0 | if ($index > $#$messages) |