| blib/lib/WebService/Lingr/Archives.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 11 | 15 | 73.3 |
| line | l | !l | condition |
|---|---|---|---|
| 21 | 1 | 6 | $args{'api_base'} // 'http://lingr.com/api' |
| 38 | 6 | 2 | $options //= {} |
| 47 | 6 | 1 | $$options{'before'} // 99999999 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 21 | 7 | 0 | 0 | $args{'user_agent'} // do { my $ua = 'LWP::UserAgent'->new; $ua->env_proxy; $ua } |
| 52 | 0 | 1 | 6 | not defined $$result{'status'} or lc $$result{'status'} ne 'ok' |
| 67 | 0 | 1 | 6 | not defined $$result{'status'} or lc $$result{'status'} ne 'ok' |