Finance-MICR-GOCR-Check

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

version_from: lib/Finance/MICR/GOCR/Check.pm
installdirs:  site
requires:
    Cwd:                           0
    File::Copy:                    0
    File::Path:                    0
    File::PathInfo:                0
    File::Type:                    0
    File::Which:                   0
    Finance::MICR::LineParser:     1.06
    Image::Magick:                 0
    Imager:                        0.54
    Smart::Comments:               0
    Test::Simple:                  0
    YAML:                          0.58

distribution_type: module
generated_by: ExtUtils::MakeMaker version 6.17

Makefile.PL  view on Meta::CPAN

WriteMakefile(
	NAME				=> "Finance::MICR::GOCR::Check",
	VERSION_FROM	=> 'lib/Finance/MICR/GOCR/Check.pm',
	PREREQ_PM 		=> {
		Cwd => 0,
		'File::Which' => 0,
		'File::PathInfo' => 0,
		'File::Path' => 0,
		'Smart::Comments' => 0,
		'Test::Simple' => 0,
		'Image::Magick' => 0,
		'Finance::MICR::LineParser' => '1.06',	
		'File::Copy' => 0,
		'Imager' => '0.54',
		'YAML' => '0.58',
		'File::Type' => 0,
		
	},

	EXE_FILES => ['bin/checkscan'],
	

lib/Finance/MICR/GOCR/Check.pm  view on Meta::CPAN

package Finance::MICR::GOCR::Check;
use strict;
use warnings;
use Finance::MICR::LineParser;
use Finance::MICR::GOCR;
use File::PathInfo;
use Image::Magick;

our $VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)/g;

$Finance::MICR::GOCR::Check::DEBUG=0;
sub DEBUG : lvalue { $Finance::MICR::GOCR::Check::DEBUG }

lib/Finance/MICR/GOCR/Check.pm  view on Meta::CPAN

	warn "$x" if "$x";

   print STDERR "saved $$arg{abs_micr}\n" if DEBUG;
	return $arg->{abs_micr};
}

sub im { # object containing image magick object already reading the check image
	my $self = shift;
	
	unless( defined $self->{im} ){
		my $i = new Image::Magick;
		$i->Read($self->f->abs_path);
		$self->{im} = $i;
	}
	return $self->{im}->Clone;
}

=head2 im()

returns clone of image magick object that already read check image