| line |
true |
false |
branch |
|
56
|
1 |
1226 |
@opts == 1 && ref $opts[0] eq 'HASH' ? : |
|
60
|
1225 |
2 |
unless defined $options->{'binmode'} |
|
64
|
2 |
0 |
if $DEBUG and $options->{'binmode'} |
|
68
|
1222 |
5 |
if (defined $output) { } |
|
70
|
4 |
1218 |
unless (ref $outstream) |
|
72
|
4 |
0 |
if $outpath |
|
76
|
0 |
1222 |
if $error = &_output($outstream, \$output, $options) |
|
129
|
1 |
153 |
if defined $debug and not $debug =~ /^\d+$/ |
|
133
|
7 |
147 |
if (my $constants = $config->{'CONSTANTS'}) |
|
162
|
1 |
1222 |
if (($reftype = ref $where) eq 'CODE') { } |
|
|
0 |
1222 |
elsif ($reftype eq 'GLOB') { } |
|
|
1215 |
7 |
elsif ($reftype eq 'SCALAR') { } |
|
|
1 |
6 |
elsif ($reftype eq 'ARRAY') { } |
|
|
1 |
5 |
elsif (&blessed($where) and $where->can('print')) { } |
|
|
5 |
0 |
elsif (not $reftype) { } |
|
187
|
0 |
5 |
unless -d $dir |
|
188
|
0 |
5 |
if ($@) { } |
|
|
5 |
0 |
elsif (open FP, ">$where") { } |
|
195
|
2 |
3 |
if ($bm and $bm eq 1) { } |
|
|
0 |
3 |
elsif ($bm) { } |