| line |
true |
false |
branch |
|
64
|
1 |
35 |
if ($line =~ s/^\@([^ ]+) +//) |
|
66
|
2 |
1 |
if (/^([^=]+)=(.*)$/) { } |
|
76
|
29 |
7 |
if ($line =~ s/^:([^ ]+) +//) |
|
83
|
25 |
11 |
if defined $final |
|
127
|
1 |
50 |
unless $command =~ /^[A-Z]+$/ or $command =~ /^\d\d\d$/ |
|
131
|
1 |
5 |
unless $key =~ m[^[a-zA-Z0-9./-]+$] |
|
135
|
1 |
4 |
if defined $value and $value =~ /[ ;]/ |
|
139
|
31 |
17 |
if (defined $prefix) |
|
140
|
1 |
30 |
if $prefix =~ /[ \t\x0d\x0a]/ |
|
145
|
1 |
41 |
unless defined $_ |
|
146
|
1 |
40 |
if /[ \t\x0d\x0a]/ |
|
150
|
40 |
5 |
if (@args) |
|
151
|
1 |
39 |
unless defined $args[-1] |
|
152
|
1 |
38 |
if $args[-1] =~ /[\x0d\x0a]/ |
|
189
|
0 |
0 |
defined $self->{'prefix'} ? : |
|
251
|
45 |
7 |
defined $self->{'prefix'} ? : |
|
270
|
18 |
4 |
if $prefix =~ /^(.*?)!(.*?)@(.*)$/ |
|
320
|
1 |
12 |
if (keys %{$$self{'tags'};}) |
|
322
|
1 |
0 |
defined $tags->{$_} ? : |
|
325
|
2 |
11 |
if (defined $self->{'prefix'}) |
|
332
|
7 |
13 |
if (/ / or /^:/) { } |
|
432
|
30 |
1 |
if (ref $_[0]) { } |
|
439
|
0 |
1 |
unless defined $command |
|
461
|
1 |
23 |
unless my $argnames = $self->arg_names |
|
468
|
2 |
44 |
if ($argindex eq 'pn') { } |
|
|
3 |
41 |
elsif ($argindex =~ /^(-?\d+)?\.\.(-?\d+)?$/) { } |
|
|
40 |
1 |
elsif ($argindex =~ /^-?\d+$/) { } |
|
|
1 |
0 |
elsif ($argindex =~ /^(-?\d+)\@$/) { } |
|
475
|
0 |
3 |
unless defined $start |
|
476
|
2 |
1 |
unless defined $end |
|
478
|
1 |
2 |
if $end < 0 |