| line |
true |
false |
branch |
|
24
|
0 |
0 |
if (length $header > 8) { } |
|
40
|
0 |
0 |
unless opendir DIR, $dir |
|
45
|
0 |
0 |
unless $f =~ /^([\w\-]+)/ |
|
49
|
0 |
0 |
if (-d $n) { } |
|
57
|
0 |
0 |
if $@ |
|
66
|
0 |
0 |
if (@_) |
|
75
|
0 |
0 |
unless $f =~ /^Mail(\W)Field\W/i |
|
93
|
0 |
0 |
if $class eq 'Mail::Field' |
|
96
|
0 |
0 |
if 'Mail::Field'->can($method) |
|
102
|
0 |
0 |
unless $class->can('stringify') or eval "require $class" |
|
113
|
0 |
0 |
@_ == 1 ? : |
|
133
|
0 |
0 |
unless $method =~ /^[^A-Z\x00-\x1f\x80-\xff :]+$/ |
|
138
|
0 |
0 |
unless (eval "require $class") |
|
142
|
0 |
0 |
/^[b-df-hj-np-tv-z]+$|^MIME$/i ? : |
|
150
|
0 |
0 |
unless 'Mail::Field'->can($method) |
|
164
|
0 |
0 |
if (@_ == 0 and wantarray) |
|
175
|
0 |
0 |
unless my $text = $head->get($tag, $idx) |
|
212
|
0 |
0 |
/^[b-df-hj-np-tv-z]+$|^MIME$/i ? : |
|
226
|
0 |
0 |
@_ ? : |