Branch Coverage

blib/lib/Protocol/IRC.pm
Criterion Covered Total %
branch 63 96 65.6


line true false branch
202 2 17 unless length $line
231 14 3 defined $prefix_nick ? :
241 16 1 if (my $named_args = $message->named_args)
245 2 15 if (defined $hints->{'text'} and my $encoder = $self->encoder)
249 2 15 if (defined(my $target_name = $hints->{'target_name'}))
255 0 17 if $self->can($prepare_method)
257 97 21 unless /_nick$/
259 3 37 unless defined $name
260 17 20 if $k eq 'prefix_name'
266 0 17 if (my $disp = $message->gate_disposition)
268 0 0 $type eq '!' ? :
0 0 $type eq '+' ? :
0 0 $type eq '-' ? :
272 0 0 if $self->invoke("on_message_gate_${effect}_$gate", $message, $hints)
273 0 0 if $self->invoke("on_message_gate_$effect", $gate, $message, $hints)
274 0 0 if $self->invoke('on_message_gate', $effect, $gate, $message, $hints)
277 8 9 if $self->invoke("on_message_$command", $message, $hints)
278 14 3 if $self->invoke('on_message', $command, $message, $hints)
280 0 17 if (not $hints->{'handled'} and $message->command ne $command)
282 0 0 if $self->invoke("on_message_$numeric", $message, $hints)
283 0 0 if $self->invoke('on_message', $numeric, $message, $hints)
306 0 4 if (@_ == 1) { }
312 1 3 if (my $encoder = $self->encoder)
315 1 0 if (defined(my $i = $argnames->{'text'}))
316 1 0 if defined $args[$i]
384 3 103 unless defined $nick
389 100 3 if $mapping ne 'ascii'
393 101 2 unless $mapping eq 'strict-rfc1459'
413 0 4 unless defined $lhs and defined $rhs
416 0 4 if $lhs eq '' and $rhs eq ''
417 0 4 if $rhs eq ''
418 0 4 if $lhs eq ''
422 0 4 unless (my $lhs_index = index($PREFIX_FLAGS, $lhs)) > -1
423 1 3 unless (my $rhs_index = index($PREFIX_FLAGS, $rhs)) > -1
443 0 4 unless defined $lhs and defined $rhs
447 0 4 unless (my $lhs_index = index($PREFIX_MODES, $lhs)) > -1
448 1 3 unless (my $rhs_index = index($PREFIX_MODES, $rhs)) > -1
502 8 6 if $name =~ $self->isupport('channame_re')
639 5 5 if ($type eq 'channel') { }
5 0 elsif ($type eq 'user') { }
651 2 8 if ($text =~ /^\x01(.*)\x01$/) { }
656 1 1 $is_notice ? :
658 0 2 if $self->invoke("on_message_${ctcptype}_$verb", $message, \%hints)
659 0 2 if $self->invoke("on_message_$ctcptype", $verb, $message, \%hints)
660 2 0 if $self->invoke('on_message', "$ctcptype $verb", $message, \%hints)
665 1 7 if $self->invoke('on_message_text', $message, \%hints)
666 4 4 if $self->invoke('on_message', 'text', $message, \%hints)
719 19 37 unless $self->can($name)