Branch Coverage

blib/lib/Protocol/IRC/Client.pm
Criterion Covered Total %
branch 47 60 78.3


line true false branch
72 1 8 unless defined $value
76 2 7 if ($name eq 'PREFIX') { }
2 5 elsif ($name eq 'CHANMODES') { }
1 4 elsif ($name eq 'CASEMAPPING') { }
1 3 elsif ($name eq 'CHANTYPES') { }
79 0 2 unless my($prefix_modes, $prefix_flags) = $prefix =~ /^\(([a-z]+)\)(.+)$/i
187 10 5 if ($effect eq 'more')
196 5 0 unless keys %{$$self{'Protocol_IRC_gate'}{$target};}
203 5 0 if $self->invoke("on_gate_${effect}_$gate", $message, \%hints, $data)
204 0 5 if $self->invoke("on_gate_$effect", $gate, $message, \%hints, $data)
205 5 0 if $self->invoke('on_gate', $effect, $gate, $message, \%hints, $data)
228 0 5 if $self->invoke("on_message_$command", $message, \%hints)
229 5 0 if $self->invoke('on_message', $command, $message, \%hints)
262 2 1 if $self->invoke("on_message_cap_$verb", $message, \%hints)
263 1 2 if $self->invoke('on_message_cap', $verb, $message, \%hints)
323 7 22 if $modechar eq '+'
324 6 16 if $modechar eq '-'
333 2 14 if (index($listmodes, $modechar) > -1) { }
2 12 elsif (index($argmodes, $modechar) > -1) { }
4 8 elsif (index($argsetmodes, $modechar) > -1) { }
3 5 elsif (index($boolmodes, $modechar) > -1) { }
5 0 elsif (my $flag = $self->prefix_mode2flag($modechar)) { }
335 2 0 if $sense != 0
339 2 0 if $sense != 0
343 2 2 if $sense > 0
351 5 0 if $sense != 0
371 12 0 if ($$hints{'target_type'} eq 'channel')
458 0 3 unless my($flag, $nick) = $name =~ /$re/
557 2 2 if ($$h{'whois'} eq 'channels')
558 1 1 if ($channels)