Parent Directory | Revision Log | Patch
revision 536 by dpavlin, Mon Jun 26 16:39:51 2006 UTC | revision 585 by dpavlin, Wed Jul 5 19:52:45 2006 UTC | |
---|---|---|
# | Line 49 ok(my $isis = new WebPAC::Input( | Line 49 ok(my $isis = new WebPAC::Input( |
49 | ok(my $maxmfn = $isis->open( | ok(my $maxmfn = $isis->open( |
50 | path => $isis_file, | path => $isis_file, |
51 | code_page => '852', # database encoding | code_page => '852', # database encoding |
52 | lookup => $lookup, | lookup_coderef => sub { |
53 | my $rec = shift || return; | |
54 | $lookup->add( $rec ); | |
55 | }, | |
56 | ), "Input::ISIS->open"); | ), "Input::ISIS->open"); |
57 | ||
58 | ok(my $path = tempdir( CLEANUP => 1 ), "path"); | ok(my $path = tempdir( CLEANUP => 1 ), "path"); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |