| line |
true |
false |
branch |
|
62
|
1 |
69 |
if ($line =~ s/^\@([^ ]+) +//u) |
|
64
|
2 |
1 |
if (/^([^=]+)=(.*)$/u) { } |
|
74
|
63 |
7 |
if ($line =~ s/^:([^ ]+) +//u) |
|
81
|
43 |
27 |
if defined $final |
|
128
|
1 |
20 |
if $idx eq 'pn' |
|
130
|
0 |
20 |
unless defined(my $value = $args{$name}) |
|
133
|
20 |
0 |
if ($idx =~ /^\d+$/u) { } |
|
165
|
1 |
97 |
unless $command =~ /^[A-Z]+$/u or $command =~ /^\d\d\d$/u |
|
169
|
1 |
5 |
unless $key =~ m[^[a-zA-Z0-9./-]+$]u |
|
173
|
1 |
4 |
if defined $value and $value =~ /[ ;]/u |
|
177
|
65 |
30 |
if (defined $prefix) |
|
178
|
1 |
64 |
if $prefix =~ /[ \t\x0d\x0a]/u |
|
183
|
1 |
135 |
unless defined $_ |
|
184
|
1 |
134 |
if /[ \t\x0d\x0a]/u |
|
188
|
85 |
7 |
if (@args) |
|
189
|
1 |
84 |
unless defined $args[-1] |
|
190
|
1 |
83 |
if $args[-1] =~ /[\x0d\x0a]/u |
|
227
|
2 |
0 |
defined $self->{'prefix'} ? : |
|
289
|
80 |
7 |
defined $self->{'prefix'} ? : |
|
308
|
31 |
25 |
if $prefix =~ /^(.*?)!(.*?)@(.*)$/u |
|
358
|
1 |
25 |
if (keys %{$$self{'tags'};}) |
|
360
|
1 |
0 |
defined $tags->{$_} ? : |
|
363
|
2 |
24 |
if (defined $self->{'prefix'}) |
|
370
|
15 |
25 |
if (/ /u or /^:/u) { } |
|
477
|
64 |
13 |
if (ref $_[0]) { } |
|
484
|
0 |
13 |
unless defined $command |
|
506
|
3 |
55 |
unless my $argnames = $self->arg_names |
|
513
|
2 |
126 |
if ($argindex eq 'pn') { } |
|
|
17 |
109 |
elsif ($argindex =~ /^(-?\d+)?\.\.(-?\d+)?$/u) { } |
|
|
105 |
4 |
elsif ($argindex =~ /^-?\d+$/u) { } |
|
|
4 |
0 |
elsif ($argindex =~ /^(-?\d+)\@$/u) { } |
|
520
|
0 |
17 |
unless defined $start |
|
521
|
14 |
3 |
unless defined $end |
|
523
|
3 |
14 |
if $end < 0 |