| line |
true |
false |
branch |
|
98
|
0 |
0 |
if @_ |
|
112
|
0 |
0 |
if @_ |
|
153
|
0 |
0 |
if $handler |
|
168
|
0 |
0 |
/^[\w\-_]$/ ? : |
|
219
|
0 |
0 |
unless (defined $self->identifier) |
|
342
|
0 |
0 |
if $self->handle |
|
344
|
0 |
0 |
unless my $server = 'IO::Socket::INET'->new('PeerAddr', $$self{'hostname'}, 'PeerPort', $self->get_port, 'Proto', 'tcp', 'Timeout', 30) |
|
359
|
0 |
0 |
if @_ |
|
420
|
0 |
0 |
if ($mode eq 'r') { } |
|
|
0 |
0 |
elsif ($mode eq 'w') { } |
|
492
|
0 |
0 |
unless (defined $self->identifier) |
|
525
|
0 |
0 |
unless (defined $self->identifier) |
|
558
|
0 |
0 |
unless (defined $self->identifier) |
|
576
|
0 |
0 |
if $$self{'port'} |
|
592
|
0 |
0 |
if ($event_code == 6) |
|
594
|
0 |
0 |
if ($buddy) { } |
|
600
|
0 |
0 |
if ($event_code == 3) |
|
640
|
0 |
0 |
if @_ |
|
648
|
0 |
0 |
if @_ |
|
670
|
0 |
0 |
if ($string =~ /BEGIN $name\r?\n(.*)\r?\nEND $name/s) |