| line |
true |
false |
branch |
|
27
|
0 |
0 |
unless /$xml_re/u |
|
53
|
0 |
0 |
unless my $param = $param{$type} |
|
64
|
0 |
0 |
if ($+{'tab'}) { } |
|
67
|
0 |
0 |
if $+{'text'} ne "" |
|
70
|
0 |
0 |
unless @s |
|
82
|
0 |
0 |
unless my $type = ($file =~ /\.((?:doc|xls|ppt)[xm])$/u)[0] |
|
83
|
0 |
0 |
unless my $zip = "Archive::Zip"->new($file) |
|
86
|
0 |
0 |
unless my $member = $zip->memberNamed($entry) |
|
87
|
0 |
0 |
unless my $xml = $member->contents |
|
88
|
0 |
0 |
unless my $text = xml2text($xml, $type) |
|
89
|
0 |
0 |
if utf8::is_utf8($file) |
|
97
|
0 |
0 |
if ($type =~ /^doc[xm]$/u) { } |
|
|
0 |
0 |
elsif ($type =~ /^xls[xm]$/u) { } |
|
|
0 |
0 |
elsif ($type =~ /^ppt[xm]$/u) { } |
|
106
|
0 |
0 |
m[(ppt/slides/slide(\d+)\.xml)$]u ? : |