| line |
true |
false |
branch |
|
36
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
40
|
0 |
0 |
if (lc $proto eq 'tcp' or lc $proto eq 'inet') { } |
|
|
0 |
0 |
elsif (lc $proto eq 'unix' or lc $proto eq 'local') { } |
|
41
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
43
|
0 |
0 |
unless $sock = 'IO::Socket::INET'->new('PeerAddr', $addr, 'PeerPort', $port, 'Proto', 'tcp', 'Type', 1, 'Timeout', 10) |
|
51
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
53
|
0 |
0 |
unless $sock = 'IO::Socket::UNIX'->new('Peer', $addr, 'Type', 1, 'Timeout', $port) |
|
60
|
0 |
0 |
if (not defined $sock) { } |
|
76
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
84
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
90
|
0 |
0 |
if (defined $options{$action} and $options{$action} == 0) { } |
|
106
|
0 |
0 |
if (defined $options{$content} and $options{$content} == 1) { } |
|
121
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
129
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
138
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
142
|
0 |
0 |
if ($command ne 'O') |
|
146
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
147
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
148
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
151
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
157
|
0 |
0 |
if ($ret_actions & 2 ** $count) |
|
165
|
0 |
0 |
if ($ret_protocol & 2 ** $count) |
|
182
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
195
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
198
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
200
|
0 |
0 |
if (length $body > 65535) { } |
|
209
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
224
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
227
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
248
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
250
|
0 |
0 |
if (lc $family eq 'unix') { } |
|
|
0 |
0 |
elsif (lc $family eq 'tcp4') { } |
|
|
0 |
0 |
elsif (lc $family eq 'tcp6') { } |
|
257
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
271
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
276
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
291
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
310
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
327
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
343
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
361
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
378
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
384
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
386
|
0 |
0 |
if (length $data < 100) { } |
|
392
|
0 |
0 |
unless (defined $$self{'socket'}) |
|
395
|
0 |
0 |
if length $data > 0 |
|
409
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
414
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
418
|
0 |
0 |
if ($length > 0) |
|
432
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
446
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
461
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
464
|
0 |
0 |
if (defined $data and not $command =~ /[hm]/) |
|
472
|
0 |
0 |
if ($command eq '+') { } |
|
|
0 |
0 |
elsif ($command eq '-') { } |
|
|
0 |
0 |
elsif ($command eq 'a') { } |
|
|
0 |
0 |
elsif ($command eq 'b') { } |
|
|
0 |
0 |
elsif ($command eq 'c') { } |
|
|
0 |
0 |
elsif ($command eq 'd') { } |
|
|
0 |
0 |
elsif ($command eq 'h') { } |
|
|
0 |
0 |
elsif ($command eq 'm') { } |
|
|
0 |
0 |
elsif ($command eq 'p') { } |
|
|
0 |
0 |
elsif ($command eq 'r') { } |
|
|
0 |
0 |
elsif ($command eq 't') { } |
|
|
0 |
0 |
elsif ($command eq 'y') { } |
|
557
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
560
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
566
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
567
|
0 |
0 |
if ($$reply_ref{'command'} eq 'c') { } |
|
|
0 |
0 |
elsif ($$reply_ref{'command'} eq 'a') { } |
|
|
0 |
0 |
elsif ($$reply_ref{'command'} eq 'r') { } |
|
|
0 |
0 |
elsif ($$reply_ref{'command'} eq 't') { } |
|
|
0 |
0 |
elsif ($$reply_ref{'command'} eq 'y') { } |
|
|
0 |
0 |
elsif ($$reply_ref{'command'} eq 'd') { } |
|
584
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
588
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
594
|
0 |
0 |
if (defined $macros{'j'}) |
|
595
|
0 |
0 |
if (defined $macros{'_'}) |
|
596
|
0 |
0 |
if (defined $macros{'{daemon_name}'}) |
|
597
|
0 |
0 |
if (defined $macros{'{if_name}'}) |
|
598
|
0 |
0 |
if (defined $macros{'{if_addr}'}) |
|
600
|
0 |
0 |
if (@data) |
|
601
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
606
|
0 |
0 |
if (defined $macros{'{tls_version}'}) |
|
607
|
0 |
0 |
if (defined $macros{'{cipher}'}) |
|
608
|
0 |
0 |
if (defined $macros{'{cipher_bits}'}) |
|
609
|
0 |
0 |
if (defined $macros{'{cert_subject}'}) |
|
610
|
0 |
0 |
if (defined $macros{'{cert_issuer}'}) |
|
612
|
0 |
0 |
if (@data) |
|
613
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
620
|
0 |
0 |
if (defined $macros{'i'}) |
|
621
|
0 |
0 |
if (defined $macros{'{auth_type}'}) |
|
622
|
0 |
0 |
if (defined $macros{'{auth_authen}'}) |
|
623
|
0 |
0 |
if (defined $macros{'{auth_ssf}'}) |
|
624
|
0 |
0 |
if (defined $macros{'{auth_author}'}) |
|
625
|
0 |
0 |
if (defined $macros{'{mail_mailer}'}) |
|
626
|
0 |
0 |
if (defined $macros{'{mail_host}'}) |
|
627
|
0 |
0 |
if (defined $macros{'{mail_addr}'}) |
|
629
|
0 |
0 |
if (@data) |
|
630
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
636
|
0 |
0 |
if (defined $macros{'{rcpt_mailer}'}) |
|
637
|
0 |
0 |
if (defined $macros{'{rcpt_host}'}) |
|
638
|
0 |
0 |
if (defined $macros{'{rcpt_addr}'}) |
|
640
|
0 |
0 |
if (@data) |
|
641
|
0 |
0 |
if ($Net::Milter::DEBUG == 1) |
|
661
|
0 |
0 |
if (defined $len) { } |
|
682
|
0 |
0 |
if (defined $len) { } |
|
697
|
0 |
1 |
if (defined $$self{'socket'}) |