| line |
true |
false |
branch |
|
26
|
0 |
175 |
UNIVERSAL::isa($other, 'Mail::Message::Field') ? : |
|
36
|
48 |
80 |
@_ % 2 == 1 ? : |
|
46
|
72 |
56 |
$attr =~ /^(.*?)(?:\*\d+)?\*?\s*\=\s*/ ? : |
|
47
|
0 |
128 |
unless $name =~ /^[!#-'*+\-.0-9A-Z^-~]+$/ |
|
51
|
6 |
122 |
defined $cont ? : |
|
52
|
3 |
125 |
if defined $args->{'charset'} |
|
53
|
1 |
127 |
if defined $args->{'language'} |
|
55
|
48 |
80 |
defined $value ? : |
|
56
|
72 |
56 |
if $attr ne $name |
|
69
|
136 |
568 |
if (@_) |
|
73
|
483 |
85 |
exists $self->{'MMFF_value'} ? : |
|
82
|
6 |
80 |
if (substr($name, -1) eq "*" and $value =~ /^([^']*)\'([^']*)\'/) |
|
83
|
4 |
2 |
length $1 ? : |
|
84
|
2 |
4 |
length $2 ? : |
|
87
|
8 |
78 |
if ($name =~ /\*([0-9]+)\*?$/) { } |
|
104
|
57 |
9 |
if wantarray |
|
105
|
0 |
9 |
unless @$cont |
|
126
|
6 |
45 |
if ($charset or $lang) { } |
|
|
0 |
45 |
elsif (grep /[^\x20-\x7E]/, $value) { } |
|
141
|
6 |
45 |
if ($encoded) { } |
|
|
45 |
0 |
elsif ($cont) { } |
|
146
|
66 |
103 |
unless $c =~ /[a-zA-Z0-9]/ |
|
149
|
2 |
167 |
if ($cont and length($pre) + length($c) > 76) { } |
|
161
|
45 |
1 |
unless length $value |
|
171
|
49 |
2 |
if @lines == 1 |
|
181
|
1 |
90 |
unless (defined $cont) |
|
188
|
12 |
78 |
if (substr($name, -1) eq '*') { } |
|
|
1 |
77 |
elsif (s/^\"(.*)\"$/$1/) { } |
|
|
2 |
75 |
elsif (s/^\'(.*)\'$/$1/) { } |
|
199
|
5 |
80 |
if $charset |
|
210
|
0 |
1 |
unless my $cont = $self->{'MMFF_cont'} |