| blib/lib/Number/Phone/BR.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 24 | 79.1 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 1 | 12 | unless my $number_sane = _sanitize_number($number) |
| 35 | 3 | 9 | if ($areacode = $1) { } |
| 46 | 2 | 10 | unless my $areaname = code2name($areacode) |
| 50 | 1 | 9 | $is_mobile ? : |
| 53 | 10 | 0 | if $is_valid |
| 69 | 3 | 10 | unless $self->is_valid |
| 76 | 0 | 13 | unless $number |
| 86 | 1 | 12 | if $number_sane =~ /\+/ |
| 98 | 9 | 1 | if ($digits == 9 and $f ne '9') |
| 102 | 0 | 1 | if ($f ne '6' and $f ne '8' and $f ne '9') |
| 106 | 1 | 0 | $number =~ /^[0-9]{$digits}$/ ? : |
| 112 | 9 | 0 | $number =~ /^[2-5][0-9]{7}$/ ? : |