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');