| 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 ? : |