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 |