Branch Coverage

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


line true false branch
73 0 0 unless $self->is_channel_member($channel, $nickname)
92 0 0 unless $info
101 0 0 unless $self->is_channel_member($channel, $nick)
139 0 0 if $auth
141 0 0 if ($auth and defined $self->{'USER_AUTHED'}{$unick})
145 0 0 if ($query eq 101)
147 0 0 if $status =~ /\@/
148 0 0 if $status =~ /\+/
149 0 0 if $status =~ /\%/
155 0 0 if ($status =~ /\*/)
169 0 0 if (exists $self->{'STATE'}{'Chans'}{$uchan}) { }
0 0 elsif (defined $self->{'USER_AUTHED'}{$uchan}) { }
170 0 0 if ($self->_channel_sync($channel, "WHO"))
181 0 0 unless @{$self->{'NICK_SYNCH'}{$uchan};}
198 0 0 if ($unick eq uc_irc($self->nick_name, $mapping)) { }
215 0 0 if (exists $self->{'NETSPLIT'}{'Users'}{$netsplit})
218 0 0 if (time - $nuser->{'stamp'} < 3600)
224 0 0 if (exists $self->{'STATE'}{'Nicks'}{$unick}{'Real'})
247 0 0 defined $_[3] ? :
250 0 0 unless $source =~ /^[Q]$/ and $mode =~ /[ov]/
252 0 0 unless ($self->is_nick_authed($arg) or $self->{'USER_AUTHED'}{$uarg})
265 0 0 if (ref $_[2] eq 'ARRAY') { }
272 0 0 if ($nick eq uc_irc($self->nick_name, $mapping)) { }
277 0 0 if (keys %{$$self{"STATE"}{"Nicks"}{$member}{"CHANS"};} <= 0)
286 0 0 if (keys %{$$self{"STATE"}{"Nicks"}{$nick}{"CHANS"};} <= 0)
305 0 0 if _is_netsplit($msg)
307 0 0 if ($unick eq uc_irc($self->nick_name, $mapping)) { }
315 0 0 if ($netsplit)
327 0 0 if $msg =~ /^\s*\S+\.[a-z]{2,} \S+\.[a-z]{2,}$/i
342 0 0 if ($unick eq uc_irc($self->nick_name, $mapping)) { }
347 0 0 if (keys %{$$self{"STATE"}{"Nicks"}{$member}{"CHANS"};} <= 0)
356 0 0 if (keys %{$$self{"STATE"}{"Nicks"}{$unick}{"CHANS"};} <= 0)
369 0 0 unless $self->_nick_exists($nick)
371 0 0 if (defined $self->{'STATE'}{'Nicks'}{$unick}{'Auth'})
383 0 0 unless $self->_channel_exists($channel)
387 0 0 if (defined $self->{'STATE'}{'Nicks'}{$nick}{'Auth'} and $self->{'STATE'}{'Nicks'}{$nick}{'Auth'} eq $auth)
402 0 0 unless $self->_channel_exists($channel)
413 0 0 if (uc_irc($long_form) =~ /^$mask$/)
418 0 0 if (my $auth = $self->is_nick_authed($nick))
420 0 0 if uc_irc($long_form) =~ /^$mask$/