| line |
true |
false |
branch |
|
33
|
0 |
1 |
unless $self->{'archive'} //= shift @args |
|
34
|
0 |
1 |
unless $self->{'member'} //= shift @args |
|
35
|
0 |
1 |
if @args |
|
38
|
0 |
0 |
if $self->{'zip'} and $self->{'unzip'} |
|
39
|
1 |
0 |
unless $self->{'zip'} |
|
43
|
0 |
1 |
unless $self->{'zipper'}->read($self->{'archive'}) == 0 |
|
47
|
1 |
0 |
if ($self->{'unzip'}) { } |
|
|
0 |
0 |
elsif ($self->{'zip'}) { } |
|
60
|
0 |
1 |
unless my $contents = $self->{'zipper'}->contents($self->{'member'}) |
|
63
|
1 |
0 |
if ($self->{'xml_indent'} and $self->{'member'} =~ /\.xml$/i || $contents =~ /^<\?xml/) |
|
79
|
0 |
0 |
unless open my $fh, '<:raw', $self->{'member'} |
|
84
|
0 |
0 |
if ($self->{'xml_indent'} and $self->{'member'} =~ /\.xml$/i || $contents =~ /^<\?xml/) |