sub start_plugin {
  my ($opt) = @_;

  album::hook($opt,'get_exif_info',\&native_perl_exif);
  return {
    author => 'David Hansen',
    href => 'http://www.sr71.net/',
    version => '1.0',
    description => "Don't launch a helper, use perl library for exif.",
  };
}

sub native_perl_exif {
	my $opt = shift;
	my $data = shift;
	my $hook_name = shift;
	my $pic = shift;
	
	#printf2("native_perl_exif('%s')\n", $pic);
	use daveperl;
	my $ret = ::fetch_exif($pic);
	#rintf("native_perl_exif('%s') return: '%s' size: %d\n", $pic, $ret, (scalar keys %$ret));
	return $ret;
}

1;