| line |
true |
false |
branch |
|
31
|
0 |
203 |
UNIVERSAL::isa($other, 'Mail::Message::Field') ? : |
|
42
|
48 |
85 |
@_ % 2 == 1 ? : |
|
52
|
77 |
56 |
$attr =~ /^(.*?)(?:\*\d+)?\*?\s*\=\s*/ ? : |
|
53
|
0 |
133 |
unless $name =~ /^[!#-'*+\-.0-9A-Z^-~]+$/ |
|
58
|
3 |
130 |
if defined $args->{'charset'} |
|
59
|
1 |
132 |
if defined $args->{'language'} |
|
61
|
48 |
85 |
defined $value ? : |
|
62
|
77 |
56 |
if $attr ne $name |
|
74
|
141 |
650 |
if (@_) |
|
78
|
560 |
90 |
exists $self->{'MMFF_value'} ? : |
|
84
|
0 |
91 |
unless defined $component |
|
88
|
6 |
85 |
if (substr($name, -1) eq "*" and $value =~ /^([^']*)\'([^']*)\'/) |
|
89
|
4 |
2 |
length $1 ? : |
|
90
|
2 |
4 |
length $2 ? : |
|
93
|
8 |
83 |
if ($name =~ /\*([0-9]+)\*?$/) { } |
|
110
|
57 |
9 |
wantarray ? : |
|
127
|
6 |
45 |
if ($charset or $lang) { } |
|
|
0 |
45 |
elsif (grep /[^\x20-\x7E]/, $value) { } |
|
142
|
6 |
45 |
if ($encoded) { } |
|
|
45 |
0 |
elsif ($cont) { } |
|
147
|
66 |
103 |
unless $c =~ /[a-zA-Z0-9]/ |
|
150
|
2 |
167 |
if ($cont and length($pre) + length($c) > 76) { } |
|
162
|
45 |
1 |
unless length $value |
|
172
|
49 |
2 |
if @lines == 1 |
|
182
|
1 |
95 |
unless (defined $cont) |
|
189
|
12 |
83 |
if (substr($name, -1) eq '*') { } |
|
|
1 |
82 |
elsif (s/^\"(.*)\"$/$1/) { } |
|
|
2 |
80 |
elsif (s/^\'(.*)\'$/$1/) { } |
|
200
|
5 |
85 |
if $charset |
|
210
|
0 |
1 |
unless my $cont = $self->{'MMFF_cont'} |