line |
true |
false |
branch |
233
|
0 |
0 |
if (defined $imgsperrow) { } |
236
|
0 |
0 |
unless $rows * $cols >= $imgcnt |
241
|
0 |
0 |
unless ($rows * $cols == $imgcnt) |
243
|
0 |
0 |
unless $rows * $cols >= $imgcnt |
253
|
0 |
0 |
$shadow ? : |
258
|
0 |
0 |
unless $images[$img] |
260
|
0 |
0 |
$r == 0 || $r == $rows - 1 ? : |
262
|
0 |
0 |
$c == 0 || $c == $cols - 1 ? : |
265
|
0 |
0 |
if $colw[$c] < $w |
267
|
0 |
0 |
if $rowh[$r] < $h |
284
|
0 |
0 |
unless $images[$img] |
286
|
0 |
0 |
if ($center) { } |
304
|
0 |
0 |
if $_[0] eq 'Imager::Tiler' |
307
|
0 |
0 |
unless $args{'Images'} and ref $args{'Images'} and ref $args{'Images'} eq 'ARRAY' |
313
|
0 |
0 |
if ref $_ and $_->isa('Imager') |
315
|
0 |
0 |
unless $img->read('file', $_) |
320
|
0 |
0 |
unless exists $args{'TileMargin'} |
323
|
0 |
0 |
unless exists $args{'EdgeMargin'} |
326
|
0 |
0 |
unless exists $args{'VEdgeMargin'} |
329
|
0 |
0 |
unless exists $args{'HEdgeMargin'} |
332
|
0 |
0 |
unless exists $args{'VTileMargin'} |
335
|
0 |
0 |
unless exists $args{'HTileMargin'} |
339
|
0 |
0 |
if (exists $args{'Background'}) |
340
|
0 |
0 |
unless exists $colors{$args{'Background'}} or $args{'Background'} =~ /^#[0-9a-fA-F]+$/ |
346
|
0 |
0 |
unless exists $args{'Format'} |
354
|
0 |
0 |
if (exists $args{'Coordinates'}) { } |
355
|
0 |
0 |
unless exists $args{'Width'} |
358
|
0 |
0 |
unless exists $args{'Height'} |
364
|
0 |
0 |
if $imgcnt * 2 > scalar @coords |
382
|
0 |
0 |
if exists $args{'Width'} and $args{'Width'} < $w |
385
|
0 |
0 |
if exists $args{'Height'} and $args{'Height'} < $h |
392
|
0 |
0 |
unless my $tiled = 'Imager'->new('xsize', $w, 'ysize', $h, 'channels', 4) |
395
|
0 |
0 |
ref $background ? : |
398
|
0 |
0 |
unless defined $background |
401
|
0 |
0 |
$args{'Shadow'} ? : |
404
|
0 |
0 |
unless $tiled->box('box', [0, 0, $w - 1, $h - 1], 'color', $background, 'filled', 1) |
412
|
0 |
0 |
if $shadow |
415
|
0 |
0 |
unless $tiled->rubthrough('src', $_, 'tx', $w, 'ty', $h) |
422
|
0 |
0 |
unless $tiled->write('data', \$imgdata, 'type', $format) |
424
|
0 |
0 |
wantarray ? : |