| line |
true |
false |
branch |
| 49 |
0 |
7 |
if (@_) |
| 51 |
0 |
0 |
$status == 0 ? : |
| 73 |
43 |
305 |
if $member->fileName eq $fileName |
| 110 |
0 |
17 |
if (@_) |
| 127 |
0 |
4 |
unless ref $member |
| 128 |
0 |
4 |
unless $member |
| 136 |
0 |
31 |
unless ref $oldMember |
| 137 |
0 |
31 |
unless $oldMember |
| 138 |
0 |
31 |
unless $newMember |
| 139 |
31 |
323 |
$_ == $oldMember ? : |
| 148 |
5 |
10 |
unless ref $member |
| 149 |
0 |
15 |
unless $member |
| 153 |
2 |
13 |
if (defined $name) { } |
| 163 |
2 |
13 |
if ($dirName and not -d $dirName) |
| 165 |
0 |
2 |
if not -d $dirName |
| 177 |
0 |
0 |
unless ref $member |
| 178 |
0 |
0 |
unless $member |
| 180 |
0 |
0 |
if $member->isDirectory |
| 182 |
0 |
0 |
unless ($name) |
| 194 |
42 |
0 |
if $newMember |
| 203 |
23 |
0 |
if defined $newMember |
| 224 |
0 |
0 |
if (-f $name) { } |
| |
0 |
0 |
elsif (-d $name) { } |
| 225 |
0 |
0 |
if $newName |
| 229 |
0 |
0 |
if $newName |
| 239 |
0 |
1 |
unless $member |
| 240 |
0 |
1 |
unless ref $member |
| 241 |
0 |
1 |
unless $member |
| 249 |
0 |
62 |
if ($member->_usesFileNamed($fileName)) |
| 256 |
0 |
16 |
unless $status |
| 269 |
0 |
17 |
unless $fh |
| 270 |
0 |
17 |
unless $fh->opened |
| 272 |
16 |
1 |
@_ ? : |
| 276 |
16 |
1 |
$fhIsSeekable ? : |
| 277 |
0 |
17 |
if $offset < 0 |
| 282 |
0 |
71 |
if $retval != 0 |
| 284 |
31 |
40 |
$member->hasDataDescriptor ? : |
| 309 |
0 |
0 |
unless defined $zipName |
| 312 |
0 |
0 |
unless $fh |
| 320 |
0 |
0 |
if ($status != 0) |
| 329 |
0 |
0 |
if (-f $zipName and not rename $zipName, $backupName) |
| 336 |
0 |
0 |
unless (File::Copy::move($tempName, $zipName)) |
| 344 |
0 |
0 |
if (-f $backupName and not unlink $backupName) |
| 365 |
0 |
17 |
unless $fh->print("PK\cE\cF") |
| 379 |
0 |
17 |
unless $fh->print($header) |
| 381 |
0 |
17 |
if ($zipfileCommentLength) |
| 382 |
0 |
0 |
unless $fh->print($self->zipfileComment) |
| 392 |
0 |
17 |
if (defined $offset) { } |
| 394 |
0 |
0 |
unless $fh->seek($offset, IO::Seekable::SEEK_SET()) |
| 403 |
0 |
71 |
if $status != 0 |
| 413 |
0 |
1 |
unless $fileName |
| 415 |
0 |
1 |
unless $status |
| 418 |
0 |
1 |
if $status != 0 |
| 429 |
0 |
1 |
unless defined $fileName |
| 430 |
0 |
1 |
unless $fh |
| 431 |
0 |
1 |
unless $fh->opened |
| 437 |
0 |
1 |
unless _isSeekable($fh) |
| 443 |
0 |
1 |
if $status != 0 |
| 448 |
0 |
1 |
if $status != 0 |
| 450 |
0 |
1 |
unless $fh->seek($eocdPosition - $self->centralDirectorySize, IO::Seekable::SEEK_SET()) |
| 465 |
0 |
6 |
if $status != 0 |
| 466 |
1 |
5 |
if $signature == 101010256 |
| 468 |
0 |
5 |
if $status != 0 |
| 470 |
0 |
5 |
if $status != 0 |
| 485 |
0 |
1 |
unless $fh->seek(4, IO::Seekable::SEEK_CUR()) |
| 490 |
0 |
1 |
if ($bytesRead != 18) |
| 505 |
0 |
1 |
if ($zipfileCommentLength) |
| 508 |
0 |
0 |
if ($bytesRead != $zipfileCommentLength) |
| 524 |
0 |
1 |
unless $fh->seek(0, IO::Seekable::SEEK_END()) |
| 528 |
0 |
1 |
if ($fileLength < 22) |
| 536 |
0 |
1 |
if $seekOffset > $fileLength |
| 537 |
0 |
1 |
unless $fh->seek(-$seekOffset, IO::Seekable::SEEK_END()) |
| 540 |
0 |
1 |
if ($bytesRead != $seekOffset) |
| 545 |
1 |
0 |
if $pos >= 0 or $seekOffset == $fileLength or $seekOffset >= $Archive::Zip::ChunkSize |
| 550 |
1 |
0 |
if ($pos >= 0) { } |
| 551 |
0 |
1 |
unless $fh->seek($pos - $seekOffset, IO::Seekable::SEEK_CUR()) |
| 572 |
0 |
3 |
unless my $root = shift @_ |
| 574 |
0 |
3 |
unless defined $dest |
| 579 |
0 |
3 |
unless $startDir |
| 588 |
21 |
271 |
if &$pred |
| 595 |
2 |
1 |
$rootZipName eq './' ? : |
| 604 |
0 |
21 |
if ($archiveName eq $rootZipName) { } |
| 606 |
0 |
21 |
if $archiveName =~ m[^\.?/?$] |
| 607 |
0 |
21 |
$isDir ? : |
| 610 |
0 |
21 |
if not $member |
| 617 |
0 |
0 |
unless my $root = shift @_ |
| 620 |
0 |
0 |
unless defined $dest |
| 621 |
0 |
0 |
unless my $pattern = shift @_ |
| 625 |
0 |
0 |
if /$pattern/ |
| |
0 |
0 |
if /$pattern/ |
| |
0 |
0 |
$pred ? : |
| 637 |
0 |
0 |
unless defined $root |
| 639 |
0 |
0 |
unless defined $dest |
| 650 |
0 |
0 |
if $status != 0 |
| 663 |
0 |
45 |
if (not defined $fileName) |
| 669 |
0 |
45 |
if (not @newStat) |
| 678 |
0 |
45 |
if (ref $oldMember) { } |
| 687 |
42 |
3 |
unless (defined $oldMember and $oldMember->lastModTime == $newStat[9] and $oldMember->isDirectory == $isDir and $isDir || $oldMember->uncompressedSize == $newStat[7]) |
| 694 |
1 |
41 |
$isDir ? : |
| 698 |
0 |
42 |
unless (defined $newMember) |
| 704 |
30 |
12 |
if (defined $oldMember) { } |
| 725 |
0 |
4 |
unless my $root = shift @_ |
| 728 |
4 |
0 |
unless defined $dest |
| 734 |
0 |
4 |
$rootZipName eq './' ? : |
| 739 |
0 |
4 |
unless $startDir |
| 748 |
49 |
0 |
if &$pred |
| 764 |
4 |
45 |
if ($memberName eq $rootZipName) { } |
| 766 |
4 |
45 |
if $memberName =~ m[^\.?/?$] |
| 770 |
0 |
45 |
unless ref $changedMember |
| 776 |
1 |
3 |
if ($mirror) |
| 778 |
1 |
11 |
unless $done{$member->fileName} |