line |
true |
false |
branch |
85
|
1 |
1 |
if (defined $_[1]) |
90
|
1 |
1 |
unless (defined $args{'uids'}) |
93
|
0 |
1 |
if (ref \$args{'uids'} eq 'ARRAY') |
96
|
0 |
1 |
unless (defined $args{'uids'}[0]) |
126
|
1 |
4 |
unless (defined $object) |
130
|
1 |
3 |
if (ref $object ne 'Net::Connection') |
138
|
0 |
3 |
unless (defined $conn_uid) |
146
|
1 |
4 |
if ($uid =~ /^[0-9]+$/ and $uid eq $conn_uid) { } |
|
0 |
4 |
elsif ($uid =~ /^\<\=[0-9]+$/) { } |
|
0 |
4 |
elsif ($uid =~ /^\<[0-9]+$/) { } |
|
0 |
4 |
elsif ($uid =~ /^\>\=[0-9]+$/) { } |
|
2 |
2 |
elsif ($uid =~ /^\>[0-9]+$/) { } |
153
|
0 |
0 |
if ($conn_uid <= $uid) |
158
|
0 |
0 |
if ($conn_uid < $uid) |
163
|
0 |
0 |
if ($conn_uid >= $uid) |
168
|
1 |
1 |
if ($conn_uid > $uid) |