Branch Coverage

blib/lib/Net/DirectConnect/adc.pm
Criterion Covered Total %
branch 0 244 0.0


line true false branch
97 0 0 if ref $_[0]
103 0 0 if (&Net::DirectConnect::use_try('Crypt::Rhash'))
113 0 0 if (&Net::DirectConnect::use_try('MIME::Base32', 'RFC')) { }
115 0 0 if ref $_[0]
119 0 0 if ref $_[0]
124 0 0 unless $warned++
126 0 0 if (&Net::DirectConnect::use_try('Net::DirectConnect::TigerHash')) { }
127 0 0 if ref $_[0]
128 0 0 if ref $_[0]
132 0 0 if ref $_[0]
136 0 0 if ref $_[0]
142 0 0 if ref $_[0]
145 0 0 if ref $_[0]
147 0 0 if $$self{'peers'}{$peerid}{'INF'}{'I4'} and $$self{'peers'}{$peerid}{'INF'}{'U4'}
153 0 0 if ref $_[0]
154 0 0 if (-s $$self{'ID_file'})
155 0 0 unless ($$self{'ID'})
168 0 0 if ref $_[0]
172 0 0 if $$self{'INF'}{'PD'}
173 0 0 if $$self{'INF'}{'ID'}
175 0 0 $$self{'broadcast'} ? :
196 0 0 $$self{'dev_ipv6'} || $$self{'myip'} =~ /:/ ? :
202 0 0 if ($$self{'ipv6_only'})
205 0 0 unless $$self{'SU'}
212 0 0 if ref $_[0]
245 0 0 if ref $_[0]
246 0 0 if $$self{'socket'}
255 0 0 if ($$self{'broadcast'})
259 0 0 if ($$self{'hub'}) { }
0 0 elsif ($$self{'parent'}{'hub'}) { }
277 0 0 if $$self{'broadcast'}
281 0 0 if ($$self{'dev_sctp'})
286 0 0 if ($$self{'dev_sctp'})
300 0 0 if ref $_[0]
306 0 0 if ($dst eq 'H') { }
0 0 elsif ($dst eq 'C') { }
323 0 0 unless $$self{'count_sendcmd'}{'CINF'}
327 0 0 if ((s/^(AD|RM)//)[0] eq 'RM') { }
348 0 0 if ref $_[0]
351 0 0 unless $dst eq 'I'
354 0 0 if ($dst eq 'I')
361 0 0 if ref $_[0]
375 0 0 if ($dst ne 'B' and $peerid ||= $$params{'ID'})
378 0 0 unless $$self{'peers'}{''}
383 0 0 if ($$self{'parent'}{'hub'} and $dst eq 'B')
384 0 0 unless (keys %{$$self{'peers'}{$peerid}{'INF'};})
391 0 0 $$self{'hostip'} =~ /:/ ? :
392 0 0 if $dst eq 'B' and $$self{'parent'}{'hub'} and $$params{"I$v"} and $$params{"I$v"} ne $$self{'hostip'}
397 0 0 $$self{'recv_hostip'} =~ /:/ ? :
398 0 0 if ($$self{'broadcast'})
409 0 0 if ($peerid eq $$self{'INF'}{'SID'} and not $$self{'myip'})
429 0 0 if ($dst eq 'C')
431 0 0 unless $$self{'count_sendcmd'}{'CINF'}
432 0 0 if ($$params{'TO'}) { }
440 0 0 if ($$self{'parent'}{'hub'})
446 0 0 if ($$self{'broadcast'} and $peerid ne $$self{'INF'}{'SID'} and $dst eq 'B')
450 0 0 if $$self{'broadcast'}
456 0 0 if ref $_[0]
466 0 0 if ref $_[0]
479 0 0 if ($code ~~ '20' and $_[0] =~ /^Reconnecting too fast, you have to wait (\d+) seconds before reconnecting./) { }
0 0 elsif ($code ~~ '30' and $_[0] =~ /^You are disconnected because: You are disconnected for hammering the hub with connect attempts, stop or you'll be kicked !!!/) { }
491 0 0 if ref $_[0]
499 0 0 if ($found)
504 0 0 $found =~ m[^/] ? :
521 0 0 if ($$self{'peers'}{$peerid}{'INF'}{'I4'} and $$self{'peers'}{$peerid}{'INF'}{'U4'}) { }
544 0 0 if ref $_[0]
550 0 0 if ($dst eq 'D' and $$self{'parent'}{'hub'} and ref $$self{'peers'}{$toid}{'object'}) { }
558 0 0 if ($wdl)
561 0 0 if ($$params{'filename'})
568 0 0 if ref $_[0]
577 0 0 if ref $_[0]
581 0 0 if $toid eq $$self{'INF'}{'SID'}
584 0 0 if ($dst eq 'D' and $$self{'parent'}{'hub'} and ref $$self{'peers'}{$toid}{'object'})
607 0 0 if ref $_[0]
610 0 0 if ($dst eq 'D' and $$self{'parent'}{'hub'} and ref $$self{'peers'}{$toid}{'object'})
620 0 0 unless $host
636 0 0 if $toid eq $$self{'INF'}{'SID'}
644 0 0 if ref $_[0]
652 0 0 if ref $_[0]
685 0 0 if ref $_[0]
686 0 0 unless $_[0]
690 0 0 if ref $_[0]
694 0 0 if ($$self{'adc'}) { }
700 0 0 if ref $_[0]
702 0 0 if ($$self{'adc'}) { }
716 0 0 if ref $_[0]
726 0 0 if ref $_[0]
731 0 0 if ($$self{'broadcast'})
737 0 0 if ref $_[0]
745 0 0 if ref $_[0]
747 0 0 unless $$self{'parent'}{'hub'}
751 0 0 if ref $_[0]
762 0 0 unless $$self{'broadcast'}
773 0 0 if ref $_[0]
780 0 0 if ref $_[0]
784 0 0 if ($$self{'parent'}{'hub'}) { }
785 0 0 if ($dst eq 'I') { }
0 0 elsif ($dst eq 'B') { }
807 0 0 $$self{'message_type'} eq 'H' ? :
0 0 @_ ? :
0 0 $dst eq 'C' ? :
820 0 0 if ref $_[0]
824 0 0 unless (@_)
825 0 0 if $$self{'filename'}
827 0 0 unless @_
832 0 0 if ref $_[0]
836 0 0 if $_
865 0 0 unless ($$self{'no_listen'})
867 0 0 unless ($$self{'incoming'} or $$self{'auto_listen'})
888 0 0 unless $$self{'myport_tcp'}
920 0 0 unless $$self{'myport_udp'}
922 0 0 if ($$self{'dev_sctp'})
936 0 0 unless $$self{'myport_sctp'}
954 0 0 if ($$self{'dev_http'})
984 0 0 unless $$self{'myport_http'}
986 0 0 if ($$self{'hub'} and $$self{'dev_sctp'})
996 0 0 unless $$self{'myport_tcp'}
1001 0 0 if ref $_[0]
1008 0 0 if $$self{'parent'}{'hub'} and $$self{'peerid'}
1009 0 0 unless $$self{'parent'}
1016 0 0 if $$self{'socket'}
1018 0 0 if $$self{'incoming'}