| line |
true |
false |
branch |
|
47
|
24 |
7 |
if (utf8::is_utf8($vcard)) |
|
51
|
1 |
30 |
unless ($vcard =~ /\n\S/) |
|
75
|
0 |
12 |
unless ($vcard =~ /\n\S/) |
|
89
|
12 |
0 |
if ($args->{'multival'}) |
|
92
|
12 |
0 |
if ($args->{'multiparam'}) |
|
105
|
21 |
169 |
if (@_ and $_[0] =~ s/^[ \t]//) |
|
111
|
0 |
169 |
if /^\s*$/ |
|
113
|
13 |
156 |
if (/^BEGIN:(.*)/i) |
|
119
|
13 |
143 |
if (/^END:(.*)/i) |
|
121
|
0 |
13 |
unless $Current->{'type'} eq lc $1 |
|
123
|
0 |
13 |
if $args->{'only_one'} and not @Path |
|
141
|
18 |
125 |
if ($LName =~ s/^(.+)\.(.*?)$/$2/) |
|
152
|
7 |
93 |
unless (defined $PName) |
|
153
|
0 |
7 |
if ($args->{'barekeys'}) { } |
|
166
|
100 |
0 |
if (defined $PValue) |
|
172
|
70 |
30 |
if ($MultiParamMap{$LPName}) { } |
|
180
|
15 |
85 |
if (exists $Params{$LPName}) { } |
|
186
|
63 |
80 |
if keys %Params |
|
190
|
26 |
117 |
if ($MultiFieldMap{$LName}) { } |
|
|
0 |
117 |
elsif ($Encoding and lc $Encoding eq 'b') { } |
|
209
|
0 |
12 |
if @Path |
|
232
|
0 |
248 |
unless ($PropOutputOrder{$a} // 1000) <=> ($PropOutputOrder{$b} // 1000) |
|
250
|
9 |
137 |
if $DoneProps{"$PropVal"}++ |
|
255
|
9 |
128 |
if (my $Group = $PropVal->{'group'}) |
|
266
|
0 |
146 |
if $_->{'deleted'} or $_->{'name'} eq 'online' |
|
269
|
0 |
146 |
if ($Binary) |
|
271
|
0 |
0 |
unless @$Encoding |
|
278
|
18 |
128 |
$Group ? : |
|
281
|
0 |
85 |
unless (defined $ParamVals) |
|
284
|
85 |
0 |
ref $ParamVals ? : |
|
286
|
4 |
110 |
if $Param eq 'label' |
|
288
|
6 |
108 |
if $PV =~ /\W/ |
|
296
|
0 |
146 |
if ($_->{'binary'}) { } |
|
301
|
0 |
253 |
ref $_ ? : |
|
|
26 |
120 |
ref $Value ? : |
|
321
|
0 |
146 |
if (my $ProtoStrip = $_->{'proto_strip'}) |
|
352
|
45 |
146 |
@Out ? : |
|
354
|
0 |
146 |
if pos $_ != length $_ |