Branch Coverage

blib/lib/Protocol/IRC.pm
Criterion Covered Total %
branch 70 92 76.0


line true false branch
194 2 62 unless length $line
202 26 35 defined $prefix_nick ? :
213 53 8 if (my $named_args = $message->named_args)
217 2 59 if (defined $$hints{'text'} and my $encoder = $self->encoder)
221 25 36 if (defined(my $target_name = $$hints{'target_name'}))
229 12 49 if $self->can($prepare_method)
231 477 68 unless /_nick$/
235 15 46 if (my $disp = $message->gate_disposition)
237 0 0 $type eq '!' ? :
5 0 $type eq '+' ? :
10 5 $type eq '-' ? :
241 0 15 if $self->invoke("on_message_gate_${effect}_$gate", $message, $hints)
242 0 15 if $self->invoke("on_message_gate_$effect", $gate, $message, $hints)
243 15 0 if $self->invoke('on_message_gate', $effect, $gate, $message, $hints)
246 15 46 if $self->invoke("on_message_$command", $message, $hints)
247 36 25 if $self->invoke('on_message', $command, $message, $hints)
249 4 57 if (not $$hints{'handled'} and $message->command ne $command)
251 0 4 if $self->invoke("on_message_$numeric", $message, $hints)
252 0 4 if $self->invoke('on_message', $numeric, $message, $hints)
274 0 22 if (@_ == 1) { }
280 1 21 if (my $encoder = $self->encoder)
283 1 0 if (defined(my $i = $$argnames{'text'}))
284 1 0 if defined $args[$i]
346 35 271 unless defined $nick
351 268 3 if $mapping ne 'ascii'
355 269 2 unless $mapping eq 'strict-rfc1459'
373 0 4 unless defined $lhs and defined $rhs
376 0 4 if $lhs eq '' and $rhs eq ''
377 0 4 if $rhs eq ''
378 0 4 if $lhs eq ''
382 0 4 unless (my $lhs_index = index($PREFIX_FLAGS, $lhs)) > -1
383 1 3 unless (my $rhs_index = index($PREFIX_FLAGS, $rhs)) > -1
401 0 4 unless defined $lhs and defined $rhs
405 0 4 unless (my $lhs_index = index($PREFIX_MODES, $lhs)) > -1
406 1 3 unless (my $rhs_index = index($PREFIX_MODES, $rhs)) > -1
454 26 11 if $name =~ $self->isupport('channame_re')
589 5 5 if ($type eq 'channel') { }
5 0 elsif ($type eq 'user') { }
601 2 8 if ($text =~ /^\x01(.*)\x01$/) { }
606 1 1 $is_notice ? :
608 0 2 if $self->invoke("on_message_${ctcptype}_$verb", $message, \%hints)
609 0 2 if $self->invoke("on_message_$ctcptype", $verb, $message, \%hints)
610 2 0 if $self->invoke('on_message', "$ctcptype $verb", $message, \%hints)
615 1 7 if $self->invoke('on_message_text', $message, \%hints)
616 4 4 if $self->invoke('on_message', 'text', $message, \%hints)
663 94 100 unless $self->can($name)