| line |
true |
false |
branch |
|
46
|
1 |
92 |
unless exists $param->{'pattern'} |
|
55
|
0 |
22 |
unless defined $pattern |
|
57
|
2 |
20 |
if (ref $fill eq 'ARRAY') { } |
|
65
|
1 |
21 |
if ($cur_dim[1] > $new_dim[1]) { } |
|
|
2 |
19 |
elsif ($cur_dim[1] < $new_dim[1]) { } |
|
83
|
0 |
12 |
unless defined $pattern |
|
85
|
2 |
10 |
if (ref $fill eq 'ARRAY') { } |
|
94
|
1 |
11 |
if ($cur_dim[0] > $new_dim[0]) { } |
|
|
1 |
10 |
elsif ($cur_dim[0] < $new_dim[0]) { } |
|
118
|
1 |
1 |
if (defined $width) { } |
|
119
|
0 |
1 |
if not &looks_like_number($width) or $width < 1 |
|
126
|
1 |
1 |
if (defined $char and length $char) { } |
|
152
|
9 |
37 |
if $p->[0] < 0 |
|
153
|
9 |
37 |
if $p->[1] < 0 |
|
154
|
0 |
45 |
if ($p->[0] < 0 or $p->[0] >= $cols or $p->[1] < 0 or $p->[1] >= $rows) |
|
159
|
1 |
21 |
if $p1->[0] > $p2->[0] |
|
160
|
0 |
22 |
if $p1->[1] > $p2->[1] |
|
168
|
0 |
17 |
unless ($p2) |
|
173
|
1 |
16 |
unless defined $p1 |
|
175
|
15 |
1 |
unless ($p2->[0] == 0 or $p2->[1] == 0) |
|
188
|
5 |
1 |
unless (defined $pattern) |
|
190
|
0 |
5 |
unless defined $pattern |
|
208
|
4 |
1 |
unless $p->[0] == 0 |
|
209
|
4 |
1 |
unless $p->[0] == $max_col |
|
210
|
4 |
1 |
unless $p->[1] == 0 |
|
211
|
4 |
1 |
unless $p->[1] == $max_row |
|
218
|
3 |
2 |
unless $p->[0] == 0 |
|
219
|
3 |
2 |
unless $p->[0] == $max_col |
|
220
|
3 |
2 |
unless $p->[1] == 0 |
|
221
|
3 |
2 |
unless $p->[1] == $max_row |
|
222
|
2 |
3 |
unless $p->[0] == 0 or $p->[1] == 0 |
|
223
|
2 |
3 |
unless $p->[0] == 0 or $p->[1] == $max_row |
|
226
|
2 |
3 |
unless $p->[0] == $max_col or $p->[1] == 0 |
|
229
|
2 |
3 |
unless $p->[0] == $max_col or $p->[1] == $max_row |
|
240
|
0 |
2 |
if ($p->[0] < 0 or $p->[0] > $max_col or $p->[1] < 0 or $p->[1] > $max_row) |
|
249
|
10 |
28 |
if ($$ref[$p->[1]][$p->[0]] eq $replace) |
|
269
|
6 |
0 |
if @$pat > 1 |
|
286
|
2 |
3 |
if ($reduce_col) |
|
291
|
2 |
3 |
if ($reduce_row) |
|
304
|
11 |
0 |
if @$pat > 1 |
|
310
|
4 |
0 |
if (defined $fill) { } |
|
311
|
0 |
4 |
if ref $fill |
|
318
|
2 |
2 |
if ($do_crop) { } |
|
320
|
1 |
1 |
if ($cols > $rows) { } |
|
|
1 |
0 |
elsif ($cols < $rows) { } |
|
327
|
1 |
1 |
if ($cols > $rows) { } |
|
|
1 |
0 |
elsif ($cols < $rows) { } |
|
363
|
0 |
4 |
unless substr $rep->[$r], $-[0], $+[0] - $-[0] |
|
370
|
0 |
6 |
if not defined $cols && &looks_like_number($cols) or $cols < 1 |
|
375
|
4 |
2 |
if (defined $rows) { } |
|
376
|
0 |
4 |
if not &looks_like_number($rows) or $rows < 1 |
|
383
|
4 |
2 |
if ($cols > 1) |
|
388
|
4 |
2 |
if ($rows > 1) |
|
397
|
0 |
4 |
if $p->[0] < 0 |
|
398
|
0 |
4 |
if $p->[1] < 0 |
|
399
|
0 |
3 |
if ($p->[0] < 0 or $p->[0] >= $cols or $p->[1] < 0 or $p->[1] >= $rows) |
|
415
|
2 |
17 |
if ($rotate_by == 0) { } |
|
|
5 |
12 |
elsif ($rotate_by == 2) { } |
|
423
|
6 |
6 |
if ($rotate_by == 1) { } |
|
|
6 |
0 |
elsif ($rotate_by == 3) { } |
|
427
|
6 |
0 |
if ($rows > 1) |
|
438
|
6 |
0 |
if ($rows > 1) |
|
469
|
2 |
1 |
if ($to_fill > 0) |
|
472
|
15 |
5 |
if (rand() < $to_fill / $total) |