[Catalyst] Creating thumbnail images with Catalyst

JJ jj.mailinglists at gmail.com
Wed Sep 9 12:14:37 GMT 2009


Hi,

A couple of days ago I released Catalyst::View::Thumbnail, which
provides an easy way to serve thumbnail images. It should work with
any model that can put raw image data onto the stash (you don't need
the MIME type, it's automatically detected), so a controller to
produce thumbnails 100px high would look like this:

sub thumbnail :Local :Args(1) {
   my ($self, $c, $filename) = @_;

   $c->stash->{image} = $c->model('Images')->slurp($filename);
   $c->stash->{y}     = 100;

   $c->forward('View::Thumbnail');
}

Have a read of the tutorial at
http://perl.jonallen.info/writing/articles/creating-thumbnails-with-catalyst,
and please let me know of any fearure requests or bug reports.

The source code is on GitHub at
http://github.com/jonallen/Catalyst-View-Thumbnail/tree/master, you
can get the module from
http://perl.jonallen.info/projects/catalyst-view-thumbnail or download
it from CPAN.


Cheers,

JJ


P.S.
I originally posted this on my use.perl.org blog, but thought it may
be of interest here as well.

-- 
JJ <jj at jonallen.info> - freelance Perl / Catalyst developer
http://perl.jonallen.info :: http://perldoc.perl.org



More information about the Catalyst mailing list