Branch Coverage

blib/lib/Device/XBee/API.pm
Criterion Covered Total %
branch 0 212 0.0


line true false branch
213 0 0 unless $$options{'fh'}
217 0 0 $$options{'auto_reuse_frame_id'} ? :
218 0 0 $$options{'api_mode_escape'} ? :
220 0 0 if ($$options{'alloc_frame_id_func'} and $$options{'free_frame_id_func'})
229 0 0 if (ref $$self{'fh'} ne 'Device::SerialPort' and ref $$self{'fh'} ne 'Win32::SerialPort')
236 0 0 if ($$self{'api_mode_escape'})
263 0 0 unless $to_read
268 0 0 if (not $$self{'fh_sel'}) { }
271 0 0 unless (defined $count)
274 0 0 if ($count > 0) { }
277 0 0 if ($chars >= $to_read)
286 0 0 unless ($$self{'fh_sel'}->can_read($timeout))
290 0 0 if ($c) { }
294 0 0 if ($timeout < 1 and $to_read > 0)
311 0 0 unless defined $d
314 0 0 if ($$self{'api_mode_escape'}) { }
322 0 0 unless ($d)
335 0 0 if (($validate_checksum & 255) != 255)
347 0 0 unless defined $l1
349 0 0 if ($l1 eq '}')
351 0 0 unless defined $l1
356 0 0 unless defined $l2
358 0 0 if ($l2 eq '}')
360 0 0 unless defined $l2
366 0 0 unless defined $data
368 0 0 if ($data =~ /\x7D$/)
370 0 0 unless defined $tail
379 0 0 unless defined $b
380 0 0 if ($b eq '}')
382 0 0 unless defined $b
393 0 0 if ($$self{'free_frame_id_func'})
402 0 0 if ($$self{'alloc_frame_id_func'})
410 0 0 if (not exists $$self{'in_flight_uart_frames'}{$id}) { }
0 0 elsif ($$self{'in_flight_uart_frames'}{$id} < $oldest_time) { }
418 0 0 if ($id > 255)
419 0 0 if ($id == $start_id)
420 0 0 if ($$self{'auto_reuse_frame_id'})
434 0 0 if ($api_id == 136) { }
0 0 elsif ($api_id == 138) { }
0 0 elsif ($api_id == 144) { }
0 0 elsif ($api_id == 145) { }
0 0 elsif ($api_id == 139) { }
0 0 elsif ($api_id == 146) { }
0 0 elsif ($api_id == 149) { }
0 0 elsif ($api_id == 151) { }
0 0 elsif ({136 => 'AT_COMMAND_RESPONSE', 138 => 'MODEM_STATUS', 139 => 'ZIGBEE_TRANSMIT_STATUS', 144 => 'ZIGBEE_RECEIVE_PACKET', 145 => 'ZIGBEE_EXPLICIT_RX_INDICATOR', 146 => 'ZIGBEE_IO_DATA_SAMPLE_RX_INDICATOR', 148 => 'XBEE_SENSOR_READ_INDICATOR_', 149 => 'NODE_IDENTIFICATION_INDICATOR', 151 => 'REMOTE_COMMAND_RESPONSE', 16 => 'ZIGBEE_TRANSMIT_REQUEST', 17 => 'EXPLICIT_ADDRESSING_ZIGBEE_COMMAND_FRAME', 23 => 'REMOTE_COMMAND_REQUEST', 8 => 'AT_COMMAND', 9 => 'AT_COMMAND_QUEUE_PARAMETER_VALUE'}->{$api_id}) { }
464 0 0 if (not $dont_free_id and $$r{'frame_id'})
485 0 0 if ($$self{'api_mode_escape'})
490 0 0 if (not $$self{'fh_sel'}) { }
515 0 0 unless $data
570 0 0 unless ($command)
571 0 0 unless ($tx or $data)
572 0 0 if (not defined $tx and defined $data) { }
0 0 elsif (ref $tx ne 'HASH') { }
579 0 0 if ($$tx{'sh'} and not $$tx{'sl'} or not $$tx{'sh'} and $$tx{'sl'})
585 0 0 unless (defined $$tx{'na'})
588 0 0 unless (defined $$tx{'sh'})
593 0 0 if (not defined $$tx{'disable_ack'}) { }
598 0 0 if (defined $$tx{'apply_changes'}) { }
603 0 0 if (defined $$tx{'extended_xmit_timeout'}) { }
610 0 0 unless defined $data
675 0 0 unless ($tx or $data)
676 0 0 if (not defined $tx and defined $data) { }
0 0 elsif (ref $tx ne 'HASH') { }
683 0 0 if ($$tx{'sh'} and not $$tx{'sl'} or not $$tx{'sh'} and $$tx{'sl'})
685 0 0 unless (defined $$tx{'na'})
686 0 0 unless (defined $$tx{'sh'})
692 0 0 $$tx{'broadcast'} ? :
695 0 0 if ($async)
699 0 0 unless defined $rx
702 0 0 if (wantarray) { }
705 0 0 if ($$rx{'delivery_status'} == 0) { }
716 0 0 unless ($rxq)
717 0 0 if (ref $rxq eq '') { }
0 0 elsif (ref $rxq eq 'ARRAY') { }
730 0 0 unless defined $type
759 0 0 if (scalar @{$$self{'rx_queue'};} > 0)
788 0 0 if ($r)
789 0 0 if ($$r{'frame_id'} and $$r{'frame_id'} == $frame_id) { }
795 0 0 if (time - $start_time >= $$self{'packet_wait_time'})
800 0 0 if (@ignored)
827 0 0 unless ($sn)
856 0 0 unless ($sn)
862 0 0 if ($$self{'known_nodes'}{$sn}) { }
867 0 0 if ($$node{$k} and !$$sknsn{$k} || $$sknsn{$k} ne $$node{$k})
895 0 0 if ($now - $$node{'last_seen_time'} > $$self{'node_forget_time'})
908 0 0 if ($$node{'sn'})
909 0 0 unless ($$node{'sh'})
919 0 0 if ($int & $and) { }
950 0 0 if ($$r{'command'} eq 'ND') { }
970 0 0 if (length $data == 1) { }
0 0 elsif (length $data == 2) { }
0 0 elsif (length $data == 4) { }
0 0 elsif (length $data == 8) { }
1004 0 0 $u[3] & 2 ? :
1019 0 0 $u[7] & 2 ? :
0 0 $u[7] & 32 ? :
0 0 $u[7] & 64 ? :
1051 0 0 $u[3] & 2 ? :
1073 0 0 if ($any_d1 + $any_d2)
1080 0 0 if ($$r{'digital_channel_first'}[3] == 1)
1083 0 0 if ($$r{'digital_channel_first'}[4] == 1)
1086 0 0 if ($$r{'digital_channel_first'}[5] == 1)
1092 0 0 if ($$r{'digital_channel_second'}[$i] == 1)
1103 0 0 if ($$r{'analog_channel_bits'}[$i] == 1)
1115 0 0 $u[3] & 2 ? :