| line |
true |
false |
branch |
|
212
|
0 |
12 |
if ref $_[0] |
|
224
|
11 |
1 |
unless $arg |
|
225
|
0 |
12 |
if (my(@bogus) = grep({not $IS_INIT_ARG{$_};} @init_args)) |
|
231
|
1 |
0 |
if ($IS_ARRAY_ARG{$init_arg} and ref $args[0] and ref $args[0] eq 'ARRAY') |
|
243
|
60 |
8 |
ref $either ? : |
|
283
|
0 |
3 |
unless @_ |
|
297
|
0 |
27 |
unless $allow_empty or @$list |
|
301
|
0 |
34 |
unless defined $_ |
|
304
|
3 |
31 |
if ref $_ and not &blessed($_) |
|
312
|
2 |
9 |
@_ > 1 ? : |
|
325
|
0 |
10 |
if @_ > 1 |
|
339
|
0 |
1 |
if @_ > 1 |
|
353
|
1 |
0 |
@_ > 1 ? : |
|
366
|
1 |
0 |
@_ > 1 ? : |
|
378
|
0 |
10 |
unless defined $_[0] |
|
406
|
7 |
0 |
defined $_[0] ? : |
|
437
|
2 |
0 |
defined $_[0] ? : |
|
470
|
6 |
5 |
if (defined $filename) |
|
471
|
6 |
0 |
if ($filename =~ /\.([a-zA-Z]{3,4})\z/) |
|
485
|
6 |
0 |
if defined $content_type |
|
488
|
5 |
0 |
if ($body =~ /
\A(?:
(GIF8) # gif
| (\xff\xd8) # jpeg
| (\x89PNG) # png
| (%PDF-) # pdf
)
/x) |
|
496
|
1 |
4 |
if $1 |
|
497
|
1 |
3 |
if $2 |
|
498
|
2 |
1 |
if $3 |
|
499
|
1 |
0 |
if $4 |
|
506
|
12 |
0 |
defined $_[0] ? : |
|
515
|
11 |
1 |
unless ($attr{'content_type'}) |
|
523
|
3 |
9 |
if $slot < 3 |
|
550
|
0 |
9 |
if (&Params::Util::_INSTANCE($body_arg, 'IO::All::File')) { } |
|
|
8 |
1 |
elsif (defined $body_arg and &Params::Util::_STRING($body_arg)) { } |
|
557
|
1 |
7 |
unless -f $body_arg |
|
570
|
0 |
7 |
unless defined $name |
|
581
|
1 |
7 |
unless open my $slurp, '<:raw', $file |
|
583
|
0 |
7 |
unless close $slurp |
|
610
|
7 |
0 |
if (@_) |
|
612
|
7 |
0 |
if (&_INSTANCEDOES($_[0], 'Email::Sender::Transport')) { } |
|
616
|
0 |
0 |
$moniker =~ s/\A=// ? : |
|
643
|
3 |
58 |
if (scalar @{$self->{'parts'};} >= 3) { } |
|
|
5 |
53 |
elsif (scalar @{$self->{'parts'};}) { } |
|
648
|
1 |
4 |
if (&_INSTANCE($parts[0], 'Email::MIME') and &_INSTANCE($parts[1], 'Email::MIME')) { } |
|
|
4 |
0 |
elsif (&_INSTANCE($parts[0], 'Email::MIME')) { } |
|
672
|
0 |
20 |
unless @_ |
|
674
|
8 |
52 |
if &$f() |
|
685
|
8 |
12 |
if &_any(sub {
$_ eq $header_name;
}
, @headers_skip) |
|
721
|
0 |
5 |
unless my $email = $self->email |
|
725
|
5 |
0 |
$transport ? : |
|
|
0 |
5 |
$arg ? : |
|
753
|
0 |
2 |
unless my $email = $self->email |
|
757
|
2 |
0 |
$transport ? : |
|
|
0 |
2 |
$arg ? : |