| line |
true |
false |
branch |
|
35
|
32 |
130 |
if $b =~ qr/^$a (?: ; | $)/msx |
|
46
|
0 |
6 |
unless ref $self |
|
55
|
6 |
78 |
if ($line->key eq 'BEGIN') { } |
|
|
6 |
72 |
elsif ($line->key eq 'END') { } |
|
57
|
0 |
6 |
unless $v_types{$v_type} |
|
71
|
0 |
6 |
if $v_type ne $line->value->as_string |
|
85
|
0 |
6 |
unless ($return_self) |
|
104
|
124 |
84 |
if ($line =~ /^\s/msx or $quoted_printable and $lines[-1] =~ / = \r? \Z /msx) |
|
106
|
0 |
124 |
unless @lines |
|
132
|
6 |
15 |
if @_ |
|
135
|
21 |
0 |
ref $self ? : |
|
171
|
0 |
32 |
unless my $field_name = shift() |
|
176
|
1 |
31 |
if (defined $param_name) |
|
218
|
73 |
181 |
if (@_) |
|
221
|
15 |
239 |
unless $$self{'params'} |
|
232
|
60 |
33 |
if ($key =~ /^([^;]+);(.+)$/msx) |
|
240
|
0 |
106 |
unless $key_param =~ /^ (?: ([^=]+) = )? (.+) $/msx |
|
256
|
10 |
50 |
if ($enc_type) |
|
257
|
7 |
3 |
if ($enc_type eq 'quoted-printable') { } |
|
|
3 |
0 |
elsif ($enc_type eq 'base64') { } |
|
274
|
51 |
9 |
if none sub {
$_ eq $key_name;
}
, 'photo', 'logo', 'sound', 'key' |
|
276
|
53 |
7 |
if ($charset) |
|
283
|
9 |
84 |
if (lc $self->key eq 'n' and not $self->key->isa('Data::v::Card::Value::Name')) { } |
|
|
9 |
150 |
elsif (lc $self->key eq 'adr' and not $self->key->isa('Data::v::Card::Value::Adr')) { } |
|
301
|
0 |
160 |
unless my $param_name = shift() |
|
310
|
0 |
146 |
unless my $param_name = shift() |
|
313
|
0 |
146 |
if @params > 1 |
|
321
|
0 |
146 |
unless my $param_name = shift() |
|
324
|
118 |
28 |
unless $param |
|
330
|
0 |
4 |
unless my $param_name = shift() |
|
334
|
2 |
2 |
if (ref $param_value) |
|
339
|
2 |
2 |
if $param->name eq $param_name |
|
360
|
2 |
1 |
$$_{'name'} eq $param_name ? : |
|
372
|
0 |
5 |
unless my $param_name = shift() |
|
376
|
4 |
1 |
if (@params > 0 or ref $param_value) { } |
|
|
1 |
0 |
elsif (@params == 0) { } |
|
391
|
0 |
1 |
unless my $param_name = shift() |
|
407
|
2 |
12 |
if scalar @{$params;} == 0 |
|
414
|
1 |
11 |
if ($enc_type) |
|
415
|
1 |
0 |
if ($enc_type eq 'quoted-printable') { } |
|
|
0 |
0 |
elsif ($enc_type eq 'base64') { } |
|
426
|
8 |
4 |
if ($self->version eq '2.1') { } |
|
|
4 |
0 |
elsif ($self->version ge '3.0') { } |
|
440
|
4 |
4 |
@types ? : |
|
|
8 |
2 |
lc $_->name eq 'type' ? : |
|
468
|
54 |
14 |
if (exists $$self{'original_line'}) |
|
472
|
0 |
54 |
unless $original_line =~ / \n \Z /msx |
|
486
|
14 |
0 |
unless $line =~ /\n$/msx |
|
532
|
10 |
1 |
defined $$self{'value'} ? : |
|
547
|
9 |
4 |
defined $_ ? : |
|
571
|
0 |
4 |
if (@_) |
|
579
|
0 |
4 |
if (@_) |
|
587
|
1 |
4 |
if (@_) |
|
595
|
0 |
4 |
if (@_) |
|
603
|
1 |
4 |
if (@_) |
|
627
|
10 |
1 |
defined $$self{'value'} ? : |
|
642
|
10 |
4 |
defined $_ ? : |
|
667
|
0 |
3 |
if (@_) |
|
677
|
0 |
3 |
if (@_) |
|
687
|
0 |
3 |
if (@_) |
|
697
|
0 |
3 |
if (@_) |
|
707
|
0 |
3 |
if (@_) |
|
717
|
0 |
3 |
if (@_) |
|
727
|
1 |
4 |
if (@_) |
|
754
|
0 |
166 |
if @_ |
|
763
|
2 |
111 |
if @_ |
|
773
|
14 |
66 |
lc $self->name eq 'type' ? : |