| blib/lib/IPC/PrettyPipe/Stream/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 8 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 112 | 68 | unless $op =~ /^(?: # <, N< # >, N> # >>, N>> (?'redirect' (?'N' \d+ (?!<<) )? # don't match N<< (?'Op' (?: [<>]{1,2} ) ) ) # >&, &> | (?'redirect_stdout_stderr' (?'Op' >& | &> ) ) # N<&- | (?'close' (?'N' \d+ ) (?'Op' <& ) (?'M' - ) ) # M<&N | (?'dup' (?'M' \d+ ) (?'Op' <& ) (?'N' \d+ ) ) # N>&M | (?'dup' (?'N' \d+ ) (?'Op' >& ) (?'M' \d+ ) ) )$/x |
| 76 | 2 | 22 | substr($opc{'Op'}, 0, 1) eq '<' ? : |
| 24 | 44 | if $+{'redirect'} and not defined $opc{'N'} | |
| 79 | 55 | 13 | if $+{'redirect'} or $+{'redirect_stdout_stderr'} |