Branch Coverage

blib/lib/Circle/Net/IRC.pm
Criterion Covered Total %
branch 0 212 0.0


line true false branch
74 0 0 if $weakself
132 0 0 if length $$self{'status'}
134 0 0 if $$self{'widget_netname'}
156 0 0 if exists $$self{'channels'}{$channame_folded}
198 0 0 unless (defined $nick and length $nick)
206 0 0 if exists $$self{'users'}{$nick_folded}
247 0 0 if ($type eq 'channel') { }
0 0 elsif ($type eq 'user') { }
266 0 0 if ($type eq 'channel') { }
0 0 elsif ($type eq 'user') { }
287 0 0 if ($args{'SSL'} and not eval { do { require IO::Async::SSL } })
291 0 0 unless $irc->loop
318 0 0 $args{'SSL'} ? :
350 0 0 if $colcode =~ /^#[0-9a-f]{6}/i
351 0 0 if $colcode =~ /^#([0-9a-f])([0-9a-f])([0-9a-f])/i
353 0 0 if $colcode =~ /^(\d\d?)/ and defined $irc_colour_map[$1]
396 0 0 if ($text =~ s/^([\x00-\x1f])//) { }
399 0 0 if ($ctrl eq 'B') { }
0 0 elsif ($ctrl eq 'U' or $ctrl eq '_') { }
0 0 elsif ($ctrl eq 'R' or $ctrl eq ']') { }
0 0 elsif ($ctrl eq 'V') { }
0 0 elsif ($ctrl eq 'O') { }
0 0 elsif ($ctrl eq 'C') { }
0 0 elsif ($ctrl eq 'D') { }
400 0 0 $format{'b'} ? :
403 0 0 $format{'u'} ? :
406 0 0 $format{'i'} ? :
409 0 0 $format{'rv'} ? :
417 0 0 if ($text =~ s/^($colourre),($colourre)//) { }
0 0 elsif ($text =~ s/^($colourre)//) { }
418 0 0 if $$self{'use_mirc_colours'}
419 0 0 if $$self{'use_mirc_colours'}
422 0 0 if $$self{'use_mirc_colours'}
430 0 0 if ($text =~ s/^b//) { }
0 0 elsif ($text =~ s/^c//) { }
0 0 elsif ($text =~ s/^d//) { }
0 0 elsif ($text =~ s/^g//) { }
431 0 0 $format{'u'} ? :
434 0 0 $format{'b'} ? :
437 0 0 $format{'i'} ? :
445 0 0 if ($fg > 0)
448 0 0 if ($bg > 0)
465 0 0 if ($piece =~ s[^(.*?)(?
468 0 0 if length $pre
545 0 0 if ($spec =~ /^"/) { }
0 0 elsif ($spec =~ m[^/]) { }
557 0 0 if $spec =~ s/^i//
559 0 0 if $iflag
569 0 0 if ($type eq 'literal') { }
0 0 elsif ($type eq 're') { }
575 0 0 if $pattern =~ /^\(\?-xism:(.*)\)$/
576 0 0 if $pattern =~ /^\(\?i-xsm:(.*)\)$/
590 0 0 if ($type eq 'literal') { }
0 0 elsif ($type eq 're') { }
607 0 0 if (defined $spec and $spec =~ /^"/)
622 0 0 if defined $name
631 0 0 unless ($$event{'target_type'} || '') eq 'channel'
633 0 0 unless defined $name
699 0 0 if ($spec eq 'self') { }
0 0 elsif ($spec eq 'server') { }
761 0 0 if (defined $$hints{'target_name'}) { }
0 0 elsif (grep {$command eq $_;} 'NICK', 'QUIT') { }
0 0 elsif ($self->can("on_message_$command")) { }
764 0 0 if ($$hints{'target_type'} eq 'channel') { }
0 0 elsif ($$hints{'target_is_me'} and defined $$hints{'prefix_name'} and not $$hints{'prefix_is_me'}) { }
0 0 elsif ($$hints{'target_type'} eq 'user') { }
778 0 0 if ($target)
779 0 0 if $target->on_message($command, $message, $hints)
788 0 0 if $self->can($method) and $self->$method($message, $hints)
791 0 0 if $target->$method($message, $hints)
796 0 0 if (my $userobj = $self->get_user_if_exists($$hints{'prefix_nick'}))
797 0 0 if $userobj->$method($message, $hints)
800 0 0 if $handled
806 0 0 if $handled
809 0 0 if (not $$hints{'handled'} || $$hints{'synthesized'})
824 0 0 if ($$hints{'prefix_is_me'})
874 0 0 unless my $f = delete $$self{'whois_gate_f'}{$$hints{'target_name_folded'}}
896 0 0 unless ($$self{'no_reconnect_on_close'})
899 0 0 unless $$self{'reconnect_timer'}->is_running
949 0 0 if ($lag > 1) { }
972 0 0 unless $_
975 0 0 $_ ? :
978 0 0 unless $_
981 0 0 $_ ? :
995 0 0 if (defined $newnick)
1018 0 0 if (not defined $host) { }
1019 0 0 unless (@{$$self{'servers'};})
1031 0 0 unless $s
1083 0 0 if ($irc->read_handle) { }
1084 0 0 defined $message ? :
1091 0 0 if $timer->is_running
1133 0 0 unless my $chanobj = $self->get_channel_if_exists($channel)
1175 0 0 if (my $targetobj = $self->get_target_if_exists($target)) { }
1194 0 0 if (my $targetobj = $self->get_target_if_exists($target)) { }
1229 0 0 unless length $message
1272 0 0 ref $val eq 'ARRAY' ? :
1292 0 0 $_ ? :
1295 0 0 $_ ? :
1312 0 0 unless my $chan = $self->get_channel_if_exists($name)
1326 0 0 unless my $chanobj = $self->get_channel_if_exists($name)
1329 0 0 if exists $$def{$_}
1343 0 0 if exists $$def{$_}
1389 0 0 if exists $$items{$name} and $$items{$name}->get_prop_real
1392 0 0 if $create
1447 0 0 $_[1] ? :
1469 0 0 if length $$self{'status'}