Condition Coverage

blib/lib/Net/Vypress/Chat.pm
Criterion Covered Total %
condition 29 77 37.6


and 3 conditions

line !l l&&!r l&&r condition
27 77 76 0 $buffer and $$self{'debug'} == 2
372 1 0 0 not defined $args{'localip'} and $$self{'localip'} eq '127.0.0.1'
427 0 0 0 $$self{'port'} eq $port && $$self{'localip'} eq $localip
468 0 0 1 defined $$self{'send'} and $$self{'init'}
700 0 0 1 $topic and $$self{'sign_topic'}
1122 4 0 10 defined $$self{'channels'}{$chan} and grep /^\Q$nick\E$/, @{$$self{'channels'}{$chan}{'users'};}
1271 0 2 0 $updater eq $$self{'nick'} and $responder eq $$self{'nick'} || !$self->on_userlist($responder)
1300 0 0 1 $chan and $from
1318 1 0 0 $ip ne $$self{'localip'} and $self->on_userlist($oldnick)
1 0 0 $ip ne $$self{'localip'} and $self->on_userlist($oldnick) and $oldnick ne $newnick
1321 0 0 0 $newnick eq $$self{'nick'} and $$self{'coll_avoid'}
1389 1 0 0 $who ne $$self{'nick'} and $self->on_chan($who, $chan)
1503 0 0 1 $chan and $fromwho
1544 0 0 0 not $$self{'channels'}{$chan}{'topic'} and $forwho eq $$self{'nick'}

or 2 conditions

line l !l condition
363 0 1 $args{'port'} || 8167
364 0 1 $args{'debug'} || 0
395 0 3 $$self{'users'}{$$self{'nick'}}{'status'} || 0
396 0 3 $$self{'users'}{$$self{'nick'}}{'active'} || 0
397 0 3 $$self{'users'}{$$self{'nick'}}{'gender'} || 0
398 0 3 $$self{'users'}{$$self{'nick'}}{'autoanswer'} || ''
399 2 1 $$self{'users'}{$$self{'nick'}}{'chats'} || []

or 3 conditions

line l !l&&r !l&&!r condition
369 0 1 0 $args{'host'} || hostname()
370 1 0 0 $args{'localip'} || inet_ntoa(scalar gethostbyname($$self{'host'} || 'localhost'))
918 1 0 1 not defined $chans or $chans eq '1'
1043 1 0 0 'IO::Socket::INET'->new('PeerAddr', inet_ntoa("\377\377\377\377"), 'PeerPort', $$self{'port'}, 'Proto', 'udp', 'LocalAddr', $$self{'localip'}, 'Type', 2, 'Broadcast', 1) || croak("Failed! ($!)")
1054 1 0 0 'IO::Socket::INET'->new('PeerPort', $$self{'port'}, 'Proto', 'udp', 'Type', 2, 'LocalAddr', $$self{'localip'}) || croak("Failed! ($!)")
1065 1 0 0 'IO::Socket::INET'->new('LocalPort', $$self{'port'}, 'ReuseAddr', 0, 'Type', 2, 'Proto', 'udp') || croak("Failed! ($!)")
1271 2 0 0 $responder eq $$self{'nick'} || !$self->on_userlist($responder)