| line |
true |
false |
branch |
|
37
|
8 |
0 |
if (defined $becomes) { } |
|
39
|
8 |
0 |
if $becomes ne $_ |
|
44
|
4 |
0 |
$changes ? : |
|
50
|
0 |
9 |
if @_ == 1 |
|
54
|
16 |
0 |
$_->isa('Mail::Message::Body') ? : |
|
|
0 |
16 |
$_->isa('Mail::Message') ? : |
|
|
1 |
16 |
ref $_ eq 'ARRAY' ? : |
|
|
4 |
17 |
!ref($_) ? : |
|
75
|
0 |
0 |
unless @parts |
|
77
|
0 |
0 |
$self->isMultipart ? : |
|
|
0 |
0 |
$self->isNested ? : |
|
79
|
0 |
0 |
@parts == 1 ? : |
|
88
|
0 |
14 |
if $self->mimeType->isBinary |
|
91
|
2 |
2 |
!ref($p) ? : |
|
|
10 |
4 |
!defined($p) ? : |
|
97
|
4 |
7 |
exists $args{'max_lines'} ? : |
|
|
3 |
11 |
defined $args{'max_lines'} ? : |
|
100
|
8 |
6 |
if $stop < 0 |
|
103
|
1 |
13 |
if (ref $pattern eq 'CODE') { } |
|
105
|
3 |
1 |
unless &$pattern($lines->[$sigstart]) |
|
112
|
67 |
9 |
unless $lines->[$sigstart] =~ /$pattern/ |
|
118
|
4 |
10 |
unless $found |
|
123
|
4 |
6 |
unless wantarray |