| 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 ? : |
|
283
|
0 |
3 |
unless @_ |
|
299
|
0 |
27 |
unless $allow_empty or @$list |
|
303
|
0 |
34 |
unless defined $_ |
|
306
|
3 |
31 |
if ref $_ and not &blessed($_) |
|
314
|
2 |
9 |
@_ > 1 ? : |
|
330
|
0 |
10 |
if @_ > 1 |
|
346
|
0 |
1 |
if @_ > 1 |
|
362
|
1 |
0 |
@_ > 1 ? : |
|
377
|
1 |
0 |
@_ > 1 ? : |
|
391
|
0 |
10 |
unless defined $_[0] |
|
421
|
7 |
0 |
defined $_[0] ? : |
|
454
|
2 |
0 |
defined $_[0] ? : |
|
489
|
6 |
5 |
if (defined $filename) |
|
490
|
6 |
0 |
if ($filename =~ /\.([a-zA-Z]{3,4})\z/u) |
|
504
|
6 |
0 |
if defined $content_type |
|
507
|
5 |
0 |
if ($body =~ /
\A(?:
(GIF8) # gif
| (\xff\xd8) # jpeg
| (\x89PNG) # png
| (%PDF-) # pdf
)
/ux) |
|
515
|
1 |
4 |
if $1 |
|
516
|
1 |
3 |
if $2 |
|
517
|
2 |
1 |
if $3 |
|
518
|
1 |
0 |
if $4 |
|
525
|
12 |
0 |
defined $_[0] ? : |
|
534
|
11 |
1 |
unless ($attr{'content_type'}) |
|
542
|
3 |
9 |
if $slot < 3 |
|
573
|
0 |
9 |
if (&Params::Util::_INSTANCE($body_arg, 'IO::All::File')) { } |
|
|
8 |
1 |
elsif (defined $body_arg and &Params::Util::_STRING($body_arg)) { } |
|
580
|
1 |
7 |
unless -f $body_arg |
|
593
|
0 |
7 |
unless defined $name |
|
604
|
1 |
7 |
unless open my $slurp, "<:raw", $file |
|
606
|
0 |
7 |
unless close $slurp |
|
633
|
7 |
0 |
if (@_) |
|
635
|
7 |
0 |
if (&_INSTANCEDOES($_[0], 'Email::Sender::Transport')) { } |
|
639
|
0 |
0 |
$moniker =~ s/\A=//u ? : |
|
668
|
3 |
58 |
if (scalar @{$self->{'parts'};} >= 3) { } |
|
|
5 |
53 |
elsif (scalar @{$self->{'parts'};}) { } |
|
673
|
1 |
4 |
if (&_INSTANCE($parts[0], 'Email::MIME') and &_INSTANCE($parts[1], 'Email::MIME')) { } |
|
|
4 |
0 |
elsif (&_INSTANCE($parts[0], 'Email::MIME')) { } |
|
697
|
0 |
20 |
unless @_ |
|
699
|
8 |
52 |
if &$f() |
|
710
|
8 |
12 |
if &_any(sub {
$_ eq $header_name;
}
, @headers_skip) |
|
748
|
0 |
5 |
unless my $email = $self->email |
|
752
|
5 |
0 |
$transport ? : |
|
|
0 |
5 |
$arg ? : |
|
780
|
0 |
2 |
unless my $email = $self->email |
|
784
|
2 |
0 |
$transport ? : |
|
|
0 |
2 |
$arg ? : |