| line |
true |
false |
branch |
|
62
|
0 |
0 |
unless $class and $ODFTYPE{$class} |
|
72
|
0 |
0 |
if defined $newpath |
|
87
|
0 |
0 |
unless ($opt{'member'}) |
|
94
|
0 |
0 |
if ($opt{'string'}) { } |
|
|
0 |
0 |
elsif ($opt{'file'}) { } |
|
101
|
0 |
0 |
unless (-r $f and -f $f || -d $f) |
|
115
|
0 |
0 |
unless ($m) |
|
121
|
0 |
0 |
if (not $opt{'compress'}) { } |
|
145
|
0 |
0 |
if ($opt{'template_path'}) { } |
|
158
|
0 |
0 |
$opt{'opendocument'} ? : |
|
165
|
0 |
0 |
if ($archive->read($source_file) != 0) |
|
177
|
0 |
0 |
unless my $container = shift() |
|
178
|
0 |
0 |
unless my $source = shift() |
|
182
|
0 |
0 |
if (UNIVERSAL::isa($source, 'IO::File')) { } |
|
184
|
0 |
0 |
if ($z->readFromFileHandle($source) != 0) |
|
192
|
0 |
0 |
unless (-e $source and -f $source and -r $source) |
|
198
|
0 |
0 |
if ($z->read($source) != 0) |
|
219
|
0 |
0 |
if ($m eq $n) |
|
228
|
0 |
0 |
if $member eq $m |
|
241
|
0 |
0 |
if (-d $path) { } |
|
243
|
0 |
0 |
if (-w $path) { } |
|
281
|
0 |
0 |
unless (open FH, '>:utf8', $tmpfile) |
|
287
|
0 |
0 |
unless (print FH $data) |
|
293
|
0 |
0 |
unless (close FH) |
|
311
|
0 |
0 |
ref $member ? : |
|
317
|
0 |
0 |
if ($result == 0) { } |
|
341
|
0 |
0 |
if (not -d $tmpfile) { } |
|
343
|
0 |
0 |
if (not $r > 0) { } |
|
379
|
0 |
0 |
if (not $od) { } |
|
|
0 |
0 |
elsif ($od eq '1' or $od eq 'on' or $od eq 'true') { } |
|
|
0 |
0 |
elsif ($od eq '0' or $od eq 'off' or $od eq 'false') { } |
|
381
|
0 |
0 |
if ($DEFAULT_OFFICE_FORMAT == 2) |
|
398
|
0 |
0 |
if ($$self{'create'}) { } |
|
|
0 |
0 |
elsif ($sourcefile) { } |
|
400
|
0 |
0 |
if $$self{'create'} eq 'graphics' |
|
408
|
0 |
0 |
unless ($$self{'archive'} and ref $$self{'archive'}) |
|
420
|
0 |
0 |
unless $$self{'archive'} |
|
440
|
0 |
0 |
unless ($member) |
|
446
|
0 |
0 |
unless ($$self{'archive'}) |
|
462
|
0 |
0 |
unless ($$self{'archive'}) |
|
470
|
0 |
0 |
if (defined $target) |
|
472
|
0 |
0 |
unless ($target =~ m[/]) |
|
480
|
0 |
0 |
if ($$self{'archive'}->extractMember(@_) == 0) { } |
|
482
|
0 |
0 |
$target ? : |
|
500
|
0 |
0 |
unless $filename |
|
514
|
0 |
0 |
unless my $member = $self->CtrlMemberName(shift()) |
|
520
|
0 |
0 |
if ($$self{'members'}[$i] eq $member) |
|
565
|
0 |
0 |
unless ($m) |
|
572
|
0 |
0 |
unless ($tmpfile) |
|
579
|
0 |
0 |
$member eq 'meta.xml' || $member eq 'mimetype' ? : |
|
598
|
0 |
0 |
unless ($archive and $member and $data) |
|
608
|
0 |
0 |
unless ($tmpfile) |
|
617
|
0 |
0 |
$member eq 'meta.xml' || $member eq 'mimetype' ? : |
|
637
|
0 |
0 |
unless $mimetype |
|
653
|
0 |
0 |
unless (checkWorkingDirectory($$self{'work_dir'})) |
|
669
|
0 |
0 |
if $ro and $ro eq '1' || $ro eq 'on' || $ro eq 'true' |
|
679
|
0 |
0 |
unless $targetfile |
|
680
|
0 |
0 |
if (UNIVERSAL::isa($targetfile, 'IO::File')) { } |
|
686
|
0 |
0 |
if (-e $targetfile) |
|
688
|
0 |
0 |
unless (-f $targetfile) |
|
694
|
0 |
0 |
unless (-w $targetfile) |
|
701
|
0 |
0 |
$targetfile eq $$self{'source_file'} ? : |
|
714
|
0 |
0 |
if ($tmn) { } |
|
732
|
0 |
0 |
unless ($status == 0) |
|
741
|
0 |
0 |
if ($k) |
|
756
|
0 |
0 |
$$raw_member{'member'} eq 'mimetype' ? : |
|
775
|
0 |
0 |
if ($status == 0) { } |
|
777
|
0 |
0 |
unless ($outfile eq $targetfile) |
|
781
|
0 |
0 |
if (UNIVERSAL::isa($targetfile, 'IO::File')) { } |