| line |
true |
false |
branch |
|
42
|
49 |
1 |
ref $head ? : |
|
69
|
47 |
375 |
if (/^\s+/ or not /^([^:]+):\s*(.*)/) { } |
|
72
|
1 |
46 |
unless @headers |
|
75
|
44 |
2 |
$headers[-1][0] =~ /\S/ ? : |
|
115
|
393 |
48 |
if (ref $$headers[$i + 1]) { } |
|
192
|
85 |
78 |
ref $_[0] ? : |
|
200
|
10 |
64 |
if (wantarray and not defined $index) { } |
|
204
|
36 |
28 |
unless defined $index |
|
206
|
52 |
12 |
$index >= 0 ? : |
|
207
|
12 |
52 |
if $index < 0 |
|
209
|
156 |
93 |
unless lc $$headers[$_ * 2] eq $lc_field |
|
210
|
49 |
44 |
if $index-- == 0 |
|
249
|
0 |
21 |
if ($Email::Simple::GROUCHY) |
|
250
|
0 |
0 |
unless $field =~ /^[\x21-\x39\x3b-\x7e]+$/ |
|
252
|
0 |
0 |
unless $field =~ /^[\w-]+$/ |
|
262
|
2 |
19 |
if (@indices > @data) { } |
|
|
11 |
8 |
elsif (@data > @indices) { } |
|
278
|
2 |
19 |
wantarray ? : |
|
298
|
0 |
9 |
unless defined $field |
|
301
|
0 |
9 |
unless defined $value |
|
336
|
0 |
48 |
unless exists $arg->{'at'} |
|
338
|
0 |
48 |
unless exists $arg->{'indent'} |
|
345
|
21 |
27 |
if ($line =~ /\n/) |
|
346
|
1 |
20 |
if ($line =~ s/\n([^\s\t])/\n$indent$1/g) { } |
|
349
|
15 |
5 |
unless $line =~ /\n$/ |
|
354
|
0 |
28 |
unless $arg->{'at'} and $arg->{'at'} > 0 |
|
358
|
27 |
1 |
if length $line <= $limit |
|
370
|
25 |
0 |
if ($line =~ s/^(.{0,$limit})(\s|\z)//) { } |
|
372
|
3 |
22 |
if length $line |