188 |
} else { |
} else { |
189 |
$log->warn("delimiters path $path doesn't exist, it will be created after this run"); |
$log->warn("delimiters path $path doesn't exist, it will be created after this run"); |
190 |
} |
} |
191 |
|
$self->{delimiters_path} = $path; |
192 |
} |
} |
193 |
|
|
194 |
=head2 validate_rec |
=head2 validate_rec |
273 |
# $errors->{dump} = $rec_dump if ($rec_dump); |
# $errors->{dump} = $rec_dump if ($rec_dump); |
274 |
} elsif (ref($v) ne 'HASH') { |
} elsif (ref($v) ne 'HASH') { |
275 |
$errors->{$f}->{missing_subfield} = join(",", @{ $r->{$f} }) . " required"; |
$errors->{$f}->{missing_subfield} = join(",", @{ $r->{$f} }) . " required"; |
276 |
|
$errors->{$f}->{dump} = $v; |
277 |
next; |
next; |
278 |
} else { |
} else { |
279 |
|
|
374 |
$self->{_delimiters_templates}->{$f}->{$t}; |
$self->{_delimiters_templates}->{$f}->{$t}; |
375 |
} |
} |
376 |
} |
} |
377 |
$log->debug("_accumulated_delimiters_templates = ", sub { dump( $self->{_accumulated_delimiter_templates} ) } ); |
$log->debug("_accumulated_delimiters_templates = ", sub { dump( $self->{_accumulated_delimiters_templates} ) } ); |
378 |
delete ($self->{_delimiters_templates}); |
delete ($self->{_delimiters_templates}); |
379 |
} |
} |
380 |
|
|
568 |
sub save_delimiters_templates { |
sub save_delimiters_templates { |
569 |
my $self = shift; |
my $self = shift; |
570 |
|
|
571 |
my $path = $self->{delimiters_path}; |
my $path = shift; |
572 |
|
$path ||= $self->{delimiters_path}; |
|
return unless ( $path ); |
|
573 |
|
|
574 |
my $log = $self->_get_logger; |
my $log = $self->_get_logger; |
575 |
|
|
576 |
|
$log->logdie("need path") unless ( $path ); |
577 |
|
|
578 |
|
|
579 |
if ( ! $self->{_accumulated_delimiters_templates} ) { |
if ( ! $self->{_accumulated_delimiters_templates} ) { |
580 |
$log->error('no _accumulated_delimiters_templates found, reset'); |
$log->error('no _accumulated_delimiters_templates found, reset'); |
581 |
$self->reset; |
$self->reset; |
582 |
} |
} |
583 |
|
|
584 |
if ( ! $self->{_delimiters_templates} ) { |
if ( $self->{_delimiters_templates} ) { |
585 |
$log->error('found _delimiters_templates, calling reset'); |
$log->error('found _delimiters_templates, calling reset'); |
586 |
$self->reset; |
$self->reset; |
587 |
} |
} |