| 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 ? : |