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 |