| blib/lib/Hook/Output/Tiny.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 22 | 81.8 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 2 | 28 | unless (wantarray) |
| 28 | 22 | 8 | defined $self->{$sub_name}{'data'} ? : |
| 39 | 0 | 24 | unless open $self->{$sub_name}{'handle'}, ">&$HANDLE" |
| 42 | 0 | 24 | unless open $HANDLE, '>>', \$self->{$sub_name}{'data'} |
| 53 | 13 | 11 | $_ eq 'stderr' ? : |
| 61 | 0 | 26 | unless open uc $_, ">&$self->{$_}{'handle'}" |
| 70 | 1 | 5 | if ($fn eq 'stderr' or $fn eq 'stdout') |
| 75 | 0 | 4 | unless open my $wfh, '>>', $fn |
| 87 | 34 | 16 | if $handle |
| 88 | 30 | 16 | $handle ? : |
| 93 | 4 | 30 | if (not grep({$handle eq $_;} 'stderr', 'stdout')) |