line |
true |
false |
branch |
252
|
0 |
0 |
if (defined $imgsperrow) { } |
255
|
0 |
0 |
unless $rows * $cols >= $imgcnt |
260
|
0 |
0 |
unless ($rows * $cols == $imgcnt) |
262
|
0 |
0 |
unless $rows * $cols >= $imgcnt |
272
|
0 |
0 |
$shadow ? : |
277
|
0 |
0 |
unless $images[$img] |
279
|
0 |
0 |
$r == 0 || $r == $rows - 1 ? : |
281
|
0 |
0 |
$c == 0 || $c == $cols - 1 ? : |
284
|
0 |
0 |
if $colw[$c] < $w |
286
|
0 |
0 |
if $rowh[$r] < $h |
303
|
0 |
0 |
unless $images[$img] |
305
|
0 |
0 |
if ($center) { } |
323
|
0 |
0 |
if $_[0] eq 'Imager::Tiler' |
326
|
0 |
0 |
unless $args{'Images'} and ref $args{'Images'} and ref $args{'Images'} eq 'ARRAY' |
331
|
0 |
0 |
if ref $_ and $_->isa('Imager') |
333
|
0 |
0 |
unless $img->read('file', $_) |
338
|
0 |
0 |
unless exists $args{'TileMargin'} |
341
|
0 |
0 |
unless exists $args{'EdgeMargin'} |
344
|
0 |
0 |
unless exists $args{'VEdgeMargin'} |
347
|
0 |
0 |
unless exists $args{'HEdgeMargin'} |
350
|
0 |
0 |
unless exists $args{'VTileMargin'} |
353
|
0 |
0 |
unless exists $args{'HTileMargin'} |
357
|
0 |
0 |
if (exists $args{'Background'}) |
358
|
0 |
0 |
unless exists $colors{$args{'Background'}} or $args{'Background'} =~ /^#[0-9a-fA-F]+$/ |
364
|
0 |
0 |
unless exists $args{'Format'} |
372
|
0 |
0 |
if (exists $args{'Coordinates'}) { } |
373
|
0 |
0 |
unless exists $args{'Width'} |
376
|
0 |
0 |
unless exists $args{'Height'} |
382
|
0 |
0 |
if $imgcnt * 2 > scalar @coords |
400
|
0 |
0 |
if exists $args{'Width'} and $args{'Width'} < $w |
403
|
0 |
0 |
if exists $args{'Height'} and $args{'Height'} < $h |
410
|
0 |
0 |
unless my $tiled = 'Imager'->new('xsize', $w, 'ysize', $h, 'channels', 4) |
413
|
0 |
0 |
ref $background ? : |
416
|
0 |
0 |
unless defined $background |
419
|
0 |
0 |
$args{'Shadow'} ? : |
422
|
0 |
0 |
unless $tiled->box('box', [0, 0, $w - 1, $h - 1], 'color', $background, 'filled', 1) |
430
|
0 |
0 |
if $shadow |
433
|
0 |
0 |
unless $tiled->rubthrough('src', $_, 'tx', $w, 'ty', $h) |
440
|
0 |
0 |
unless $tiled->write('data', \$imgdata, 'type', $format) |
442
|
0 |
0 |
wantarray ? : |