| line |
true |
false |
branch |
|
32
|
4 |
0 |
unless keys %typedb |
|
45
|
0 |
4 |
unless open my $dbh, "<:encoding(utf8)", $db |
|
50
|
4 |
192 |
unless defined $header |
|
55
|
4 |
188 |
$major eq 'EXTENSIONS' ? : |
|
59
|
4 |
188 |
if ($major eq 'EXTENSIONS') { } |
|
61
|
4 |
9364 |
if $line =~ /^$/ |
|
62
|
0 |
9364 |
if $skip_section |
|
64
|
9364 |
0 |
if $line =~ /(.*);(.*)/ |
|
69
|
188 |
13016 |
if $line =~ /^$/ |
|
70
|
0 |
13016 |
if $skip_section |
|
72
|
13016 |
0 |
if $line =~ /^(?:x-)?([^;]+)/ |
|
87
|
0 |
4385 |
if $spec eq "text" |
|
89
|
0 |
4385 |
unless $spec =~ m[^(?:x\-)?([^/]+)/(?:x-)?(.*)] |
|
92
|
0 |
4385 |
unless my $section = $typedb{$1} |
|
93
|
0 |
4385 |
unless my $record = $section->{$2} |
|
94
|
2192 |
2193 |
if ref $record |
|
116
|
27 |
24 |
if (my $type = $typedb{'EXTENSIONS'}{$ext}) |
|
119
|
2 |
22 |
unless $ext =~ s/.*?\.// |
|
142
|
0 |
0 |
if $section eq "EXTENSIONS" |
|
153
|
6 |
138 |
if $section eq "EXTENSIONS" |
|
156
|
10619 |
0 |
$record =~ /^([^;]+)/ ? : |
|
|
8701 |
10619 |
ref $record ? : |
|
174
|
0 |
17 |
unless m[^ ([a-zA-Z0-9-]+ | \*) / ( [a-zA-Z0-9+-]+ | \* )
\s* (?: \;\s*q\=\s* ([0-9]+(?:\.[0-9]*)?) \s* )?
(\;.* | )
$ ]x |
|
180
|
2 |
15 |
defined $3 ? : |
|
183
|
1 |
15 |
$2 eq '*' ? : |
|
|
1 |
16 |
$1 eq '*' ? : |
|
|
0 |
17 |
$4 ? : |
|
196
|
4 |
4 |
ref $_[0] eq 'ARRAY' ? : |
|
203
|
0 |
0 |
$acc eq '*' ? : |
|
|
10 |
0 |
!($acc =~ s[/\*$][]) ? : |
|
204
|
7 |
3 |
if defined $m |
|
213
|
4 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
|
0 |
4 |
!@_ ? : |
|
215
|
1 |
3 |
unless (defined $accept) |
|
223
|
0 |
6 |
unless my $type = $self->mimeTypeOf($fn) |
|
229
|
2 |
1 |
defined $type ? : |
|
247
|
5 |
2 |
defined $mime ? : |
|
248
|
3 |
4 |
wantarray ? : |
|
257
|
2 |
6 |
if (not ref $type and index($type, '/') != -1) { } |
|
259
|
2 |
0 |
if $mime |
|
262
|
1 |
5 |
ref $type eq 'Regexp' ? : |
|
271
|
4 |
4 |
wantarray ? : |