| line |
true |
false |
branch |
|
62
|
1 |
80 |
if ($line =~ s/^\@([^ ]+) +//) |
|
64
|
2 |
1 |
if (/^([^=]+)=(.*)$/) { } |
|
74
|
71 |
10 |
if ($line =~ s/^:([^ ]+) +//) |
|
81
|
49 |
32 |
if defined $final |
|
121
|
2 |
112 |
unless $command =~ /^[A-Z]+$/ or $command =~ /^\d\d\d$/ |
|
125
|
1 |
5 |
unless $key =~ m[^[a-zA-Z0-9./-]+$] |
|
129
|
1 |
4 |
if defined $value and $value =~ /[ ;]/ |
|
133
|
72 |
38 |
if (defined $prefix) |
|
134
|
1 |
71 |
if $prefix =~ /[ \t\x0d\x0a]/ |
|
139
|
1 |
147 |
unless defined $_ |
|
140
|
1 |
146 |
if /[ \t\x0d\x0a]/ |
|
144
|
102 |
5 |
if (@args) |
|
145
|
1 |
101 |
unless defined $args[-1] |
|
146
|
1 |
100 |
if $args[-1] =~ /[\x0d\x0a]/ |
|
181
|
0 |
0 |
defined $$self{'prefix'} ? : |
|
235
|
86 |
10 |
defined $$self{'prefix'} ? : |
|
252
|
30 |
36 |
if $prefix =~ /^(.*?)!(.*?)@(.*)$/ |
|
296
|
1 |
30 |
if (keys %{$$self{'tags'};}) |
|
298
|
1 |
0 |
defined $$tags{$_} ? : |
|
301
|
2 |
29 |
if (defined $$self{'prefix'}) |
|
308
|
11 |
40 |
if (/ / or /^:/) { } |
|
406
|
74 |
1 |
if (ref $_[0]) { } |
|
413
|
0 |
1 |
unless defined $command |
|
433
|
8 |
60 |
unless my $argnames = $self->arg_names |
|
440
|
2 |
130 |
if ($argindex eq 'pn') { } |
|
|
17 |
113 |
elsif ($argindex =~ /^(-?\d+)?\.\.(-?\d+)?$/) { } |
|
|
109 |
4 |
elsif ($argindex =~ /^-?\d+$/) { } |
|
|
4 |
0 |
elsif ($argindex =~ /^(-?\d+)\@$/) { } |
|
447
|
0 |
17 |
unless defined $start |
|
448
|
14 |
3 |
unless defined $end |
|
450
|
3 |
14 |
if $end < 0 |