Branch Coverage

blib/lib/Net/BGP/Transport.pm
Criterion Covered Total %
branch 110 210 52.3


line true false branch
236 0 0 if ($length >= 16) { }
292 5 10 if ($arg =~ /start/i) { }
6 4 elsif ($arg =~ /parent/i) { }
0 4 elsif ($arg =~ /holdtime/i) { }
0 4 elsif ($arg =~ /connectretrytime/i) { }
4 0 elsif ($arg =~ /keepalivetime/i) { }
336 0 0 (shift())->{'_fsm_state'} == BGP_STATE_ESTABLISHED() ? :
359 4 0 if ($$this{'_fsm_state'} == BGP_STATE_ESTABLISHED())
376 2 0 unless ref $refresh eq 'Net::BGP::Refresh'
379 2 0 if ($$this{'_fsm_state'} == BGP_STATE_ESTABLISHED() and $$this{'_peer_refresh'})
396 238 0 unless defined $$this{'_sibling'}
397 0 0 unless $this->parent->transport eq $this
407 0 0 if defined $$this{'_sibling'}
436 0 0 if ($$this{'_fsm_state'} != BGP_STATE_IDLE())
512 32 0 if defined $action
514 0 32 if (my $oops = $@)
516 0 0 if (UNIVERSAL::isa($oops, 'Net::BGP::Notification')) { }
528 32 0 if defined $next_state
531 18 14 if ($next_state != $state)
533 2 16 if ($state == BGP_STATE_ESTABLISHED()) { }
4 12 elsif ($next_state == BGP_STATE_ESTABLISHED()) { }
564 4 14 if ($pre_state == BGP_STATE_OPEN_CONFIRM() and $pos_state == BGP_STATE_ESTABLISHED())
575 0 76 if (length $$this{'_out_msg_buffer'})
595 0 76 if (length $$this{'_out_msg_buffer'})
601 118 110 if (defined $$this{$timer})
604 4 114 if ($$this{$timer} <= 0)
609 95 23 if ($$this{$timer} < $min_time)
616 0 76 if (defined $this->sibling)
619 0 0 if $sibmin < $min_time
630 0 20 unless (defined $$this{'_peer_socket'})
631 0 0 if $oktofail
640 0 20 unless (defined $sent)
641 0 0 if $oktofail
642 0 0 if ($!{'EAGAIN'} == 0)
658 0 32 unless (defined $socket)
667 20 12 if ($$this{'_in_msg_buf_state'} == AWAITING_HEADER_START()) { }
0 12 elsif ($$this{'_in_msg_buf_state'} == AWAITING_HEADER_FRAGMENT()) { }
12 0 elsif ($$this{'_in_msg_buf_state'} == AWAITING_MESSAGE_FRAGMENT()) { }
670 0 20 if ($!)
676 0 20 if ($num_read == 0) { }
0 20 elsif ($num_read != BGP_MESSAGE_HEADER_LENGTH()) { }
691 0 0 if ($num_read == 0) { }
0 0 elsif ($num_read == $$this{'_in_msg_buf_bytes_exp'}) { }
705 0 12 if ($num_read == 0 and $$this{'_in_msg_buf_bytes_exp'} != 0) { }
12 0 elsif ($num_read == $$this{'_in_msg_buf_bytes_exp'}) { }
723 0 32 if ($conn_closed)
731 0 4 unless defined $$this{'_peer_socket'}
747 4 0 if (defined $socket)
769 2 4 if (defined $$this{'_peer_socket'})
795 8 0 if ($$this{'_hold_time'} != 0)
811 4 0 if ($$this{'_hold_time'} != 0)
833 2 0 if ($$this{'_hold_time'} != 0)
840 0 2 unless ($this->parent->this_can_refresh)
923 0 4 unless ($this->_decode_bgp_open_message($this->_dequeue_message))
929 0 4 if (defined $$this{'_sibling'})
930 0 0 if ($$this{'_sibling'}{'_fsm_state'} == BGP_STATE_OPEN_SENT() or $$this{'_sibling'}{'_fsm_state'} == BGP_STATE_OPEN_CONFIRM()) { }
0 0 elsif ($$this{'_sibling'}{'_fsm_state'} == BGP_STATE_ESTABLISHED()) { }
936 0 0 if ($this_id < $peer_id) { }
961 4 0 if ($$this{'_hold_time'} != 0)
997 2 2 unless ($this->parent->is_passive)
1002 2 2 unless ($this->parent->is_passive)
1005 0 2 unless (defined $socket)
1011 0 2 unless (defined $rv)
1017 0 2 unless ($rv)
1022 0 2 unless (defined $rv)
1028 0 2 unless (defined $rv)
1029 0 0 unless $! == 115
1039 0 2 if ($@)
1040 0 0 unless $@ =~ /^OK/
1041 0 0 if (defined $socket)
1058 0 5 $a < $b ? :
1065 6 0 if ($$this{'_fsm_state'} == BGP_STATE_ESTABLISHED())
1084 14 8 if (defined $payload)
1096 0 22 if (defined $$this{'_auth_data'}) { }
1112 0 20 if (length $header != BGP_MESSAGE_HEADER_LENGTH())
1122 0 20 if ($marker ne "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377")
1129 0 20 if ($length < BGP_MESSAGE_HEADER_LENGTH() or $length > BGP_MAX_MESSAGE_LENGTH())
1139 0 20 if ($type < BGP_MESSAGE_OPEN() or $type > BGP_MESSAGE_REFRESH())
1147 8 12 if ($type == BGP_MESSAGE_KEEPALIVE()) { }
1172 6 0 if ($this->parent->support_capabilities)
1174 2 4 if (defined $$this{'_peer_announced_id'}) { }
1177 2 0 if ($$this{'_peer_mbgp'})
1181 1 1 if ($$this{'_peer_as4'})
1188 4 0 if ($this->parent->support_mbgp)
1191 2 2 if ($this->parent->this_can_as4)
1198 6 0 if ($this->parent->this_can_refresh)
1213 3 3 if ($this->parent->this_as > 65535) { }
1276 0 5 if ($version != BGP_VERSION_4())
1286 3 2 if ($as != $this->parent->peer_as)
1287 0 3 if ($this->parent->peer_as < 65536) { }
0 3 elsif ($as != 23456) { }
1298 0 5 if ($hold_time < 3 and $hold_time != 0)
1315 15 0 if ($type eq BGP_OPTION_CAPABILITIES()) { }
1342 0 17 if (length $value < 2)
1361 0 17 if (length $data != $len)
1366 5 12 if ($type == BGP_CAPABILITY_MBGP())
1370 5 12 if ($type == BGP_CAPABILITY_REFRESH())
1373 0 17 if ($type == BGP_CAPABILITY_REFRESH_OLD())
1377 3 14 if ($type == BGP_CAPABILITY_AS4())
1379 0 3 if ($len != 4)
1385 0 3 if ($as != $this->parent->peer_as)
1391 3 0 if ($this->parent->this_can_as4)
1405 0 2 if ($error_code < 1 or $error_code > 6)
1411 0 2 if ($error_subcode < 0 or $error_subcode > 11)
1448 0 2 $data ? :