line |
true |
false |
branch |
202
|
52 |
68 |
unless ($tagInfo) |
203
|
50 |
2 |
if ($srcInfo) { } |
214
|
1 |
119 |
if $langCode |
225
|
3 |
117 |
defined $enc ? : |
226
|
2 |
118 |
if ($enc eq 'b' or $enc eq 'base64') { } |
230
|
1 |
117 |
if ($enc eq "quoted-printable") |
236
|
1 |
5 |
unless $1 |
238
|
0 |
5 |
unless $unescapeVCard{$1} |
241
|
1 |
117 |
if @vals > 1 |
257
|
0 |
2 |
unless $raf->Read($buff, 24) and $raf->Seek(0, 0) and $buff =~ /^BEGIN:(VCARD|VCALENDAR)\r\n/i |
258
|
1 |
1 |
uc $1 eq 'VCARD' ? : |
260
|
0 |
2 |
if $et->{'OPTIONS'}{'FastScan'} and $et->{'OPTIONS'}{'FastScan'} == 3 |
264
|
2 |
0 |
if $more |
267
|
139 |
0 |
if defined $buff |
270
|
137 |
2 |
if ($more) |
273
|
0 |
137 |
if $buff =~ s/^[ \t]// |
275
|
28 |
111 |
if ($val =~ /^(BEGIN|END):(V?)(\w+)$/i) { } |
|
1 |
110 |
elsif ($ok) { } |
276
|
14 |
14 |
lc $1 eq 'begin' ? : |
277
|
6 |
22 |
if ($what eq "Card" or $what eq "Calendar") |
278
|
3 |
3 |
if ($begin) { } |
286
|
14 |
8 |
if ($isComponent{$what}) |
287
|
7 |
7 |
if ($begin) { } |
|
4 |
3 |
elsif ($component and $component eq $what) { } |
288
|
4 |
3 |
unless ($component) |
302
|
7 |
7 |
if ($begin) { } |
|
7 |
0 |
elsif (@count > 1) { } |
303
|
3 |
4 |
if $v |
313
|
0 |
111 |
unless ($val =~ s/^([-A-Za-z0-9.]+)//) |
319
|
8 |
103 |
if ($tag =~ s/^([-A-Za-z0-9]+)\.//) { } |
|
64 |
39 |
elsif ($component) { } |
329
|
6 |
105 |
if $tag =~ /[a-z]/ |
333
|
110 |
1 |
if ($srcInfo) { } |
336
|
1 |
0 |
unless $name |
338
|
0 |
1 |
if $name =~ s/^X-// |
341
|
40 |
71 |
if (@count > 1) |
346
|
20 |
20 |
unless defined $c |
355
|
2 |
54 |
unless $2 |
358
|
56 |
56 |
unless $val =~ s/^"([^"]*)",?// or $val =~ s/^([^";:,]+,?)// |
359
|
38 |
18 |
$p eq 'Type' ? : |
360
|
15 |
41 |
defined $param{$p} ? : |
362
|
56 |
0 |
if (defined $param{$p}) { } |
363
|
0 |
1 |
unless $unescapeVCard{$1} |
368
|
0 |
111 |
unless $val =~ s/^:// |
370
|
23 |
88 |
if $param{'Type'} |
372
|
1 |
110 |
if ($val =~ s[^data:(\w+)/(\w+);base64,][]) |
383
|
324 |
9 |
unless defined $param{$p} |
386
|
8 |
1 |
$srcTag2 ? : |
396
|
0 |
2 |
unless $ok |