| blib/lib/Data/Printer/Filter/GLOB.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 14 | 78.5 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 10 | 0 | if ($flags) |
| 24 | 2 | 6 | $flags & 2 ? : |
| 2 | 8 | $flags & 1 ? : | |
| 40 | 2 | 8 | if (my(@flags) = grep({$flags & $flags{$_};} sort(keys %flags))) |
| 50 | 10 | 0 | unless $error |
| 51 | 10 | 0 | if $extra |
| 53 | 1 | 9 | if ($ddp->show_tied and my $tie = ref tied *$$glob) |