| line |
true |
false |
branch |
|
210
|
0 |
12 |
if ref $_[0] |
|
222
|
11 |
1 |
unless $arg |
|
223
|
0 |
12 |
if (my(@bogus) = grep({not $IS_INIT_ARG{$_};} @init_args)) |
|
229
|
1 |
0 |
if ($IS_ARRAY_ARG{$init_arg} and ref $args[0] and ref $args[0] eq "ARRAY") |
|
241
|
60 |
8 |
ref $either ? : |
|
281
|
0 |
3 |
unless @_ |
|
295
|
0 |
27 |
unless $allow_empty or @$list |
|
299
|
0 |
34 |
unless defined $_ |
|
302
|
3 |
31 |
if ref $_ and not &blessed($_) |
|
310
|
2 |
9 |
@_ > 1 ? : |
|
323
|
0 |
10 |
if @_ > 1 |
|
337
|
0 |
1 |
if @_ > 1 |
|
351
|
1 |
0 |
@_ > 1 ? : |
|
364
|
1 |
0 |
@_ > 1 ? : |
|
376
|
0 |
10 |
unless defined $_[0] |
|
404
|
7 |
0 |
defined $_[0] ? : |
|
435
|
2 |
0 |
defined $_[0] ? : |
|
468
|
6 |
5 |
if (defined $filename) |
|
469
|
6 |
0 |
if ($filename =~ /\.([a-zA-Z]{3,4})\z/u) |
|
483
|
6 |
0 |
if defined $content_type |
|
486
|
5 |
0 |
if ($body =~ /
\A(?:
(GIF8) # gif
| (\xff\xd8) # jpeg
| (\x89PNG) # png
| (%PDF-) # pdf
)
/ux) |
|
494
|
1 |
4 |
if $1 |
|
495
|
1 |
3 |
if $2 |
|
496
|
2 |
1 |
if $3 |
|
497
|
1 |
0 |
if $4 |
|
504
|
12 |
0 |
defined $_[0] ? : |
|
513
|
11 |
1 |
unless ($attr{'content_type'}) |
|
521
|
3 |
9 |
if $slot < 3 |
|
548
|
0 |
9 |
if (&Params::Util::_INSTANCE($body_arg, 'IO::All::File')) { } |
|
|
8 |
1 |
elsif (defined $body_arg and &Params::Util::_STRING($body_arg)) { } |
|
555
|
1 |
7 |
unless -f $body_arg |
|
568
|
0 |
7 |
unless defined $name |
|
579
|
1 |
7 |
unless open my $slurp, "<:raw", $file |
|
581
|
0 |
7 |
unless close $slurp |
|
608
|
7 |
0 |
if (@_) |
|
610
|
7 |
0 |
if (&_INSTANCEDOES($_[0], 'Email::Sender::Transport')) { } |
|
614
|
0 |
0 |
$moniker =~ s/\A=//u ? : |
|
641
|
3 |
58 |
if (scalar @{$self->{'parts'};} >= 3) { } |
|
|
5 |
53 |
elsif (scalar @{$self->{'parts'};}) { } |
|
646
|
1 |
4 |
if (&_INSTANCE($parts[0], 'Email::MIME') and &_INSTANCE($parts[1], 'Email::MIME')) { } |
|
|
4 |
0 |
elsif (&_INSTANCE($parts[0], 'Email::MIME')) { } |
|
670
|
0 |
20 |
unless @_ |
|
672
|
8 |
52 |
if &$f() |
|
683
|
8 |
12 |
if &_any(sub {
$_ eq $header_name;
}
, @headers_skip) |
|
719
|
0 |
5 |
unless my $email = $self->email |
|
723
|
5 |
0 |
$transport ? : |
|
|
0 |
5 |
$arg ? : |
|
751
|
0 |
2 |
unless my $email = $self->email |
|
755
|
2 |
0 |
$transport ? : |
|
|
0 |
2 |
$arg ? : |