| blib/lib/Device/Gsm/Pdu.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 26 | 46.1 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 0 | 12 | unless my $address = shift() |
| 40 | 3 | 9 | if ($type eq 'D0') |
| 55 | 2 | 7 | if substr($number, -1) eq 'F' |
| 62 | 5 | 4 | if ($type == 91 and not $number =~ /^\s*\+/) |
| 93 | 0 | 0 | unless $padding |
| 110 | 0 | 0 | unless $text8 |
| 115 | 0 | 0 | if (length $text8 > 2) { } |
| 136 | 0 | 5 | if ($num =~ /[A-Z][a-z]/) { } |
| 144 | 3 | 2 | index($num, '+') == 0 ? : |
| 167 | 0 | 5 | unless $encoded |
| 218 | 0 | 0 | unless $padding |
| 232 | 0 | 0 | wantarray ? : |
| 244 | 0 | 1 | if (length($l) % 2 == 1) |