| line |
true |
false |
branch |
|
20
|
0 |
0 |
if (length $header > 8) { } |
|
36
|
0 |
0 |
unless opendir DIR, $dir |
|
41
|
0 |
0 |
unless $f =~ /^([\w\-]+)/ |
|
45
|
0 |
0 |
if (-d $n) { } |
|
53
|
0 |
0 |
if $@ |
|
62
|
0 |
0 |
if (@_) |
|
71
|
0 |
0 |
unless $f =~ /^Mail(\W)Field\W/i |
|
89
|
0 |
0 |
if $class eq 'Mail::Field' |
|
92
|
0 |
0 |
if 'Mail::Field'->can($method) |
|
98
|
0 |
0 |
unless $class->can('stringify') or eval "require $class" |
|
109
|
0 |
0 |
@_ == 1 ? : |
|
129
|
0 |
0 |
unless $method =~ /^[^A-Z\x00-\x1f\x80-\xff :]+$/ |
|
134
|
0 |
0 |
unless (eval "require $class") |
|
138
|
0 |
0 |
/^[b-df-hj-np-tv-z]+$|^MIME$/i ? : |
|
146
|
0 |
0 |
unless 'Mail::Field'->can($method) |
|
160
|
0 |
0 |
if (@_ == 0 and wantarray) |
|
171
|
0 |
0 |
unless my $text = $head->get($tag, $idx) |
|
208
|
0 |
0 |
/^[b-df-hj-np-tv-z]+$|^MIME$/i ? : |
|
222
|
0 |
0 |
@_ ? : |