line | % | coverage | branch |
19 | 50 | T | F | if @_ % 2 |
21 | 100 | T | F | unless ref $self->{'connect'} eq 'HASH' and $self->{'connect'}{'server'} |
42 | 50 | T | F | ref $self->{'plugins'} eq 'ARRAY' ? : |
| 100 | T | F | if $self->{'plugins'} |
53 | 50 | T | F | $self->{'connect'}{'ssl'} ? : |
| 50 | T | F | unless $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) |
67 | 50 | T | F | if $@ |
92 | 0 | T | F | unless ref $_->{'timing'} and $time % 60 == 0 and $_->{'timing'}->match($time) |
101 | 0 | T | F | unless ($session->{'established'}) |
102 | 0 | T | F | if (not $session->{'user'}) { } |
| 0 | T | F | elsif ($line =~ /^:\S+\s433\s/) { } |
| 0 | T | F | elsif ($line =~ /^:\S+\s001\s/) { } |
113 | 0 | T | F | if @{$self->{'ticks'};} |
126 | 0 | T | F | if ($line =~ /^>>>\sNICK\s(.*)/) { } |
| 0 | T | F | elsif ($line =~ /^:\S+\s433\s/) { } |
139 | 0 | T | F | if ($line =~ /^:(\S+?)!~?(\S+?)@(\S+?)\s(\S+)\s(\S+)\s:(.*)/) { } |
| 0 | T | F | elsif ($line =~ /^:(\S+?)!~?(\S+?)@(\S+?)\s(\S+)\s:(.*)/) { } |
| 0 | T | F | elsif ($line =~ /^:(\S+?)!~?(\S+?)@(\S+?)\s(\S+)\s(\S+)\s(.*)/) { } |
| 0 | T | F | elsif ($line =~ /^:(\S+?)!~?(\S+?)@(\S+?)\s(\S+)\s(\S+)/) { } |
| 0 | T | F | elsif ($line =~ /^(PING)\s(.+)/) { } |
| 0 | T | F | elsif ($line =~ /^:(\S+)\s(NOTICE|\d+)\s(\S+)\s(.*)/) { } |
| 0 | T | F | elsif ($line =~ /^(ERROR)\s/) { } |
166 | 0 | T | F | unless $self->{'in'}{'nick'} ne $self->{'nick'} |
168 | 0 | T | F | if ($self->{'in'}{'command'} eq 'PRIVMSG') |
169 | 0 | T | F | if $self->{'in'}{'forum'} and $self->{'in'}{'forum'} eq $self->{'nick'} |
173 | 0 | T | F | if $self->{'in'}{'text'} =~ s/^\s*$self->{'nick'}\b\W*//i or $self->{'in'}{'private'} |
176 | 0 | T | F | if ($self->{'in'}{'to_me'}) |
177 | 0 | T | F | if ($self->{'in'}{'text'} =~ /^\s*help\W*$/i) { } |
| 0 | T | F | elsif ($self->{'in'}{'text'} =~ /^\s*help\s+(.+?)\W*$/i) { } |
181 | 0 | T | F | $self->{'in'}{'private'} ? : |
188 | 0 | T | F | $self->{'in'}{'private'} ? : |
205 | 0 | T | F | unless 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} |
208 | 0 | T | F | if keys %+ |
213 | 0 | T | F | if $hook->{'code'}->($self, {%{$self->{'in'};}}, $captured_matches) |
224 | 50 | T | F | if (not ref $plugin) { } |
233 | 100 | T | F | if (not $@) { } |
238 | 50 | T | F | unless $@ =~ /^Can't locate/ |
241 | 100 | T | F | unless $namespace |
243 | 50 | T | F | if $self->{'loaded'}{$namespace} |
245 | 50 | T | F | if $namespace->can('import') |
246 | 50 | T | F | unless $namespace->can('init') |
249 | 50 | T | F | if $@ |
286 | 50 | T | F | if ref $attr->{'subs'} eq 'HASH' |
287 | 50 | T | F | if ref $attr->{'helps'} eq 'HASH' |
307 | 50 | T | F | $timing =~ /^\d+$/ ? : |
340 | 50 | T | F | if ($self->{'in'}{'forum'}) { } |
342 | 0 | T | F | $self->{'in'}{'forum'} eq $self->{'nick'} ? : |
371 | 50 | T | F | if ($nick) |
383 | 0 | T | F | $self->can('store') ? : |
385 | 0 | T | F | if (not @_) { } |
386 | 0 | T | F | if (@join) { } |
| 0 | T | F | elsif ($self->{'connect'}{'join'}) { } |
390 | 0 | T | F | ref $self->{'connect'}{'join'} eq 'ARRAY' ? : |
407 | 0 | T | F | if $self->can('store') |
415 | 0 | T | F | $self->can('store') ? : |
422 | 0 | T | F | if $self->can('store') |