| line |
true |
false |
branch |
|
31
|
1 |
9 |
unless ($$args{'file'}) |
|
36
|
2 |
7 |
if (defined $$args{'mode'} and $$args{'mode'} =~ /^clobber$/) |
|
41
|
0 |
9 |
if (exists $$args{'ucase'} and not $$args{'ucase'}) |
|
47
|
0 |
9 |
if ($$args{'file'} =~ /STD(?:OUT|ERR)/i) { } |
|
50
|
0 |
9 |
unless CORE::open $fh, $MODE, $$args{'file'} |
|
64
|
0 |
2 |
unless ref $handler eq 'CODE' |
|
68
|
0 |
2 |
unless ref $types eq 'ARRAY' |
|
72
|
0 |
2 |
unless @{$types;} |
|
104
|
6 |
18 |
unless (caller 1)[$_] |
|
116
|
7 |
1 |
$UCASE ? : |
|
123
|
0 |
1 |
unless (ref $args) |
|
128
|
0 |
1 |
unless ($$args{'data'}) |
|
150
|
0 |
8 |
if $type =~ /::DESTROY$/ |
|
176
|
2 |
14 |
if (defined $TYPES and not $$TYPES{$type}) |