Branch Coverage

blib/lib/Net/APNS/Simple.pm
Criterion Covered Total %
branch 6 24 25.0


line true false branch
40 1 2 $self->development ? :
47 0 0 unless ($self->{'_socket'} and $self->{'_socket'}->opened)
56 0 0 if defined $self->{$_}
62 0 0 if (my $proxy = $self->proxy) { }
63 0 0 unless $proxy =~ s[^http://][]
73 0 0 unless $code eq '200'
75 0 0 unless 'IO::Socket::SSL'->start_SSL($socket, 'SSL_hostname', $host, %ssl_opts)
84 0 0 unless $socket = 'IO::Socket::SSL'->new('PeerHost', $host, 'PeerPort', $port, %ssl_opts)
112 3 2 unless defined $v
118 1 0 if ($self->team_id and $self->auth_key and $self->key_id)
152 1 0 if (my $req = shift @{$$self{'_request'};}) { }
157 0 0 if ref $done_cb eq 'CODE'