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} |