Branch Coverage

blib/lib/Net/BGP/ASPath.pm
Criterion Covered Total %
branch 71 96 73.9


line true false branch
47 111 0 unless (defined $options)
50 1 110 if ref $value eq 'Net::BGP::ASPath'
59 57 53 if (defined $value)
60 1 56 if (ref $value) { }
61 1 0 if (ref $value eq 'ARRAY') { }
96 0 225 unless $value =~ /^(\([^\)]*\))( (.*))?$/ or $value =~ /^(\{[^\}]*\})( (.*))?$/ or $value =~ /^(([0-9]+\s*){1,255})(.*)?$/
114 1 161 unless ref $proto
135 14 17 unless (defined $options)
138 4 27 $options->{'as4'} ? :
140 13 18 unless (defined $buffer2)
149 0 39 unless (defined $segment)
152 0 39 if (CORE::length $buffer and (CORE::length($buffer) - 2) % $size)
161 4 27 if ($options->{'as4'})
177 0 5 unless (defined $segment)
180 0 5 if (CORE::length $buffer2 and (CORE::length($buffer2) - 2) % 4)
190 0 27 if ($as_count < $as4_count)
199 2 3 if ($ele->length <= $remove) { }
222 14 11 unless (defined $args)
230 6 27 if ($segment->_has_as4)
234 1 24 if (not $args->{'as4'} and $has_as4)
238 2 0 unless (ref($segment) =~ /_CONFED_/)
250 15 31 if $value =~ /^\(/
254 1 30 if ref $value eq 'ARRAY'
255 1 30 if $list[0] =~ / /
265 32 1 unless ref $value
268 1 32 if ref $value eq 'ARRAY'
269 2 31 if $list[0] =~ / /
307 3 1 unless ref $olist[0]
331 6 18 if $tail =~ /^[^\(]*\).*$/
335 2 6 if $head =~ /^\([^\)]+$/
350 4 76 unless substr($s1, $i, 1) eq substr($s2, $i, 1)
351 34 42 if substr($s1, $i, 1) eq ' '
363 4 21 unless $ok
377 0 24 unless $thisstr =~ s/^$head//
412 0 1 unless defined $other
413 1 0 $this->length == $other->length ? :
418 0 0 unless defined $other
419 0 0 $this->length != $other->length ? :
424 0 1 unless defined $other
425 1 0 $this->length < $other->length ? :
430 0 1 unless defined $other
431 1 0 $this->length > $other->length ? :
436 0 10 unless defined $other
442 0 21 unless defined $other
443 0 21 unless ref $other eq ref $this
445 20 1 $this->as_string eq $other->as_string ? :
450 0 1 unless defined $other
451 1 0 $this->as_string ne $other->as_string ? :