File Coverage

lib/PDF/OCR.pm

Criterion	Covered	Total	%
statement	27	64	42.1
branch	5	18	27.7
condition	0	2	0.0
subroutine	7	14	50.0
pod	5	9	55.5
total	44	107	41.1

package PDF::OCR;
use strict;
use vars qw($VERSION $DEBUG);
use Carp;
$VERSION = sprintf "%d.%02d", q$Revision: 1.11 $ =~ /(\d+)/g;

sub DEBUG : lvalue { $DEBUG }

sub new {
	my($class, $arg) = @_;
	$arg or croak("missing argument to constructor");
	my $self = {};


   require Cwd;
	my $abs = Cwd::abs_path($arg)
      or croak("[$arg] not resolving with Cwd::abs_path()");

	$abs=~/\.pdf$/i
      or croak("[$arg] cant match pdf ext in filename");

	-f $abs
      or croak("[$abs] is not file.");

   $self->{abs_pdf} = $abs;

   bless $self,$class;
   return $self;
}

sub abs_pdf {
   my $self = shift;
   return $self->{abs_pdf};
}

sub abs_tmp {
	my $self= shift;
	return $self->{abs_tmp};
}


sub abs_images {
	my $self = shift;

	unless( defined $self->{abs_images}){
      require PDF::GetImages;
		my $images = PDF::GetImages::pdfimages($self->abs_pdf);
      unless( scalar @$images ){
         warn("no images in ".$self->abs_pdf);
         $self->{abs_images} = [];
         return [];
      }
      $self->{abs_images} = $images;
	}

	return $self->{abs_images};
}

sub abs_images_count {
   my $self = shift;
   return scalar @{$self->abs_images};
}




sub get_ocr {
	my ($self,$abs)= @_;

	if(defined $abs){
		return $self->_get_ocr($abs);
	}

	my $ocr = join( "\f", @{$self->get_ocr_arrayref} );
	return $ocr;
}





sub _get_ocr {
	my ($self,$abs)= @_;
   defined $abs or confess('missing arg');
   $self->{ocr} ||={};
	unless( defined $self->{ocr}->{$abs} ){
      # TODO could check that this *IS* one of the files extracted
      require Image::OCR::Tesseract;
		my $content = Image::OCR::Tesseract::get_ocr($abs);
		$self->{ocr}->{$abs} = $content;
	}

	return $self->{ocr}->{$abs};
}




sub get_ocr_arrayref {
	my ($self)= @_;

	my $ocr = [];
	for( @{$self->abs_images} ){
		push @$ocr, $self->get_ocr($_);
	}

	return $ocr;
}


sub cleanup {
	my $self = shift;

	for(@{$self->abs_images}){
		unlink $_;
	}
	return 1;
}

sub DESTROY {
   my $self = shift;
   $self->cleanup;
}


1;


__END__