| lib/Acme/Insult/Pirate.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 9 | 55.5 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 10 | 4 | 0 | 0 | $s->{'insult'} // () |
| 13 | 1 | 1 | 0 | state $http //= "HTTP::Tiny"->new("default_headers", {"Accept", "application/json"}, "agent", sprintf("%s/%.2f ", __PACKAGE__, our $VERSION)) |
| 15 | 1 | 1 | 0 | state $api //= "URI"->new("https://pirate.monkeyness.com/api/insult") |