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