Image::Info::TIFF (3pm)

 use Image::Info qw(image_info dim);

 my $info = image_info("image.tif");
 if (my $error = $info->{error}) {
     die "Can't parse image info: $error\n";
 }
 print $info->{BitPerSample};

 my($w, $h) = dim($info);

This module adds \s-1TIFF\s0 support for Image::Info.

\$1

$info->process_file($source, $options);

Processes one file and sets the found info fields in the $info object.

Image::Info

Jerrad Pierce <[email protected]>/<[email protected]>

Patches and fixes by Ben Wheeler.

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