view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension Image::Seek.

0.06  Wen Dec 30 17:40:00
    - improve test coverage

0.05  Mon Dec 21 20:30:00 2015
    - add Image::Magick support
    - use ExtUtils::CppGuess

0.04  Tue Dec  8 19:30:00 2015
    - documentation and packaging improvements
    - improved test coverage

0.03  Tue Dec  8 12:40:00 2015
    - patch from Andrew Chadwick (ANDREWC) solving issue
      https://rt.cpan.org/Public/Bug/Display.html?id=21163
      cleardb() double-free segv

lib/Image/Seek.pm  view on Meta::CPAN

require XSLoader;
XSLoader::load('Image::Seek', $VERSION);



sub add_image {
    my ($image, $id) = @_;
    if (UNIVERSAL::isa($image, "Imager"))        { goto &add_image_imager }
    if (UNIVERSAL::isa($image, "Image::Imlib2")) { goto &add_image_imlib2 }
    if (UNIVERSAL::isa($image, "GD::Image"))     { goto &add_image_gd }
    if (UNIVERSAL::isa($image, "Image::Magick")) { goto &add_image_magick }
    croak "Don't know what sort of image $image is";
}

sub add_image_magick {
    my ($img, $id) = @_;
    #my ($reds, $blues, $greens);

    my ($width,$height) = $img->Get('width', 'height');
    my $thumb;