| blib/lib/Device/Gsm/Pdu.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 26 | 46.1 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 0 | 20 | unless my $address = shift() |
| 38 | 4 | 16 | if ($type eq 'D0') |
| 53 | 2 | 14 | if substr($number, -1) eq 'F' |
| 60 | 11 | 5 | if ($type == 91 and not $number =~ /^\s*\+/) |
| 91 | 0 | 0 | unless $padding |
| 108 | 0 | 0 | unless $text8 |
| 113 | 0 | 0 | if (length $text8 > 2) { } |
| 134 | 0 | 5 | if ($num =~ /[A-Z][a-z]/) { } |
| 142 | 3 | 2 | index($num, '+') == 0 ? : |
| 165 | 0 | 5 | unless $encoded |
| 216 | 0 | 0 | unless $padding |
| 230 | 0 | 0 | wantarray ? : |
| 242 | 0 | 1 | if (length($l) % 2 == 1) |