$self->set(@_);
}
-=item exists COLUMN
-
-Returns true if the column/field/key COLUMN exists.
-
-=cut
-
-sub exists {
- my($self,$field) = @_;
- exists($self->{Hash}->{$field});
-}
-
=item AUTLOADED METHODS
$record->column is a synonym for $record->get('column');
format_headers => $opt->{format_headers},
format_sep_chars => $opt->{format_sep_chars},
format_fixedlength_formats => $opt->{format_fixedlength_formats},
- format_row_callbacks => $opt->{format_row_callbacks},
#per-import
job => $job,
file => $file,
=item format_fixedlength_formats
-=item format_row_callbacks
-
=item params
=item job
my $param = shift;
warn "$me batch_import call with params: \n". Dumper($param)
- ;# if $DEBUG;
+ if $DEBUG;
my $table = $param->{table};
my $formats = $param->{formats};
? $param->{'format_fixedlength_formats'}{ $param->{'format'} }
: '';
- my $row_callback =
- $param->{'format_row_callbacks'}
- ? $param->{'format_row_callbacks'}{ $param->{'format'} }
- : '';
-
my @fields = @{ $formats->{ $format } };
my $row = 0;
next if $line =~ /^\s*$/; #skip empty lines
- $line = &{$row_callback}($line) if $row_callback;
-
$parser->parse($line) or do {
$dbh->rollback if $oldAutoCommit;
return "can't parse: ". $parser->error_input();