| 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 | 3665 | $sub and ref $sub | 
| 0 | 0 | 3665 | $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') | 
| 320 | 0 | 0 | 324 | $sub and ref $sub | 
| 0 | 0 | 324 | $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 | 316 | 3 | eval { do { &$code(); 1 } } || 0 | 
| 131 | 3 | 316 | $@ || "Error was squashed!\n" | 
| 149 | 1 | 1 | eval { do { &$code(@$args); 1 } } || 0 | 
| 155 | 1 | 0 | $@ || "Error was squashed!\n" | 
| 180 | 2953 | 379 | eval { do { &$code(@$args); 1 } } || 0 | 
| 186 | 379 | 0 | $@ || "Error was squashed!\n" | 
| 298 | 1847 | 0 | $rt || '' | 
| 308 | 32 | 27 | &blessed($in) || '' | 
| line | l | !l&&r | !l&&!r | condition | 
|---|---|---|---|---|
| 47 | 109 | 0 | 0 | $set_subname or $subname | 
| 68 | 3665 | 0 | 0 | $caller ||= caller() | 
| 295 | 2367 | 0 | 3853 | $rf or $rt | 
| 343 | 2 | 0 | 212 | $start <= 1 or $in{$start} |