| blib/lib/WWW/Correios/PrecoPrazo.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 18 | 77.7 |
| line | true | false | branch |
|---|---|---|---|
| 73 | 3 | 1 | ref $_[0] ? : |
| 92 | 3 | 3 | ref $_[0] ? : |
| 94 | 4 | 2 | unless scalar grep(exists($$args{$_}), @REQUIRED) == @REQUIRED |
| 115 | 3 | 0 | if (my $content = $res->content) |
| 116 | 3 | 0 | if (substr($content, 0, 5) eq ' |
| 118 | 1 | 2 | if (exists $data{'Erro'} and $content =~ m( |
| 134 | 3 | 1 | unless ($ua) |
| 146 | 2 | 0 | unless $format |
| 148 | 2 | 0 | if exists $PACKAGING_FORMATS{$format} |