| blib/lib/App/JSON/to.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 8 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 4 | unless defined $to |
| 18 | 0 | 4 | unless $to =~ /\A[a-z]+\z/ and eval { do { require "App/JSON/to/$to.pm"; 1 } } |
| 20 | 0 | 4 | $class->can('new') ? : |
| 28 | 2 | 2 | if (my $enc_meth = $obj->can('encoding')) |