File Coverage

blib/lib/Plucene/SearchEngine/Index/Image.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	33	35	94.2

package Plucene::SearchEngine::Index::Image;
use strict;
use warnings;
use base 'Plucene::SearchEngine::Index::Base';
use Image::Info qw(image_info dim);
use Time::Piece;
use Date::Parse;

our $VERSION = '0.01';

__PACKAGE__->register_handler(qw(
    image/bmp           .bmp
    image/gif           .gif
    image/jpeg          jpeg jpg jpe
    image/png           png
    image/x-portable-bitmap     pbm
    image/x-portable-graymap    pgm
    image/x-portable-pixmap     ppm
    image/svg+xml           svg
    image/tiff          tiff tif
    image/x-xbitmap         xbm
    image/x-xpixmap         xpm
));

sub gather_data_from_file {
    my ($self, $filename) = @_;
    my $info = image_info($filename);
    return if $info->{error};
    $self->add_data("size", "Text", scalar dim($info));
    $self->add_data("text", "UnStored", $info->{Comment});
    $self->add_data("subtype", "Text", $info->{file_ext});
    $self->add_data("created", "Date", Time::Piece->new(str2time($info->{LastModificationTime})));
}

1;
__END__