File Coverage

blib/lib/Image/ThumbHash.pm

Criterion	Covered	Total	%
statement	15	24	62.5
branch	0	6	0.0
condition			n/a
subroutine	5	7	71.4
pod	2	2	100.0
total	22	39	56.4

package Image::ThumbHash;
use strict;
use warnings qw(all FATAL uninitialized);

use Carp qw(croak);
use Exporter 5.57 qw(import);

our $VERSION = '0.04';

our $_BACKEND = 'PP';

use Image::ThumbHash::PP our @EXPORT_OK = qw(
    rgba_to_thumb_hash
    rgba_to_png
    rgba_to_data_url
    thumb_hash_to_rgba
    thumb_hash_to_average_rgba
    thumb_hash_to_approximate_aspect_ratio
    thumb_hash_to_data_url
);

push our @EXPORT_OK, qw(
    imager_to_rgba
    imager_to_thumb_hash
);

sub imager_to_rgba {
    my ($img) = @_;
    wantarray or croak "imager_to_rgba: must be called in list context";
    $img = $img->to_rgb8;
    $img = $img->scale(
        xpixels => 100,
        ypixels => 100,
        type    => 'min',
        qtype   => 'mixing',
    ) or croak "imager_to_rgba: cannot scale: " . $img->errstr;
    $img = $img->convert(preset => 'addalpha');
    $img->write(type => 'raw', data => \my $data)
        or croak "imager_to_rgba: cannot write: " . $img->errstr;
    $img->getwidth, $img->getheight, $data
}

sub imager_to_thumb_hash {
    my ($img) = @_;
    rgba_to_thumb_hash imager_to_rgba $img
}

1
__END__