Branch Coverage

blib/lib/Device/Modem/SMSModem.pm
Criterion Covered Total %
branch 0 48 0.0


line true false branch
111 0 0 unless ($self->_at_send("AT+CIMI\r"))
118 0 0 if ($reply =~ /(\d+)/u) { }
148 0 0 unless ($self->_at_send("AT+CSCA?\r"))
155 0 0 if ($reply =~ /CSCA\:.\s*\"\+?(\d+)\"\,/u) { }
193 0 0 unless ($self->_at_send("AT+COPS=?\r"))
201 0 0 if ($reply =~ /COPS\:.\s*\(2\,\s*\"(.*?)\"\,\s*\"(.*?)\"\,\s*\"(\d+)\"/u) { }
246 0 0 unless ($self->_at_send("AT+CREG=2\r"))
253 0 0 if ($reply ne 'OK')
258 0 0 unless ($self->_at_send("AT+CREG?\r"))
266 0 0 if ($reply =~ /CREG\:\s*2\,\s*[0-5]\,\s*\"?([0-9A-F]+)\"?\,\s*\"?([0-9A-F]+)\"?/u) { }
336 0 0 if ($result ne 'OK')
401 0 0 unless ($result =~ /OK/u)
404 0 0 if ($result =~ /CPMS\:\s*(\d+)\,\s*(\d+)/u) { }
421 0 0 if ($result ne 'OK')
431 0 0 if ($result ne 'OK')
468 0 0 if (defined $flag)
475 0 0 if ($result ne 'OK')
509 0 0 unless ($result =~ /OK/u)
514 0 0 if ($result =~ /CPMS:\s*\"?$storage_name\"?\,(\d+)/u) { }
587 0 0 if ($index > $self->read_sms_count)
599 0 0 if ($result ne 'OK')
611 0 0 if (scalar @lines != 2)
616 0 0 if ($lines[0] =~ /CMGR\:\s*\"?([A-Z ]+)\"?\,\s*\"(\+?\d+)\"\,.*?\,\s*\"(.+?)\"\,\s*\d+\,\s*\d+\,\s*\d+\,\s*\d+\,\s*\"?(\+?\d+)\"?/u) { }
657 0 0 if ($total > 0 and $total > $old)