Branch Coverage

blib/lib/WWW/Honeypot/httpBL.pm
Criterion Covered Total %
branch 0 38 0.0


line true false branch
36 0 0 unless ($self->_init(@_))
45 0 0 ref $_[0] eq 'HASH' ? :
60 0 0 if ($key)
73 0 0 unless $self->access_key
74 0 0 unless $ip
76 0 0 unless ($ip =~ /^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/)
78 0 0 if carp($err_str)
83 0 0 $$self{'_current_response'} ? :
90 0 0 $$self{'_current_response'} && !$self->is_search_engine ? :
97 0 0 $$self{'_current_response'} && !$self->is_search_engine ? :
103 0 0 unless $$self{'_current_response'}
105 0 0 if (${$$self{'_current_response_octets'};}[3] == 0) { }
116 0 0 unless $$self{'_current_response'}
119 0 0 if ($c == 1 or $c == 3 or $c == 5 or $c == 7) { }
129 0 0 unless $$self{'_current_response'}
132 0 0 if ($c == 2 or $c == 3 or $c == 6 or $c == 7) { }
142 0 0 unless $$self{'_current_response'}
146 0 0 if ($c == 4 or $c == 5 or $c == 6 or $c == 7) { }
163 0 0 unless $h