| line |
true |
false |
branch |
|
64
|
1 |
69 |
if ($line =~ s/^\@([^ ]+) +//) |
|
66
|
2 |
1 |
if (/^([^=]+)=(.*)$/) { } |
|
76
|
63 |
7 |
if ($line =~ s/^:([^ ]+) +//) |
|
83
|
43 |
27 |
if defined $final |
|
130
|
1 |
20 |
if $idx eq 'pn' |
|
132
|
0 |
20 |
unless defined(my $value = $args{$name}) |
|
135
|
20 |
0 |
if ($idx =~ /^\d+$/) { } |
|
167
|
1 |
97 |
unless $command =~ /^[A-Z]+$/ or $command =~ /^\d\d\d$/ |
|
171
|
1 |
5 |
unless $key =~ m[^[a-zA-Z0-9./-]+$] |
|
175
|
1 |
4 |
if defined $value and $value =~ /[ ;]/ |
|
179
|
65 |
30 |
if (defined $prefix) |
|
180
|
1 |
64 |
if $prefix =~ /[ \t\x0d\x0a]/ |
|
185
|
1 |
135 |
unless defined $_ |
|
186
|
1 |
134 |
if /[ \t\x0d\x0a]/ |
|
190
|
85 |
7 |
if (@args) |
|
191
|
1 |
84 |
unless defined $args[-1] |
|
192
|
1 |
83 |
if $args[-1] =~ /[\x0d\x0a]/ |
|
229
|
2 |
0 |
defined $self->{'prefix'} ? : |
|
291
|
80 |
7 |
defined $self->{'prefix'} ? : |
|
310
|
31 |
25 |
if $prefix =~ /^(.*?)!(.*?)@(.*)$/ |
|
360
|
1 |
25 |
if (keys %{$$self{'tags'};}) |
|
362
|
1 |
0 |
defined $tags->{$_} ? : |
|
365
|
2 |
24 |
if (defined $self->{'prefix'}) |
|
372
|
15 |
25 |
if (/ / or /^:/) { } |
|
479
|
64 |
13 |
if (ref $_[0]) { } |
|
486
|
0 |
13 |
unless defined $command |
|
508
|
3 |
55 |
unless my $argnames = $self->arg_names |
|
515
|
2 |
126 |
if ($argindex eq 'pn') { } |
|
|
17 |
109 |
elsif ($argindex =~ /^(-?\d+)?\.\.(-?\d+)?$/) { } |
|
|
105 |
4 |
elsif ($argindex =~ /^-?\d+$/) { } |
|
|
4 |
0 |
elsif ($argindex =~ /^(-?\d+)\@$/) { } |
|
522
|
0 |
17 |
unless defined $start |
|
523
|
14 |
3 |
unless defined $end |
|
525
|
3 |
14 |
if $end < 0 |