File Coverage

blib/lib/Data/FormValidator/Filters/ImgData.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	26	28	92.8

package Data::FormValidator::Filters::ImgData;

use warnings;
use strict;
use Carp;
use base qw(Exporter);
use vars qw(@EXPORT);

@EXPORT = qw(
    filter_resize
);

use version; our $VERSION = qv('0.0.3');

# Module implementation here

sub filter_resize {
    my $width = shift;
    my $height = shift;
    my $type = shift || 'jpeg';
    return sub {
        use GD;
        GD::Image->trueColor( 1 );
        my $data = shift;
        my $image = GD::Image->new($data);
        my $old_width = ($image->getBounds)[0];
        my $old_height = ($image->getBounds)[1];
        my $k_h = $height / $old_height;
        my $k_w = $width / $old_width;
        my $k = ($k_h < $k_w ? $k_h : $k_w);
        my $new_height = int($old_height * $k);
        my $new_width  = int($old_width * $k);
        my $new_image = GD::Image->new($new_width, $new_height);
        $new_image->copyResampled($image,
            0, 0,               # (destX, destY)
            0, 0,               # (srcX,  srxY )
            $new_width, $new_height,    # (destX, destY)
            $old_width, $old_height
        );
        return $new_image->$type();
    };
}

1; # Magic true value required at end of module
__END__