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 |
373 |
$self->{_delimiters_templates}->{$f}->{$t}; |
$self->{_delimiters_templates}->{$f}->{$t}; |
374 |
} |
} |
375 |
} |
} |
376 |
$log->debug("_accumulated_delimiters_templates = ", sub { dump( $self->{_accumulated_delimiter_templates} ) } ); |
$log->debug("_accumulated_delimiters_templates = ", sub { dump( $self->{_accumulated_delimiters_templates} ) } ); |
377 |
delete ($self->{_delimiters_templates}); |
delete ($self->{_delimiters_templates}); |
378 |
} |
} |
379 |
|
|
567 |
sub save_delimiters_templates { |
sub save_delimiters_templates { |
568 |
my $self = shift; |
my $self = shift; |
569 |
|
|
570 |
my $path = $self->{delimiters_path}; |
my $path = shift; |
571 |
|
$path ||= $self->{delimiters_path}; |
|
return unless ( $path ); |
|
572 |
|
|
573 |
my $log = $self->_get_logger; |
my $log = $self->_get_logger; |
574 |
|
|
575 |
|
$log->logdie("need path") unless ( $path ); |
576 |
|
|
577 |
|
|
578 |
if ( ! $self->{_accumulated_delimiters_templates} ) { |
if ( ! $self->{_accumulated_delimiters_templates} ) { |
579 |
$log->error('no _accumulated_delimiters_templates found, reset'); |
$log->error('no _accumulated_delimiters_templates found, reset'); |
580 |
$self->reset; |
$self->reset; |
581 |
} |
} |
582 |
|
|
583 |
if ( ! $self->{_delimiters_templates} ) { |
if ( $self->{_delimiters_templates} ) { |
584 |
$log->error('found _delimiters_templates, calling reset'); |
$log->error('found _delimiters_templates, calling reset'); |
585 |
$self->reset; |
$self->reset; |
586 |
} |
} |