File Coverage

blib/lib/Template/Plugin/ExifTool.pm

Criterion	Covered	Total	%
statement	26	28	92.8
branch	6	8	75.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	42	46	91.3

package Template::Plugin::ExifTool;

use strict;
use base qw(Template::Plugin);
use vars qw($VERSION $AUTOLOAD);
$VERSION = '0.01';

use Template::Plugin;
use Image::ExifTool;

sub new {
    my ($class, $context, $file, @params) = @_;
    return $class->error("file is not specified") unless $file;
    return $class->error("$file: No such file") unless -e $file;

    my $exiftool = Image::ExifTool->new;
    my $info = $exiftool->ImageInfo($file, @params);
    bless {
	_CONTEXT  => $context,
	_exiftool => $exiftool,
	_info     => $info,
    }, $class;
}

sub info { shift->{_info} }

sub AUTOLOAD {
    my $self = shift;
    (my $meth = $AUTOLOAD) =~ s/.*:://;

    if (exists $self->{_info}->{$meth}) {
        return $self->{_info}->{$meth} ;
    }
    elsif ($self->{_exiftool}->can($meth)) {
        return $self->{_exiftool}->$meth(@_);
    }
    else {
	return;
    }
}

1;

__END__