Branch Coverage

blib/lib/POE/Component/IRC/Qnet/State.pm
Criterion Covered Total %
branch 0 80 0.0


line true false branch
74 0 0 unless $self->is_channel_member($channel, $nickname)
93 0 0 unless $info
102 0 0 unless $self->is_channel_member($channel, $nick)
140 0 0 if $auth
142 0 0 if ($auth and defined $self->{'USER_AUTHED'}{$unick})
146 0 0 if ($query eq '101')
148 0 0 if $status =~ /\@/
149 0 0 if $status =~ /\+/
150 0 0 if $status =~ /\%/
156 0 0 if ($status =~ /\*/)
170 0 0 if (exists $self->{'STATE'}{'Chans'}{$uchan}) { }
0 0 elsif (defined $self->{'USER_AUTHED'}{$uchan}) { }
171 0 0 if ($self->_channel_sync($channel, 'WHO'))
182 0 0 unless @{$self->{'NICK_SYNCH'}{$uchan};}
199 0 0 if ($unick eq uc_irc($self->nick_name, $mapping)) { }
216 0 0 if (exists $self->{'NETSPLIT'}{'Users'}{$netsplit})
219 0 0 if (time - $nuser->{'stamp'} < 3600)
225 0 0 if (exists $self->{'STATE'}{'Nicks'}{$unick}{'Real'})
248 0 0 defined $_[3] ? :
251 0 0 unless $source =~ /^[Q]$/ and $mode =~ /[ov]/
253 0 0 unless ($self->is_nick_authed($arg) or $self->{'USER_AUTHED'}{$uarg})
266 0 0 if (ref $_[2] eq 'ARRAY') { }
273 0 0 if ($nick eq uc_irc($self->nick_name, $mapping)) { }
278 0 0 if (keys %{$$self{'STATE'}{'Nicks'}{$member}{'CHANS'};} <= 0)
287 0 0 if (keys %{$$self{'STATE'}{'Nicks'}{$nick}{'CHANS'};} <= 0)
306 0 0 if _is_netsplit($msg)
308 0 0 if ($unick eq uc_irc($self->nick_name, $mapping)) { }
316 0 0 if ($netsplit)
328 0 0 if $msg =~ /^\s*\S+\.[a-z]{2,} \S+\.[a-z]{2,}$/i
343 0 0 if ($unick eq uc_irc($self->nick_name, $mapping)) { }
348 0 0 if (keys %{$$self{'STATE'}{'Nicks'}{$member}{'CHANS'};} <= 0)
357 0 0 if (keys %{$$self{'STATE'}{'Nicks'}{$unick}{'CHANS'};} <= 0)
370 0 0 unless $self->_nick_exists($nick)
372 0 0 if (defined $self->{'STATE'}{'Nicks'}{$unick}{'Auth'})
384 0 0 unless $self->_channel_exists($channel)
388 0 0 if (defined $self->{'STATE'}{'Nicks'}{$nick}{'Auth'} and $self->{'STATE'}{'Nicks'}{$nick}{'Auth'} eq $auth)
403 0 0 unless $self->_channel_exists($channel)
414 0 0 if (uc_irc($long_form) =~ /^$mask$/)
419 0 0 if (my $auth = $self->is_nick_authed($nick))
421 0 0 if uc_irc($long_form) =~ /^$mask$/