Branch Coverage

blib/lib/Sirc/Chantrack.pm
Criterion Covered Total %
branch 0 98 0.0


line true false branch
60 0 0 if $Sirc::Chantrack::Debug
65 0 0 unless (@_ == 1)
69 0 0 $_[0] =~ /^(.*?)\@(.*)/s ? :
73 0 0 unless (@_ == 4)
80 0 0 if (ieq($n, $main::nick))
82 0 0 if exists $main::limit{lc $c}
88 0 0 unless (exists $Sirc::Chantrack::Nick{$n})
92 0 0 if defined $uh
100 0 0 unless (@_ == 2)
106 0 0 if (ieq($n, $main::nick)) { }
127 0 0 unless (@_ == 3)
138 0 0 if (not keys %{$Sirc::Chantrack::User_chan{$n};}) { }
149 0 0 if (ieq($n, $main::nick))
200 0 0 if (exists $Sirc::Chantrack::Chan_op{$c}{$main::who})
204 0 0 if (exists $Sirc::Chantrack::Chan_voice{$c}{$main::who})
216 0 0 unless $chan =~ /^[\#&]/
220 0 0 if (defined $1)
225 0 0 $type =~ /[bkov]/ ? :
0 0 $type eq 'l' && $add ? :
234 0 0 if ($type eq 'o') { }
0 0 elsif ($type eq 'v') { }
0 0 elsif ($type eq 'l') { }
235 0 0 if ($add and not $Sirc::Chantrack::Chan_op{$chan}{$arg}) { }
0 0 elsif (not $add and $Sirc::Chantrack::Chan_op{$chan}{$arg}) { }
248 0 0 if ($add and not $Sirc::Chantrack::Chan_voice{$chan}{$arg}) { }
0 0 elsif (not $add and $Sirc::Chantrack::Chan_voice{$chan}{$arg}) { }
262 0 0 if ($add) { }
282 0 0 unless (@_ == 3)
288 0 0 if ($flag eq '@')
289 0 0 unless (exists $Sirc::Chantrack::Chan_op{$c}{$n})
297 0 0 if (exists $Sirc::Chantrack::Chan_op{$c}{$n})
302 0 0 if ($flag eq '+')
303 0 0 unless (exists $Sirc::Chantrack::Chan_voice{$c}{$n})
311 0 0 if (exists $Sirc::Chantrack::Chan_voice{$c}{$n})
320 0 0 unless $Sirc::Chantrack::Channel{$chan}
323 0 0 $who =~ s/^([+\@])// ? :
324 0 0 unless (exists $Sirc::Chantrack::Chan_user{$chan}{$who})
334 0 0 unless (@_ == 2 or @_ == 3)
342 0 0 ref $n ? :
347 0 0 if (not plausible_nick($n)) { }
0 0 elsif ($Sirc::Chantrack::Userhost{$n}) { }
384 0 0 if @repl
387 0 0 unless /^(\S+?)\*?=[+\-](.*?)\@(.*)/
395 0 0 unless (@Sirc::Chantrack::Pend_userhost)
401 0 0 unless ($Sirc::Chantrack::Pend_userhost[0][2]{lc $n})
416 0 0 if exists $Sirc::Chantrack::Nick{$n}
437 0 0 $Sirc::Chantrack::Chan_voice{$chan}{$user} ? :
0 0 $Sirc::Chantrack::Chan_op{$chan}{$user} ? :
450 0 0 unless $d[0][1] eq $d[1][1]