Catalyst::Plugin::Upload::Image::Magick - Image information plugin for Catalyst::Request::Upload

Version 0.02

In your Catalyst project,

  use Catalyst qw/Upload::Image::Magick/;

And you can execute method around image information in Catalyst::Request::Image object;

  sub uploaded_action: Local {
    my ($self, $c) = shift;

    $upload = $c->request->upload('file_field');

    if ($upload->is_image) {
      $c->log->debug("width : " . $upload->width);
      $c->log->debug("height : " . $upload->height);
    }

    # ...
  }

If uploaded file is image, then return Image::Magick object, is't image then throw Catalyst::Exception.

If uploaded file is image, then return 1, else 0.

If uploaded file is image, then return image width, else undef.

If uploaded file is image, then return image height, else undef.

Toru Yamaguchi, <zigorou at cpan.org>

Catalyst

Catalyst::Request::Upload

Image::Magick

Please report any bugs or feature requests to bug-catalyst-plugin-upload-image-magick at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Catalyst-Plugin-Upload-Image-Magick. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

You can find documentation for this module with the perldoc command.

    perldoc Catalyst::Plugin::Upload::Image::Magick

You can also look for information at:

* AnnoCPAN: Annotated CPAN documentation

http://annocpan.org/dist/Catalyst-Plugin-Upload-Image-Magick

* CPAN Ratings

http://cpanratings.perl.org/d/Catalyst-Plugin-Upload-Image-Magick

* RT: CPAN's request tracker

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Catalyst-Plugin-Upload-Image-Magick

* Search CPAN

http://search.cpan.org/dist/Catalyst-Plugin-Upload-Image-Magick

Copyright 2006 Toru Yamaguchi, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.