File Coverage

blib/lib/Mojolicious/Plugin/Thumbnail.pm

Criterion	Covered	Total	%
statement	15	27	55.5
branch	2	12	16.6
condition	0	9	0.0
subroutine	4	4	100.0
pod	1	1	100.0
total	22	53	41.5

package Mojolicious::Plugin::Thumbnail;
use Mojo::Base 'Mojolicious::Plugin';

use Imager;

our $VERSION = '0.01';

has default_args => sub{+{
	src    => '',
	dst    => '',
	width  => 0,
	height => 0,
}};

sub register {
	my ($self, $app) = @_;

	$app->helper(thumbnail => sub {
		my $app  = shift;
		my $conf = @_ ? { @_ } : return;

		$conf = {%{$self->default_args}, %$conf};

		my $src_image = Imager->new();
		my $dst_image;

		die 'Source file missing' unless $src_image->open(file => $conf->{src});

		my ($src_width, $src_height) = ($src_image->getwidth, $src_image->getheight);
		my ($dst_width, $dst_height) = (int $conf->{width},   int $conf->{height}  );

		if (!$dst_height || ($dst_width && $src_width < $src_height)) {
			$dst_height = $src_height * $dst_width /$src_width;
		} else {
			$dst_width  = $src_width  * $dst_height/$src_height;
		}

		$dst_image = $src_image->scaleX(pixels => $dst_width)->scaleY(pixels => $dst_height);

		if ($conf->{width} && $conf->{height}) {
			$dst_image = $dst_image->crop(width => $conf->{width}, height => $conf->{height});
		}

		unless ($conf->{dst}) {
			$conf->{dst} = $conf->{src};
			$conf->{dst} =~ s{(.*?)\.(.+)$}{${1}_thumb.$2};
		}

		$dst_image->write(file => $conf->{dst}) or die $dst_image->errstr;
	});
}

1;
__END__