blib/lib/Device/Gsm.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 99 | 0.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
199 | 0 | 0 | 0 | $ok and $datetime =~ m[\+CCLK:\s*"?(\d\d)/(\d\d)/(\d\d)\,(\d\d):(\d\d):(\d\d)"?] |
587 | 0 | 0 | 0 | @_ and my $storage = uc $_[0] |
617 | 0 | 0 | 0 | exists $$me{'assume_registered'} and $$me{'assume_registered'} |
686 | 0 | 0 | 0 | $opt{'recipient'} and $opt{'content'} |
734 | 0 | 0 | 0 | $opt{'recipient'} and $opt{'content'} |
908 | 0 | 0 | 0 | $num and $text |
953 | 0 | 0 | 0 | $num and $text |
975 | 0 | 0 | 0 | exists $opt{'status_report'} and $opt{'status_report'} |
1066 | 0 | 0 | 0 | $num and $text |
0 | 0 | 0 | $num and $text and $pdu_msg | |
1088 | 0 | 0 | 0 | exists $opt{'status_report'} and $opt{'status_report'} |
1354 | 0 | 0 | 0 | $self->answer($Device::Modem::STD_RESPONSE) =~ /OK/ and $self->log->write('warning', 'PDU mode Set') |
1399 | 0 | 0 | 0 | $ussd_dcs == 15 || $ussd_dcs == 0 and $answer = Device::Gsm::Pdu::decode_text7_ussd($ussd_response) |
1404 | 0 | 0 | 0 | $ussd_dcs == 72 and $answer = Device::Gsm::Pdu::decode_text_UCS2($ussd_response) |
1409 | 0 | 0 | 0 | $ussd_dcs == 68 and $answer = &Device::Gsm::Pdu::decode_text8($ussd_response) |
line | l | !l | condition |
---|---|---|---|
254 | 0 | 0 | $storage || 'default' |
270 | 0 | 0 | lc $reason || 'unconditional' |
271 | 0 | 0 | lc $mode || 'register' |
272 | 0 | 0 | $number ||= '' |
375 | 0 | 0 | $$self{'_mode'} || '' |
392 | 0 | 0 | $model || '' |
537 | 0 | 0 | $self->answer($Device::Modem::STD_RESPONSE) || '' |
554 | 0 | 0 | $storage ||= 'SM' |
706 | 0 | 0 | $opt{'mode'} ||= 'PDU' |
754 | 0 | 0 | $opt{'mode'} ||= 'PDU' |
959 | 0 | 0 | $opt{'class'} || 'normal' |
1072 | 0 | 0 | $opt{'class'} || 'normal' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
135 | 0 | 0 | 0 | $aOpt{'baudrate'} ||= $Device::Gsm::BAUDRATE |
235 | 0 | 0 | 0 | not defined $msg_index or $msg_index eq '' |
249 | 0 | 0 | 0 | index($ans, 'OK') > -1 or $ans =~ /\+CMGD/ |
348 | 0 | 0 | 0 | $man || $ok |
399 | 0 | 0 | 0 | $model || $code |
418 | 0 | 0 | 0 | $imei || $code |
514 | 0 | 0 | 0 | $ver || $code |
628 | 0 | 0 | 0 | not defined $cReply or $cReply eq '' |
1276 | 0 | 0 | 0 | not defined $netname or $netname eq 'unknown' |
1399 | 0 | 0 | 0 | $ussd_dcs == 15 || $ussd_dcs == 0 |