| line |
true |
false |
branch |
|
73
|
2 |
1197 |
unless $got->parse(\%PARAMS, @_) |
|
76
|
233 |
964 |
if ($top) { } |
|
80
|
2 |
463 |
if $got->parsed($opt) |
|
92
|
1 |
963 |
if $got->parsed($opt) |
|
98
|
13 |
1181 |
if (defined $e) |
|
100
|
0 |
13 |
unless defined &Encode::find_encoding |
|
101
|
1 |
12 |
unless defined Encode::find_encoding($e) |
|
144
|
1 |
237 |
unless @_ |
|
150
|
1 |
236 |
unless (defined $outValue) |
|
158
|
145 |
91 |
if ($outType eq 'filename') { } |
|
|
91 |
0 |
elsif ($outType eq 'buffer' or $outType eq 'handle') { } |
|
160
|
1 |
144 |
if (-e $outValue and not -f _ && -w _) |
|
165
|
1 |
143 |
unless $fh = 'IO::File'->new(">$outValue") |
|
178
|
226 |
4 |
unless $outType eq 'handle' |
|
179
|
1 |
229 |
if $isSTDOUT |
|
205
|
218 |
230 |
unless $self->{'Open'} |
|
208
|
224 |
6 |
if ($self->{'FilesWritten'} or defined $self->{'Raw'}) |
|
210
|
224 |
0 |
if (defined $self->{'Zip'}) |
|
212
|
2 |
222 |
if (defined $self->{'Raw'}) |
|
217
|
0 |
224 |
unless $self->{'Zip'}->_flushCompressed |
|
218
|
0 |
224 |
unless $self->{'Zip'}->close |
|
232
|
27 |
934 |
if (defined $filename) |
|
237
|
3 |
18 |
if -d $filename or -z _ or -l $filename |
|
245
|
224 |
737 |
if (not defined $self->{'Zip'}) { } |
|
248
|
0 |
224 |
unless $self->{'Zip'}->_create($options, $self->{'FH'}) |
|
250
|
1 |
223 |
if $options->getValue('autoflush') |
|
254
|
0 |
737 |
unless $self->{'Zip'}->_newStream($options) |
|
267
|
3 |
4 |
if defined $_[0] |
|
292
|
0 |
968 |
if $self->{'Error'} |
|
295
|
0 |
968 |
unless $self->{'Open'} |
|
298
|
2 |
966 |
if defined $self->{'Raw'} |
|
308
|
0 |
29 |
unless $self->_stdPreq |
|
310
|
1 |
28 |
unless -e $filename |
|
313
|
0 |
28 |
unless -r $filename |
|
326
|
0 |
27 |
if $filename eq '.' or $filename eq '..' |
|
329
|
26 |
1 |
if ($options->getValue('canonicalname')) |
|
331
|
18 |
8 |
if (not $got->parsed('name')) { } |
|
343
|
5 |
22 |
if ($got->parsed('storelinks')) { } |
|
356
|
27 |
0 |
unless ($got->getValue('minimal')) |
|
362
|
27 |
0 |
if ($type eq 'Unix') |
|
371
|
3 |
24 |
if ($isLink) { } |
|
|
5 |
19 |
elsif (-d $filename) { } |
|
|
19 |
0 |
elsif (-f $filename) { } |
|
382
|
0 |
19 |
unless my $fh = 'IO::File'->new("<$filename") |
|
408
|
1 |
861 |
unless $self->_stdPreq |
|
414
|
1 |
859 |
unless $got->parsed('name') |
|
417
|
12 |
847 |
if $options->getValue('canonicalname') |
|
431
|
0 |
2 |
unless $self->_stdPreq |
|
437
|
1 |
1 |
unless $got->parsed('name') |
|
440
|
1 |
0 |
if $options->getValue('canonicalname') |
|
476
|
1 |
74 |
unless $self->_stdPreq |
|
482
|
0 |
74 |
unless $got->parsed('name') |
|
485
|
73 |
1 |
if $options->getValue('canonicalname') |
|
532
|
74 |
0 |
if ref $_[0] |
|
558
|
69 |
74 |
unless *$self->{'Open'} |
|
565
|
74 |
0 |
if (defined *$self->{'SZ'}) |
|
577
|
2 |
68 |
unless $self->_stdPreq |
|
585
|
0 |
6 |
unless $self->_stdPreq |
|
593
|
0 |
6 |
unless $self->_stdPreq |
|
601
|
0 |
9 |
unless $self->_stdPreq |
|
609
|
0 |
0 |
unless $self->_stdPreq |
|
619
|
2 |
89 |
unless defined defined *$self->{'SZ'} and *$self->{'SZ'}{'Open'} |
|
623
|
0 |
89 |
unless *$self->{'Open'} and defined *$self->{'SZ'}{'Raw'} |
|
626
|
0 |
89 |
if *$self->{'SZ'}{'Error'} |