line |
true |
false |
branch |
18
|
0 |
0 |
unless $$self{'s'} = 'IO::Socket::INET'->new('PeerAddr', "${host}:$port") |
22
|
0 |
0 |
if $locker |
33
|
0 |
0 |
unless $status |
35
|
0 |
0 |
scalar @ret == 0 ? : |
43
|
0 |
0 |
unless $status |
45
|
0 |
0 |
scalar @ret == 0 ? : |
53
|
0 |
0 |
unless $chan |
55
|
0 |
0 |
scalar @ret == 0 ? : |
64
|
0 |
0 |
scalar @ret == 0 ? : |
72
|
0 |
0 |
$chan ? : |
77
|
0 |
0 |
$chan ? : |
113
|
0 |
0 |
unless $status |
115
|
0 |
0 |
scalar @ret == 0 ? : |
127
|
0 |
0 |
if (select $rin, undef, undef, 0.05) |
129
|
0 |
0 |
if ($buf) |
155
|
0 |
0 |
if $cmd |
163
|
0 |
0 |
if not $buf or $ret =~ /Ready\n$/ |
166
|
0 |
0 |
if ($line =~ /^\+/) { } |
|
0 |
0 |
elsif ($line eq 'Ready') { } |