| line |
true |
false |
branch |
|
46
|
0 |
26 |
if ref $class |
|
105
|
0 |
26 |
if $self->debug |
|
108
|
10 |
16 |
if ($self->parameter('Alias')) { } |
|
125
|
0 |
26 |
if $self->debug |
|
132
|
0 |
5 |
if $self->debug |
|
142
|
0 |
21 |
if $self->debug |
|
157
|
0 |
42 |
if (defined $self->parameter($opt)) |
|
183
|
0 |
18 |
if $self->debug |
|
212
|
0 |
3 |
if $self->debug |
|
229
|
0 |
194 |
if $self->debug |
|
234
|
45 |
149 |
if ($self->parameter('TransactionLog')) |
|
241
|
123 |
71 |
if ($input =~ /
^(\d{3}) # first 3 digits
\s+
(.*)$ # SMTP message corresponding to the SMTP code
/ox or $input =~ /
^(\d{3})
\s*$ # in case there's no status message ...
/ox) { } |
|
|
71 |
0 |
elsif ($input =~ /
# these lines are advertising SMTP capabilities
^(\d{3}) # 3 digits
\- # separator
(.*)$ # capability
/ox) { } |
|
256
|
17 |
106 |
unless (defined $smtp_string) |
|
262
|
0 |
123 |
unless (defined $smtp_code) |
|
266
|
118 |
5 |
if ($smtp_code =~ /^(1|2|3)\d{2}$/) { } |
|
|
4 |
1 |
elsif ($smtp_code =~ /
^(4|5)\d{2}$ # look for error codes (starting with 4 or 5)
/ox) { } |
|
272
|
22 |
96 |
if (not defined $to_send) { } |
|
276
|
12 |
10 |
unless ($self->parameter('message_sent')) |
|
277
|
0 |
12 |
if $self->debug |
|
293
|
0 |
96 |
if $self->debug |
|
294
|
21 |
75 |
if ($self->parameter('TransactionLog')) |
|
306
|
0 |
4 |
if $self->debug |
|
319
|
0 |
1 |
if $self->debug |
|
334
|
0 |
71 |
if ($self->parameter('Debug') > 1) |
|
339
|
0 |
0 |
if $self->debug |
|
351
|
0 |
0 |
if $self->debug |
|
360
|
0 |
2 |
if $self->debug |
|
369
|
0 |
15 |
if $self->debug |
|
376
|
3 |
12 |
if (ref $value eq 'ARRAY') { } |
|
385
|
14 |
1 |
unless ($self->parameter('message_sent')) |
|
386
|
0 |
14 |
if $self->debug |
|
404
|
0 |
37 |
if $self->debug |
|
410
|
21 |
16 |
if ($self->parameter('Alias')) { } |
|
475
|
251 |
217 |
if (exists $$parameters{$parameter}) { } |
|
495
|
0 |
1879 |
unless ref $self |
|
496
|
0 |
1879 |
unless defined $parameter |
|
498
|
101 |
1778 |
if (defined $value) |
|
509
|
0 |
21 |
unless ref $self |
|
510
|
21 |
0 |
if (defined $wheel) |
|
520
|
0 |
37 |
unless ref $self |
|
521
|
0 |
37 |
if (defined $wheel) { } |
|
533
|
0 |
114 |
unless ref $self |
|
535
|
18 |
96 |
if (defined $wheel) { } |
|
546
|
0 |
114 |
unless (defined $ret) |
|
556
|
0 |
37 |
unless ref $self |
|
557
|
0 |
37 |
if (defined $wheel) { } |
|
569
|
0 |
4 |
unless ref $self |
|
570
|
4 |
0 |
if (defined $wheel) |
|
578
|
0 |
37 |
unless ref $self |
|
579
|
0 |
37 |
if (defined $wheel) { } |
|
590
|
0 |
233 |
unless ref $self |
|
591
|
39 |
194 |
if (defined $alarm) { } |
|
604
|
0 |
0 |
unless ref $self |
|
614
|
0 |
26 |
unless ref $self |
|
616
|
0 |
26 |
if $self->debug |
|
626
|
7 |
19 |
if (defined $self->parameter('Auth')->{'mechanism'}) |
|
636
|
0 |
26 |
if (ref(${$rcpt_to;}) =~ /SCALAR/io) { } |
|
|
16 |
10 |
elsif (ref(${$rcpt_to;}) =~ /ARRAY/io) { } |
|
659
|
4 |
22 |
if (defined $self->parameter('MessageFile') or defined $self->parameter('FileHandle')) { } |
|
675
|
0 |
4 |
if $self->debug |
|
677
|
3 |
1 |
if (not defined $self->parameter('FileHandle')) { } |
|
684
|
0 |
4 |
unless (defined $handle) |
|
687
|
0 |
0 |
if $self->debug |
|
698
|
4 |
0 |
if (defined $self->parameter('Body')) |
|
717
|
0 |
4 |
if $self->debug |
|
727
|
0 |
4 |
if $self->debug |
|
728
|
0 |
4 |
if ($self->debug > 1) |
|
736
|
4 |
0 |
if ($errnum == 0) { } |
|
768
|
0 |
118 |
unless ref $self |
|
780
|
0 |
26 |
unless ref $self |
|
782
|
0 |
26 |
if $self->debug |
|
787
|
7 |
19 |
if (defined $mechanism) { } |
|
788
|
5 |
2 |
if ($self->_is_auth_supported_by_poco($mechanism)) { } |
|
791
|
2 |
3 |
if (defined $user and defined $pass) { } |
|
831
|
16 |
10 |
if (ref(${$rcpt_to;}) =~ /ARRAY/io) { } |
|
|
0 |
10 |
elsif (ref(${$rcpt_to;}) =~ /SCALAR/io) { } |
|
845
|
22 |
4 |
if (not $self->parameter('MessageFile') || $self->parameter('FileHandle')) { } |
|
873
|
0 |
542 |
unless ref $self |
|
874
|
0 |
542 |
if (defined $debug_level) |
|
883
|
5 |
2 |
if (uc $requested_mehtod eq $mechanism) |
|
895
|
2 |
0 |
if ($mechanism eq 'PLAIN') { } |
|
897
|
0 |
2 |
if ($@) { } |
|
919
|
3 |
0 |
if (-e $filename and -r $filename) { } |
|
934
|
0 |
92 |
unless ref $self |
|
936
|
66 |
26 |
if (defined $log) { } |