| blib/lib/Pipe.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 20 | 85.0 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 1554 | 6 | unless $DEBUG |
| 16 | 6 | 0 | unless $class |
| 18 | 0 | 6 | unless open my $fh, ">>", "pipe.log" |
| 36 | 1 | 52 | if $@ |
| 38 | 27 | 25 | if ($self eq "Pipe") |
| 58 | 0 | 26 | unless @{$self->{'Pipe'};} |
| 67 | 51 | 205 | unless (@res) |
| 77 | 92 | 88 | unless @res |
| 80 | 51 | 205 | if ($in_finished) |
| 83 | 26 | 25 | unless defined $in |