File Coverage

blib/lib/GD/Image/AnimatedGif.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package GD::Image::AnimatedGif;

use strict;
use warnings;
use GD; # gdlib v 2.0.33 or later required

our $VERSION = '0.05';

sub GD::Image::animated_gif {
  my ($im,$lp,$ft,$fc,$sp,$x,$y,$ar,$cd) = @_;
  $lp = $lp ? 0 : 1;
  my @addargs = (0,0,0,$sp,1);
  my $prev = $im;

  $cd = sub { shift->string($ft,$x,$y,shift,$fc); } if ref $cd ne 'CODE';

  my $gifdata = $im->gifanimbegin(1,$lp);
  for(@{ $ar }) {
    my $frame  = GD::Image->new($im->getBounds);
    $cd->($frame,$_);
    $gifdata .= $frame->gifanimadd(@addargs,$prev);
    $prev = $frame;
  }
  $gifdata   .= $im->gifanimend;
  return $gifdata;
}

sub GD::Image::animated_gif_easy {
  my $img = shift;
  my $lup = shift || 0;
  $img->transparent($img->colorAllocate(255,255,255)) if shift;
  return $img->animated_gif($lup,GD::Font->Small(),$img->colorAllocate(0,0,0),42,4,2,shift,shift);
}

1;
__END__