Branch Coverage

blib/lib/Net/Radiator/Monitor.pm
Criterion Covered Total %
branch 0 16 0.0


line true false branch
43 0 0 defined $args{'server'} ? :
46 0 0 unless $$self{'sock'} = 'IO::Socket::INET'->new('PeerAddr', $$self{'server'}, 'PeerPort', $$self{'port'}, 'Proto', 'tcp', 'Timeout', $$self{'timeout'})
57 0 0 $login[0] eq 'LOGGEDIN' ? :
67 0 0 $m =~ /^list/ ? :
69 0 0 $METHODS{$m}{'evl'} ? :
79 0 0 if $_[0]{'sock'}->send('QUIT')
93 0 0 if ($$self{'sel'}->can_read($$self{'timeout'}))
97 0 0 if $args{'ml'} and scalar @r > 1