Branch Coverage

File:lib/Bot/IRC.pm
Coverage:21.4%

line%coveragebranch
1950TFif @_ % 2
21100TFunless ref $self->{'connect'} eq 'HASH' and $self->{'connect'}{'server'}
4250TFref $self->{'plugins'} eq 'ARRAY' ? :
100TFif $self->{'plugins'}
5350TF$self->{'connect'}{'ssl'} ? :
50TFunless $self->{'socket'} = ($self->{'connect'}{'ssl'} ? 'IO::Socket::SSL' : 'IO::Socket::INET')->new('PeerAddr', $self->{'connect'}{'server'}, 'PeerPort', $self->{'connect'}{'port'}, 'Proto', 'tcp', 'Type', 1, 'SSL_verify_mode', 0)
6750TFif $@
920TFunless ref $_->{'timing'} and $time % 60 == 0 and $_->{'timing'}->match($time)
1010TFunless ($session->{'established'})
1020TFif (not $session->{'user'}) { }
0TFelsif ($line =~ /^:\S+\s433\s/) { }
0TFelsif ($line =~ /^:\S+\s001\s/) { }
1130TFif @{$self->{'ticks'};}
1260TFif ($line =~ /^>>>\sNICK\s(.*)/) { }
0TFelsif ($line =~ /^:\S+\s433\s/) { }
1390TFif ($line =~ /^:(\S+?)!~?(\S+?)@(\S+?)\s(\S+)\s(\S+)\s:(.*)/) { }
0TFelsif ($line =~ /^:(\S+?)!~?(\S+?)@(\S+?)\s(\S+)\s:(.*)/) { }
0TFelsif ($line =~ /^:(\S+?)!~?(\S+?)@(\S+?)\s(\S+)\s(\S+)\s(.*)/) { }
0TFelsif ($line =~ /^:(\S+?)!~?(\S+?)@(\S+?)\s(\S+)\s(\S+)/) { }
0TFelsif ($line =~ /^(PING)\s(.+)/) { }
0TFelsif ($line =~ /^:(\S+)\s(NOTICE|\d+)\s(\S+)\s(.*)/) { }
0TFelsif ($line =~ /^(ERROR)\s/) { }
1660TFunless $self->{'in'}{'nick'} ne $self->{'nick'}
1680TFif ($self->{'in'}{'command'} eq 'PRIVMSG')
1690TFif $self->{'in'}{'forum'} and $self->{'in'}{'forum'} eq $self->{'nick'}
1730TFif $self->{'in'}{'text'} =~ s/^\s*$self->{'nick'}\b\W*//i or $self->{'in'}{'private'}
1760TFif ($self->{'in'}{'to_me'})
1770TFif ($self->{'in'}{'text'} =~ /^\s*help\W*$/i) { }
0TFelsif ($self->{'in'}{'text'} =~ /^\s*help\s+(.+?)\W*$/i) { }
1810TF$self->{'in'}{'private'} ? :
1880TF$self->{'in'}{'private'} ? :
2050TFunless ref $hook->{'when'}{$type} eq 'Regexp' and $self->{'in'}{$type} =~ /$hook->{'when'}{$type}/ or ref $hook->{'when'}{$type} eq 'CODE' and $hook->{'when'}{$type}->($self, $self->{'in'}{$type}, {%{$self->{'in'};}}) or $self->{'in'}{$type} eq $hook->{'when'}{$type}
2080TFif keys %+
2130TFif $hook->{'code'}->($self, {%{$self->{'in'};}}, $captured_matches)
22450TFif (not ref $plugin) { }
233100TFif (not $@) { }
23850TFunless $@ =~ /^Can't locate/
241100TFunless $namespace
24350TFif $self->{'loaded'}{$namespace}
24550TFif $namespace->can('import')
24650TFunless $namespace->can('init')
24950TFif $@
28650TFif ref $attr->{'subs'} eq 'HASH'
28750TFif ref $attr->{'helps'} eq 'HASH'
30750TF$timing =~ /^\d+$/ ? :
34050TFif ($self->{'in'}{'forum'}) { }
3420TF$self->{'in'}{'forum'} eq $self->{'nick'} ? :
37150TFif ($nick)
3830TF$self->can('store') ? :
3850TFif (not @_) { }
3860TFif (@join) { }
0TFelsif ($self->{'connect'}{'join'}) { }
3900TFref $self->{'connect'}{'join'} eq 'ARRAY' ? :
4070TFif $self->can('store')
4150TF$self->can('store') ? :
4220TFif $self->can('store')