blib/lib/Device/Gsm.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 99 | 0.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
205 | 0 | 0 | 0 | $ok and $datetime =~ m[\+CCLK:\s*"?(\d\d)/(\d\d)/(\d\d)\,(\d\d):(\d\d):(\d\d)"?] |
599 | 0 | 0 | 0 | @_ and my $storage = uc $_[0] |
629 | 0 | 0 | 0 | exists $me->{'assume_registered'} and $me->{'assume_registered'} |
698 | 0 | 0 | 0 | $opt{'recipient'} and $opt{'content'} |
746 | 0 | 0 | 0 | $opt{'recipient'} and $opt{'content'} |
920 | 0 | 0 | 0 | $num and $text |
965 | 0 | 0 | 0 | $num and $text |
987 | 0 | 0 | 0 | exists $opt{'status_report'} and $opt{'status_report'} |
1078 | 0 | 0 | 0 | $num and $text |
0 | 0 | 0 | $num and $text and $pdu_msg | |
1100 | 0 | 0 | 0 | exists $opt{'status_report'} and $opt{'status_report'} |
1367 | 0 | 0 | 0 | $self->answer($Device::Modem::STD_RESPONSE) =~ /OK/ and $self->log->write('warning', 'PDU mode Set') |
1412 | 0 | 0 | 0 | $ussd_dcs == 15 || $ussd_dcs == 0 and $answer = Device::Gsm::Pdu::decode_text7_ussd($ussd_response) |
1417 | 0 | 0 | 0 | $ussd_dcs == 72 and $answer = Device::Gsm::Pdu::decode_text_UCS2($ussd_response) |
1422 | 0 | 0 | 0 | $ussd_dcs == 68 and $answer = &Device::Gsm::Pdu::decode_text8($ussd_response) |
line | l | !l | condition |
---|---|---|---|
260 | 0 | 0 | $storage || 'default' |
276 | 0 | 0 | lc $reason || 'unconditional' |
277 | 0 | 0 | lc $mode || 'register' |
278 | 0 | 0 | $number ||= '' |
381 | 0 | 0 | $self->{'_mode'} || '' |
398 | 0 | 0 | $model || '' |
548 | 0 | 0 | $self->answer($Device::Modem::STD_RESPONSE) || '' |
566 | 0 | 0 | $storage ||= 'SM' |
718 | 0 | 0 | $opt{'mode'} ||= 'PDU' |
766 | 0 | 0 | $opt{'mode'} ||= 'PDU' |
971 | 0 | 0 | $opt{'class'} || 'normal' |
1084 | 0 | 0 | $opt{'class'} || 'normal' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
136 | 0 | 0 | 0 | $aOpt{'baudrate'} ||= $Device::Gsm::BAUDRATE |
241 | 0 | 0 | 0 | not defined $msg_index or $msg_index eq '' |
255 | 0 | 0 | 0 | index($ans, 'OK') > -1 or $ans =~ /\+CMGD/ |
354 | 0 | 0 | 0 | $man || $ok |
405 | 0 | 0 | 0 | $model || $code |
424 | 0 | 0 | 0 | $imei || $code |
520 | 0 | 0 | 0 | $ver || $code |
640 | 0 | 0 | 0 | not defined $cReply or $cReply eq '' |
1289 | 0 | 0 | 0 | not defined $netname or $netname eq 'unknown' |
1412 | 0 | 0 | 0 | $ussd_dcs == 15 || $ussd_dcs == 0 |