Branch Coverage

blib/lib/Game/TextPatterns.pm
Criterion Covered Total %
branch 105 128 82.0


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)