| line |
true |
false |
branch |
|
46
|
4 |
3 |
if defined $self->read_handle |
|
88
|
7 |
5 |
if (my $on_error = delete $params{'on_error'}) |
|
89
|
1 |
6 |
if (ref $on_error eq 'CODE') { } |
|
|
6 |
0 |
elsif ($on_error eq 'croak') { } |
|
|
0 |
0 |
elsif ($on_error eq 'carp') { } |
|
158
|
0 |
3 |
&blessed($url) && $url->isa('URI') ? : |
|
162
|
0 |
3 |
if ($scheme =~ /\+/u) |
|
163
|
0 |
0 |
unless $scheme =~ s/^circle\+//u |
|
167
|
0 |
3 |
if $scheme eq 'ssh' |
|
176
|
2 |
1 |
unless defined $query |
|
180
|
1 |
2 |
if ($scheme eq 'exec') { } |
|
|
1 |
1 |
elsif ($scheme eq 'tcp') { } |
|
|
1 |
0 |
elsif ($scheme eq 'unix') { } |
|
193
|
0 |
0 |
if (eval {
do {
require $connectorfile
}
} and my $code = $connectorpkg->can('connect')) { } |
|
211
|
0 |
3 |
if $on_root |
|
241
|
0 |
1 |
unless pipe my $myread, my $childwrite |
|
242
|
0 |
1 |
unless pipe my $childread, my $mywrite |
|
297
|
0 |
1 |
if $args{'family'} and $args{'family'} eq 'inet4' |
|
298
|
0 |
1 |
if $args{'family'} and $args{'family'} eq 'inet6' |