| blib/lib/APNS/Agent.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 1 | 21 | 4.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 167 | 0 | 0 | 0 | $$self{'__apns'} and time - ($self->_last_sent_at || 0) > $interval |
| 247 | 0 | 0 | 0 | $opt{'certificate'} and $opt{'private-key'} |
| line | l | !l | condition |
|---|---|---|---|
| 29 | 0 | 0 | $d{'token'} || '' |
| 138 | 0 | 0 | $self->_sent_cache->get($identifier) || {} |
| 167 | 0 | 0 | $self->_last_sent_at || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 193 | 0 | 1 | 0 | $$self{'_send_timer'} ||= 'AnyEvent'->timer('after', $self->send_interval, 'interval', $self->send_interval, 'cb', sub { my $msg = shift @{$self->_queue;}; if ($msg) { $self->_send(@$msg); } else { delete $$self{'_send_timer'}; }; } ) |
| 256 | 0 | 0 | 0 | $args{'listen'} or $args{'port'} |
| 0 | 0 | 0 | $args{'listen'} or $args{'port'} or $ENV{'SERVER_STARTER_PORT'} |