NAME
Image::JPEG::Size - find the size of JPEG images
SYNOPSIS
use Image::JPEG::Size;
my $jpeg_sizer = Image::JPEG::Size->new;
my ($width, $height) = $jpeg_sizer->file_dimensions($filename);
DESCRIPTION
This module uses libjpeg to rapidly determine the size of one or more JPEG images.
CONSTRUCTOR
First create an instance of the class:
my $jpeg_sizer = Image::JPEG::Size->new;
The constructor initialises internal libjpeg structures; if that fails, an exception is thrown.
The constructor takes attributes as either a hash reference or a listified hash. Unknown attributes are ignored. The following attributes are understood:
error
-
Specifies the action to take on encountering a non-recoverable error in an image; see "ERROR HANDLING". Defaults to
fatal
. warning
-
Specifies the action to take on encountering a recoverable error in an image; see "ERROR HANDLING". Defaults to
warn
.
METHODS
file_dimensions
You can repeatedly call file_dimensions
in list context to find the width and height of your JPEG images:
my ($width, $height) = $jpeg_sizer->file_dimensions($filename);
For now, the JPEG images must be supplied as a filename.
file_dimensions_hash
In some cases, you may prefer to get the image dimensions as a hash. The file_dimensions_hash
takes a single filename argument, and returns a listified hash with keys width
and height
.
ERROR HANDLING
By default, recoverable errors in the image are reported using Perl's warning mechanism, and non-recoverable errors cause an exception to be thrown. However, this behaviour can be changed when creating an Image::JPEG::Size instance. The options are:
fatal
-
Throw an exception with information about the error, and stop processing this image immediately.
warn
-
Emit a Perl warning with information about the error. If the error is non-recoverable, image processing stops immediately, and its dimensions are reported as 0×0 pixels.
quiet
-
Suppress the error entirely. If the error is non-recoverable, image processing stops immediately, and its dimensions are reported as 0×0 pixels.
AUTHOR
Aaron Crane, <arc@cpan.org>
The initial development of this module was sponsored by Science Photo Library https://www.sciencephoto.com/.
COPYRIGHT
Copyright 2017 Aaron Crane.
LICENSE
This library is free software and may be distributed under the same terms as perl itself. See http://dev.perl.org/licenses/.