| blib/lib/Web/Machine/Util/ContentNegotiation.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 10 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 7 | 7 | blessed $to_match ? : |
| 38 | 12 | 2 | if (my $acceptable = first(sub { $content_type->match(pair_key($_)); } , @$accepted)) |
| 46 | 2 | 26 | if scalar @$provided == 0 |
| 52 | 1 | 26 | if scalar @$provided == 0 |
| 53 | 35 | 8 | ref $_ ? : |