| line |
true |
false |
branch |
|
20
|
2 |
26 |
if (defined $ref and $ref eq 'GLOB' || $ref eq 'IO' or not defined $ref and &Scalar::Util::reftype(\$arg) eq 'GLOB') { } |
|
|
16 |
10 |
elsif ($arg =~ /\ASTD(IN|OUT|ERR|IO)\z/) { } |
|
|
10 |
0 |
elsif ($arg =~ /\A(rw|r|w)\z/) { } |
|
22
|
0 |
2 |
unless @_ |
|
24
|
0 |
2 |
unless $layer =~ /$LAYERS_SPEC/ |
|
25
|
0 |
2 |
unless binmode $arg, $layer |
|
28
|
0 |
16 |
unless @_ |
|
30
|
0 |
16 |
unless $layer =~ /$LAYERS_SPEC/ |
|
31
|
4 |
3 |
$which eq 'ERR' ? : |
|
|
5 |
7 |
$which eq 'OUT' ? : |
|
|
4 |
12 |
$which eq 'IN' ? : |
|
38
|
0 |
10 |
unless @_ |
|
40
|
0 |
10 |
unless $layer =~ /$LAYERS_SPEC/ |
|
43
|
8 |
2 |
if ($which ne 'w') |
|
46
|
8 |
2 |
if ($which ne 'r') |