| line |
true |
false |
branch |
|
72
|
2 |
1195 |
unless $got->parse(\%PARAMS, @_) |
|
75
|
232 |
963 |
if ($top) { } |
|
79
|
2 |
461 |
if $got->parsed($opt) |
|
91
|
1 |
962 |
if $got->parsed($opt) |
|
97
|
13 |
1179 |
if (defined $e) |
|
99
|
0 |
13 |
unless defined &Encode::find_encoding |
|
100
|
1 |
12 |
unless defined Encode::find_encoding($e) |
|
143
|
1 |
236 |
unless @_ |
|
149
|
1 |
235 |
unless (defined $outValue) |
|
157
|
145 |
90 |
if ($outType eq 'filename') { } |
|
|
90 |
0 |
elsif ($outType eq 'buffer' or $outType eq 'handle') { } |
|
159
|
1 |
144 |
if (-e $outValue and not -f _ && -w _) |
|
164
|
1 |
143 |
unless $fh = 'IO::File'->new(">$outValue") |
|
177
|
225 |
4 |
unless $outType eq 'handle' |
|
178
|
1 |
228 |
if $isSTDOUT |
|
204
|
218 |
229 |
unless $self->{'Open'} |
|
207
|
223 |
6 |
if ($self->{'FilesWritten'} or defined $self->{'Raw'}) |
|
209
|
223 |
0 |
if (defined $self->{'Zip'}) |
|
211
|
2 |
221 |
if (defined $self->{'Raw'}) |
|
216
|
0 |
223 |
unless $self->{'Zip'}->_flushCompressed |
|
217
|
0 |
223 |
unless $self->{'Zip'}->close |
|
231
|
27 |
933 |
if (defined $filename) |
|
236
|
3 |
18 |
if -d $filename or -z _ or -l $filename |
|
244
|
223 |
737 |
if (not defined $self->{'Zip'}) { } |
|
247
|
0 |
223 |
unless $self->{'Zip'}->_create($options, $self->{'FH'}) |
|
249
|
0 |
223 |
if $options->getValue('autoflush') |
|
253
|
0 |
737 |
unless $self->{'Zip'}->_newStream($options) |
|
266
|
3 |
4 |
if defined $_[0] |
|
291
|
0 |
967 |
if $self->{'Error'} |
|
294
|
0 |
967 |
unless $self->{'Open'} |
|
297
|
2 |
965 |
if defined $self->{'Raw'} |
|
307
|
0 |
29 |
unless $self->_stdPreq |
|
309
|
1 |
28 |
unless -e $filename |
|
312
|
0 |
28 |
unless -r $filename |
|
325
|
0 |
27 |
if $filename eq '.' or $filename eq '..' |
|
328
|
26 |
1 |
if ($options->getValue('canonicalname')) |
|
330
|
18 |
8 |
if (not $got->parsed('name')) { } |
|
342
|
5 |
22 |
if ($got->parsed('storelinks')) { } |
|
355
|
27 |
0 |
unless ($got->getValue('minimal')) |
|
361
|
27 |
0 |
if ($type eq 'Unix') |
|
370
|
3 |
24 |
if ($isLink) { } |
|
|
5 |
19 |
elsif (-d $filename) { } |
|
|
19 |
0 |
elsif (-f $filename) { } |
|
381
|
0 |
19 |
unless my $fh = 'IO::File'->new("<$filename") |
|
407
|
1 |
860 |
unless $self->_stdPreq |
|
413
|
1 |
858 |
unless $got->parsed('name') |
|
416
|
11 |
847 |
if $options->getValue('canonicalname') |
|
430
|
0 |
2 |
unless $self->_stdPreq |
|
436
|
1 |
1 |
unless $got->parsed('name') |
|
439
|
1 |
0 |
if $options->getValue('canonicalname') |
|
475
|
1 |
74 |
unless $self->_stdPreq |
|
481
|
0 |
74 |
unless $got->parsed('name') |
|
484
|
73 |
1 |
if $options->getValue('canonicalname') |
|
531
|
74 |
0 |
if ref $_[0] |
|
557
|
69 |
74 |
unless *$self->{'Open'} |
|
564
|
74 |
0 |
if (defined *$self->{'SZ'}) |
|
576
|
2 |
68 |
unless $self->_stdPreq |
|
584
|
0 |
6 |
unless $self->_stdPreq |
|
592
|
0 |
6 |
unless $self->_stdPreq |
|
600
|
0 |
9 |
unless $self->_stdPreq |
|
608
|
0 |
0 |
unless $self->_stdPreq |
|
618
|
2 |
89 |
unless defined defined *$self->{'SZ'} and *$self->{'SZ'}{'Open'} |
|
622
|
0 |
89 |
unless *$self->{'Open'} and defined *$self->{'SZ'}{'Raw'} |
|
625
|
0 |
89 |
if *$self->{'SZ'}{'Error'} |