--- trunk/lib/WebPAC/Input.pm 2007/05/27 14:44:58 855 +++ trunk/lib/WebPAC/Input.pm 2007/06/21 21:26:17 868 @@ -64,6 +64,9 @@ encoding => 'ISO-8859-2', recode => 'char pairs', no_progress_bar => 1, + input_config => { + mapping => [ 'foo', 'bar', 'baz' ], + }, ); C is low-level file format module. See L and @@ -233,6 +236,7 @@ my $ll_db = $class->new( path => $arg->{path}, + input_config => $arg->{input_config}, # filter => sub { # my ($l,$f_nr) = @_; # return unless defined($l); @@ -559,7 +563,7 @@ return unless $self->{ll_db}; - if ($self->{ll_db}->can('dump_rec')) { + if ($self->{ll_db}->can('dump_ascii')) { return $self->{ll_db}->dump_ascii( $self->{pos} ); } else { return dump( $self->{ll_db}->fetch_rec( $self->{pos} ) );