| line |
true |
false |
branch |
|
117
|
0 |
0 |
if @_ |
|
156
|
0 |
0 |
if ($self->test_command('+CCLK')) |
|
158
|
0 |
0 |
if (@_) { } |
|
161
|
0 |
0 |
if (@_ == 1) { } |
|
185
|
0 |
0 |
$ok ? : |
|
199
|
0 |
0 |
if ($ok and $datetime =~ m[\+CCLK:\s*"?(\d\d)/(\d\d)/(\d\d)\,(\d\d):(\d\d):(\d\d)"?]) { } |
|
235
|
0 |
0 |
if (not defined $msg_index or $msg_index eq '') |
|
249
|
0 |
0 |
if (index($ans, 'OK') > -1 or $ans =~ /\+CMGD/) |
|
254
|
0 |
0 |
$ok ? : |
|
327
|
0 |
0 |
if ($ok ne 'OK') |
|
339
|
0 |
0 |
if ($man =~ /\+CGMI:\ \"(.*)\"/s) |
|
357
|
0 |
0 |
if (@_) |
|
359
|
0 |
0 |
if ($mode eq 'text') { } |
|
365
|
0 |
0 |
$mode ? : |
|
387
|
0 |
0 |
if ($self->test_command('+CGMM')) |
|
410
|
0 |
0 |
if ($self->test_command('+CGSN')) |
|
434
|
0 |
0 |
if ($self->test_command('+CSQ')) { } |
|
444
|
0 |
0 |
if (/\+CSQ:/) |
|
451
|
0 |
0 |
if ($dBm =~ /\+CSQ:\s*(\d+),(\d+)/) { } |
|
|
0 |
0 |
elsif ($dBm =~ /\+CSQ:\s*(\d+)/) { } |
|
456
|
0 |
0 |
if ($dBm > 30) { } |
|
505
|
0 |
0 |
if ($self->test_command('+CGMR')) |
|
525
|
0 |
0 |
if ($command =~ /^[a-zA-Z]/) |
|
538
|
0 |
0 |
$ok ? : |
|
556
|
0 |
0 |
$storage eq 'SM' ? : |
|
566
|
0 |
0 |
if ($self->mode eq 'text') { } |
|
587
|
0 |
0 |
if (@_ and my $storage = uc $_[0]) |
|
588
|
0 |
0 |
unless $self->test_command('+CPMS') |
|
607
|
0 |
0 |
unless ($$me{'CONNECTED'}) |
|
609
|
0 |
0 |
unless ($me->connect) |
|
617
|
0 |
0 |
if (exists $$me{'assume_registered'} and $$me{'assume_registered'}) |
|
628
|
0 |
0 |
if (not defined $cReply or $cReply eq '') |
|
634
|
0 |
0 |
if ($cReply =~ /(READY|SIM PIN2)/) { } |
|
|
0 |
0 |
elsif ($cReply =~ /SIM PIN/) { } |
|
655
|
0 |
0 |
if (not $cReply =~ /ERROR/) { } |
|
686
|
0 |
0 |
unless $opt{'recipient'} and $opt{'content'} |
|
689
|
0 |
0 |
unless ($$me{'REGISTERED'}) |
|
698
|
0 |
0 |
unless ($$me{'REGISTERED'}) |
|
707
|
0 |
0 |
if (uc $opt{'mode'} ne 'TEXT') { } |
|
718
|
0 |
0 |
wantarray ? : |
|
734
|
0 |
0 |
unless $opt{'recipient'} and $opt{'content'} |
|
737
|
0 |
0 |
unless ($$me{'REGISTERED'}) |
|
746
|
0 |
0 |
unless ($$me{'REGISTERED'}) |
|
756
|
0 |
0 |
if (uc $opt{'mode'} eq 'TEXT') |
|
759
|
0 |
0 |
unless $me->mode('pdu') |
|
765
|
0 |
0 |
if (Device::Gsm::Charset::gsm0338_length($opt{'content'}) <= 160) { } |
|
767
|
0 |
0 |
if ($send_return[0]) { } |
|
798
|
0 |
0 |
if ($send_return[0]) { } |
|
813
|
0 |
0 |
wantarray ? : |
|
844
|
0 |
0 |
if (($code = pop @data) =~ /ERROR/) |
|
878
|
0 |
0 |
if (ref $msg) { } |
|
908
|
0 |
0 |
unless $num and $text |
|
930
|
0 |
0 |
if ($cReply =~ /OK$/i) { } |
|
940
|
0 |
0 |
wantarray ? : |
|
953
|
0 |
0 |
unless $num and $text |
|
960
|
0 |
0 |
$class eq 'normal' ? : |
|
969
|
0 |
0 |
if (defined $opt{'validity_period'}) |
|
975
|
0 |
0 |
if (exists $opt{'status_report'} and $opt{'status_report'}) |
|
999
|
0 |
0 |
unless $is_gsm0338 |
|
1007
|
0 |
0 |
$status_report ? : |
|
1043
|
0 |
0 |
if ($cReply =~ /OK$/i) { } |
|
1055
|
0 |
0 |
wantarray ? : |
|
1066
|
0 |
0 |
unless $num and $text and $pdu_msg |
|
1073
|
0 |
0 |
$class eq 'normal' ? : |
|
1082
|
0 |
0 |
if (defined $opt{'validity_period'}) |
|
1088
|
0 |
0 |
if (exists $opt{'status_report'} and $opt{'status_report'}) |
|
1120
|
0 |
0 |
$status_report ? : |
|
1166
|
0 |
0 |
if ($cReply =~ /OK$/i) { } |
|
1177
|
0 |
0 |
wantarray ? : |
|
1191
|
0 |
0 |
if (@_) { } |
|
1203
|
0 |
0 |
if ($lOk) { } |
|
1225
|
0 |
0 |
if ($code =~ /ERROR/) { } |
|
1265
|
0 |
0 |
if ($ans =~ /"([^"]*)"/) { } |
|
1276
|
0 |
0 |
if (not defined $netname or $netname eq 'unknown') |
|
1280
|
0 |
0 |
wantarray ? : |
|
1292
|
0 |
0 |
if ($self->test_command('CNUM')) |
|
1297
|
0 |
0 |
if ($_ =~ /^\+CNUM: /) |
|
1300
|
0 |
0 |
if ($temp[1] =~ /\d{9,}/) |
|
1301
|
0 |
0 |
unless $selfnum |
|
1306
|
0 |
0 |
if ($selfnum) { } |
|
1310
|
0 |
0 |
wantarray ? : |
|
1333
|
0 |
0 |
if ($self->answer($Device::Modem::STD_RESPONSE) =~ /OK/) { } |
|
1341
|
0 |
0 |
if $self->answer($Device::Modem::STD_RESPONSE) =~ /OK/ |
|
1347
|
0 |
0 |
if ($ans =~ /\+MMGR:/) |
|
1354
|
0 |
0 |
unless $self->answer($Device::Modem::STD_RESPONSE) =~ /OK/ and $self->log->write('warning', 'PDU mode Set') |
|
1364
|
0 |
0 |
if ($self->test_command('CUSD')) { } |
|
1375
|
0 |
0 |
if $response =~ /OK/ |
|
1378
|
0 |
0 |
if ($response =~ /OK/) { } |
|
1386
|
0 |
0 |
if ($response =~ /\+CUSD:\s*(\d+)\s*,/) |
|
1392
|
0 |
0 |
if ($response_code < 2) { } |
|
|
0 |
0 |
elsif ($response_code == 2) { } |
|
1393
|
0 |
0 |
if ($response =~ /\s*\"?([0-9A-F]+)\"?\s*,\s*(\d*)\s*/) |
|
1395
|
0 |
0 |
length $2 ? : |
|
1399
|
0 |
0 |
if $ussd_dcs == 15 || $ussd_dcs == 0 and $answer = Device::Gsm::Pdu::decode_text7_ussd($ussd_response) |
|
1404
|
0 |
0 |
if $ussd_dcs == 72 and $answer = Device::Gsm::Pdu::decode_text_UCS2($ussd_response) |
|
1409
|
0 |
0 |
if $ussd_dcs == 68 and $answer = &Device::Gsm::Pdu::decode_text8($ussd_response) |
|
1413
|
0 |
0 |
if $ussd_dcs != -1 |
|
1422
|
0 |
0 |
if $response =~ /\s*(\d+)\s*/ |