Branch Coverage

blib/lib/Net/BGP/ASPath/AS.pm
Criterion Covered Total %
branch 40 56 71.4


line true false branch
41 0 664 if ref($value) =~ /^Net::BGP::ASPath::AS_/
45 8 656 unless defined $value
47 0 664 if (ref $value eq "HASH")
50 0 0 unless $class =~ /_SET$/
57 301 363 if (ref $value eq "ARRAY")
60 208 93 if ($class =~ /_SEQUENCE$/) { }
70 0 363 if ref $value
77 134 229 if ($value =~ /^\((.*)\)$/ or $value eq "" and $class =~ /_CONFED_/)
80 130 4 if defined $1
83 102 261 if ($value =~ /^\{([0-9,]*)\}$/ or $value eq '' and $class =~ /_SET$/) { }
261 0 elsif ($value =~ /^[0-9 ]*$/) { }
86 94 8 defined $1 ? :
97 0 363 if not $class =~ /::AS$/ and $class ne $realclass
110 0 44 unless (defined $args)
113 9 35 $args->{'as4'} ? :
117 0 44 if ($len * $size + 2 > length $buffer)
125 9 35 if ($args->{'as4'}) { }
132 10 34 if (length $buffer > 2 + $size * $len) { }
149 0 35 unless (defined $args)
157 29 6 if (not $args->{'as4'}) { }
160 367 4 $as <= 65535 ? :
173 10 23 if (ref($this) =~ /_CONFED_/)
180 6 336 if ($as > 65535)
188 0 0 unless defined $other
195 0 253 unless ref $proto
198 81 172 if ($class =~ /_SET$/) { }
212 0 8 if ref $this eq "Net::BGP::ASPath::AS"
219 0 0 if ref $this eq "Net::BGP::ASPath::AS"