| blib/lib/Test/Stream/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 36 | 58 | 62.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 58 | 1 | 1 | 5 | $sub and ref $sub |
| 2 | 1 | 4 | $sub and ref $sub and &reftype($sub) eq 'CODE' | |
| 70 | 0 | 0 | 3706 | $sub and ref $sub |
| 0 | 0 | 3706 | $sub and ref $sub and &reftype($sub) eq 'CODE' | |
| 197 | 109 | 0 | 0 | $^O eq 'MSWin32' and $] < 5.020002 |
| 268 | 109 | 0 | 0 | $ok &&= 'Term::ReadKey'->can('GetTerminalSize') |
| 322 | 0 | 0 | 326 | $sub and ref $sub |
| 0 | 0 | 326 | $sub and ref $sub and &reftype($sub) eq 'CODE' |
| line | l | !l | condition |
|---|---|---|---|
| 45 | 109 | 0 | $set_subname || $subname || sub { croak('Cannot set sub name'); } |
| 106 | 1 | 1 | eval { do { &$code(); 1 } } || 0 |
| 111 | 1 | 1 | $@ || "Error was squashed!\n" |
| 126 | 326 | 2 | eval { do { &$code(); 1 } } || 0 |
| 131 | 2 | 326 | $@ || "Error was squashed!\n" |
| 149 | 1 | 1 | eval { do { &$code(@$args); 1 } } || 0 |
| 155 | 1 | 0 | $@ || "Error was squashed!\n" |
| 180 | 2985 | 379 | eval { do { &$code(@$args); 1 } } || 0 |
| 186 | 379 | 0 | $@ || "Error was squashed!\n" |
| 298 | 2036 | 0 | $rt || '' |
| 310 | 167 | 39 | &blessed($in) || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 47 | 109 | 0 | 0 | $set_subname or $subname |
| 68 | 3706 | 0 | 0 | $caller ||= caller() |
| 295 | 2575 | 0 | 3949 | $rf or $rt |
| 345 | 2 | 0 | 214 | $start <= 1 or $in{$start} |