| blib/lib/Monitis.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 9 | 45 | 20.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 62 | 0 | 0 | 0 | $token and ref $token ne 'CODE' |
| 71 | 0 | 0 | 0 | $$self{'auth_token'} and $$self{'auth_token_expires'} > time |
| 80 | 0 | 0 | 0 | $self->api_key and $self->secret_key |
| 177 | 0 | 0 | 1 | $self->api_key and $self->secret_key |
| 253 | 0 | 0 | 0 | $$self{'_typeof'} and $$self{'_typeof'}->can($method) |
| line | l | !l | condition |
|---|---|---|---|
| 16 | 0 | 2 | $ENV{'MONITIS_DEBUG'} || 0 |
| 156 | 1 | 0 | $params ||= [] |
| 175 | 1 | 0 | $params ||= [] |
| 226 | 3 | 0 | $$self{'_typeof'} || '' |
| 350 | 0 | 0 | $mandatory ||= [] |
| 351 | 0 | 0 | $optional ||= [] |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 51 | 0 | 1 | 0 | $$self{'ua'} ||= 'LWP::UserAgent'->new('agent', "perl-monitis-api/$VERSION") |
| 53 | 0 | 1 | 0 | $$self{'json'} ||= 'JSON'->new |
| 64 | 0 | 0 | 0 | $expires || $self->token_ttl + time |
| 102 | 0 | 0 | 0 | $result or exists $$result{'authToken'} |
| 227 | 3 | 3 | 0 | ref $self || $self |
| 290 | 0 | 0 | 0 | $$self{'token_ttl'} || $TOKEN_TTL |