The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Image::JpegCheck - is this jpeg?

SYNOPSIS

  use Image::JpegCheck;
  is_jpeg('foo.jpg'); # => return 1 when this is jpeg

DESCRIPTION

Image::JpegCheck is jpeg file checker for perl.

Yes, I know. I know the Imager, GD, Image::Magick, Image::Size, etc.But, I need tiny one. I want to use this module in the mod_perl =)

Code is taken from Image::Size, and optimized it.

FUNCTIONS

is_jpeg($stuff)

is_jpeg($stuff) validates your jpeg.stuff is:

    scalar:            filename
    scalarref:         jpeg itself
    file-glob:         file handle
    Path::Class::File: file object

AUTHOR

Tokuhiro Matsuno <tokuhirom ah! gmail.com>

THANKS TO

kazeburo++

yappo++

SEE ALSO

Image::Size

LICENSE

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