use File::Slurp;
use Data::Dump qw/dump/;
use Time::HiRes qw/time/;
-use blib;
+use lib 'lib';
my $debug = shift @ARGV;
ok(my $isis = new WebPAC::Input(
module => 'WebPAC::Input::ISIS',
- code_page => 'ISO-8859-2', # application encoding
limit => 100,
no_progress_bar => 1,
), "new Input::ISIS");
ok(my $maxmfn = $isis->open(
path => $isis_file,
- code_page => 'cp852', # database encoding
+ input_encoding => 'cp852', # database encoding
lookup_coderef => sub {
my $rec = shift || return;
ok($rec, 'lookup_coderef has rec');