| line |
true |
false |
branch |
|
63
|
0 |
10 |
unless $msg =~ s/^(?::([^ ]+)[ ])?([A-Za-z]+|\d{3})//u
|
|
70
|
8 |
0 |
if defined $1
|
|
71
|
0 |
8 |
if ++$cnt > 13
|
|
74
|
0 |
10 |
if ($cnt == 14) { }
|
|
75
|
0 |
0 |
if ($msg =~ s/^[ ]:?([^\015\012\0]*)//u)
|
|
76
|
0 |
0 |
if defined $1
|
|
80
|
8 |
2 |
if ($msg =~ s/^[ ]:([^\015\012\0]*)//u)
|
|
81
|
8 |
0 |
if defined $1
|
|
122
|
2 |
2 |
defined $prefix ? :
|
|
126
|
3 |
0 |
if (@params and $params[-1] =~ /\x20/u || $params[-1] =~ /^:/u)
|
|
134
|
3 |
1 |
defined $trail ? :
|
|
144
|
0 |
0 |
defined $map{$1} ? :
|
|
157
|
0 |
0 |
$1 eq '\\' ? :
|
|
|
0 |
0 |
$1 eq 'a' ? :
|
|
163
|
0 |
0 |
$1 eq "\cA" ? :
|
|
195
|
0 |
0 |
if ($line =~ s/\001([^\001]*)$//u)
|
|
221
|
0 |
0 |
ref $_ ? :
|
|
251
|
0 |
0 |
unless $cb
|
|
252
|
0 |
0 |
defined $c ? :
|
|
253
|
0 |
0 |
defined $c ? :
|
|
254
|
0 |
0 |
defined $c ? :
|
|
255
|
0 |
0 |
defined $c ? :
|
|
272
|
6 |
2 |
if (ref $prfx eq 'HASH')
|
|
516
|
0 |
0 |
unless length encode($enc, $str) > $maxlen
|