Branch Coverage

blib/lib/Cisco/ACL.pm
Criterion Covered Total %
branch 54 82 65.8


line true false branch
89 1 12 if (exists $args{'permit'} and exists $args{'deny'})
94 4 8 if (exists $args{'permit'} and $args{'permit'})
99 0 12 if (exists $args{'established'} and $args{'established'})
106 32 16 if (ref $args{$_} eq 'ARRAY' and @{$args{$_};}) { }
0 16 elsif ($args{$_}) { }
128 0 20 wantarray ? :
153 17 3 $self->src_addr_count ? :
156 18 2 $self->dst_addr_count ? :
159 17 3 $self->src_port_count ? :
162 18 2 $self->dst_port_count ? :
171 28 2 $self->protocol ? :
205 0 30 if ($protocol eq 'both')
209 18 12 $action ? :
212 18 12 if ($src_addr =~ m[/]) { }
5 7 elsif ($src_addr =~ /any/) { }
222 4 26 if ($dst_addr =~ m[/]) { }
16 10 elsif ($dst_addr =~ /any/) { }
232 23 7 if ($src_port =~ /any/) { }
239 12 18 if ($dst_port =~ /any/) { }
247 2 28 if ($established)
266 15 25 if ($list[0] =~ /any/)
272 31 0 if (not $addr =~ /\-/) { }
279 0 0 if ($number_of_endpoints != 2)
288 0 0 if ($number_of_octets == 4) { }
315 6 36 if ($tidbit =~ /\-/) { }
320 0 6 if ($number_of_endpoints != 2)
328 4 2 if ($start >= $end)
359 510 194 if ($toggle_bait eq '1') { }
390 0 0 if ($range eq '')
395 0 0 if ($difference == 0)
408 0 0 if ($got_it)
421 0 0 if ($trial_start == $start) { }
427 0 0 if ($trial_end > $end)
457 0 0 if ($got_it) { }
460 0 0 if ($start > $end)
466 0 0 if ($start > $end)
504 510 194 if ($i <= $cidr - 1)
540 0 44 if ($decimal >= 4294967296)
545 672 736 if ($decimal >= 2 ** (31 - $i))
554 0 44 if ($decimal != 0)
606 1158 1658 if ($bit)