| line |
true |
false |
branch |
|
59
|
0 |
4 |
if @_ % 2 |
|
70
|
0 |
0 |
if (defined $value) |
|
82
|
0 |
5 |
if $$self{'DEBUG'} |
|
83
|
5 |
0 |
if (my($tags, $prefix, $command, $middles, $trailing) = $raw_line =~ /$irc_regex/) { } |
|
85
|
1 |
4 |
if ($tags) |
|
91
|
5 |
0 |
if $prefix |
|
93
|
5 |
0 |
if defined $middles or defined $trailing |
|
94
|
5 |
0 |
if defined $middles |
|
95
|
5 |
0 |
if defined $trailing |
|
114
|
0 |
0 |
if (my $raw_line = shift @{$$self{'BUFFER'};}) |
|
115
|
0 |
0 |
if $$self{'DEBUG'} |
|
116
|
0 |
0 |
if (my($tags, $prefix, $command, $middles, $trailing) = $raw_line =~ /$irc_regex/) { } |
|
118
|
0 |
0 |
if ($tags) |
|
124
|
0 |
0 |
if $prefix |
|
126
|
0 |
0 |
if defined $middles or defined $trailing |
|
127
|
0 |
0 |
if defined $middles |
|
128
|
0 |
0 |
if defined $trailing |
|
147
|
4 |
0 |
if (ref $event eq 'HASH') { } |
|
148
|
0 |
4 |
defined $$event{'colonify'} ? : |
|
151
|
1 |
3 |
if (ref $$event{'tags'} eq 'HASH' and keys %{$$event{'tags'};}) |
|
155
|
2 |
1 |
defined $thisval ? : |
|
156
|
2 |
1 |
if @tags |
|
160
|
4 |
0 |
if exists $$event{'prefix'} |
|
162
|
4 |
0 |
if ($$event{'params'} and ref $$event{'params'} eq 'ARRAY') |
|
170
|
4 |
0 |
if $param =~ /\x20/ or $colonify |
|
174
|
0 |
4 |
if $$self{'DEBUG'} |
|
182
|
0 |
0 |
if ref $event eq 'SCALAR' |
|
199
|
0 |
0 |
if $$event{'prefix'} =~ /[\x00\x0a\x0d\x20]/ |
|
201
|
0 |
0 |
unless $$event{'command'} =~ /\S/o |
|
203
|
0 |
0 |
unless $$event{'command'} =~ /^(?:[a-zA-Z]+|\d{3})$/o |
|
206
|
0 |
0 |
unless $middle =~ /^[^\x00\x0a\x0d\x20\x3a][^\x00\x0a\x0d\x20]*$/ |
|
209
|
0 |
0 |
unless $$event{'trailing'} =~ /^[\x00\x0a\x0d]*$/ |