| line |
true |
false |
branch |
|
38
|
1 |
19 |
if (ref $_[0] eq 'HASH') { } |
|
47
|
15 |
5 |
defined $user_params ? : |
|
53
|
6 |
18 |
unless defined $params->{$key} |
|
66
|
1 |
19 |
if (defined $params->{'-d'} and defined $params->{'-f'}) |
|
71
|
1 |
19 |
if defined $params->{'-E'} |
|
72
|
1 |
18 |
if defined $params->{'-t'} |
|
73
|
1 |
17 |
if defined $params->{'-v'} |
|
76
|
2 |
15 |
if (defined $params->{'-w'}) |
|
80
|
2 |
15 |
if (defined $params->{'-W'}) |
|
92
|
27 |
2 |
if (defined $path) { } |
|
94
|
21 |
6 |
if -e $cmd |
|
99
|
1 |
1 |
if not $@ and $? == 0 |
|
112
|
17 |
4 |
if (ref $self) |
|
117
|
1 |
20 |
if length $stderr |
|
118
|
1 |
20 |
if $code == -1 |
|
119
|
0 |
20 |
if $code & 127 |
|
120
|
2 |
18 |
if $code |
|
121
|
0 |
18 |
if $eval_err |
|
128
|
56 |
4 |
if &looks_like_number($value) |
|
155
|
1 |
17 |
unless $line =~ /\s(\d+)\s*$/ax |
|
157
|
1 |
16 |
unless $line =~ /^\s* (\S+) \s+ (\S+) \s+ (\S+) \s/ax |
|
158
|
1 |
15 |
defined $aux ? : |
|
161
|
38 |
10 |
if &looks_like_number($p[$j]) |
|
167
|
3 |
12 |
if ((my $s = @source_points) != (my $t = @target_points)) |
|
171
|
3 |
9 |
if wantarray |
|
172
|
8 |
1 |
if @target_points < 2 |
|
186
|
2 |
1 |
if $out =~ /\b(\d+\.\d+(?:\.\d\w*)?)\b/u |