| line |
true |
false |
branch |
|
30
|
8 |
0 |
if (defined $becomes) { } |
|
32
|
8 |
0 |
if $becomes ne $_ |
|
38
|
0 |
4 |
unless $changes |
|
52
|
0 |
9 |
if @_ == 1 |
|
57
|
18 |
21 |
unless defined $_ |
|
58
|
16 |
0 |
$_->isa('Mail::Message::Body') ? : |
|
|
0 |
16 |
$_->isa('Mail::Message') ? : |
|
|
1 |
16 |
ref $_ eq 'ARRAY' ? : |
|
|
4 |
17 |
!ref($_) ? : |
|
82
|
0 |
0 |
unless @parts |
|
83
|
0 |
0 |
$self->isMultipart ? : |
|
|
0 |
0 |
$self->isNested ? : |
|
89
|
0 |
0 |
if @parts == 1 |
|
101
|
0 |
14 |
if $self->mimeType->isBinary |
|
105
|
2 |
2 |
!ref($args{'pattern'}) ? : |
|
|
10 |
4 |
!defined($args{'pattern'}) ? : |
|
109
|
4 |
7 |
exists $args{'max_lines'} ? : |
|
|
3 |
11 |
defined $args{'max_lines'} ? : |
|
112
|
8 |
6 |
if $stop < 0 |
|
115
|
1 |
13 |
if (ref $pattern eq 'CODE') { } |
|
117
|
3 |
1 |
unless &$pattern($lines->[$sigstart]) |
|
124
|
67 |
9 |
unless $lines->[$sigstart] =~ /$pattern/ |
|
130
|
4 |
10 |
unless $found |
|
139
|
4 |
6 |
unless wantarray |