File Coverage

blib/lib/File/Headerinfo/Image.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	21	22	95.4

package File::Headerinfo::Image;

use strict;
use base qw(File::Headerinfo);
use Image::Size;

=head1 NAME

File::Headerinfo::Image - an extractor of useful information from image files.

=head1 DESCRIPTION

I is a thin (going on invisible) wrapper around Image::Size, which is able to retrieve dimensions from most types of image file.

=cut

sub parse_file {
	my $self = shift;
    my ($w, $h, $type) = Image::Size::imgsize( $self->path );
    return unless $w;
    $self->filetype(lc($type));
    $self->width($w);
    $self->height($h);
}

=head1 COPYRIGHT

Copyright 2004 William Ross ([e-mail])

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

=head1 SEE ALSO

L, L, L, L

=cut

1;