| line |
true |
false |
branch |
|
37
|
235 |
111 |
unless exists $$opts{$k} |
|
50
|
0 |
8 |
unless $$opts{'x_size'} and $$opts{'y_size'} |
|
51
|
0 |
8 |
unless $$opts{'num_rooms'} |
|
53
|
0 |
8 |
unless $$opts{'min_room_size'} |
|
54
|
0 |
8 |
unless $$opts{'max_room_size'} |
|
56
|
0 |
8 |
unless $$opts{'min_room_size'} =~ /^\d+x\d+$/u and $$opts{'max_room_size'} =~ /^\d+x\d+$/u |
|
70
|
8 |
0 |
if ($$opts{'bounding_box'}) |
|
71
|
0 |
8 |
unless $$opts{'bounding_box'} =~ /^(\d+)x(\d+)/u |
|
93
|
140 |
0 |
if $$opts{$k} ne $$this{'o'} |
|
119
|
0 |
6 |
if $@ |
|
123
|
0 |
6 |
if $@ |
|
125
|
0 |
6 |
unless int @$obj > 0 |
|
128
|
0 |
6 |
unless ref $pt eq 'ARRAY' |