67 |
my $self = {@_}; |
my $self = {@_}; |
68 |
bless($self, $class); |
bless($self, $class); |
69 |
|
|
|
warn dump( @_ ); |
|
|
|
|
70 |
my $log = $self->_get_logger(); |
my $log = $self->_get_logger(); |
71 |
|
|
72 |
|
$log->logdie("need path or delimiters_path") unless ( $self->{path} || $self->{delimiters_path} ); |
73 |
|
|
74 |
if ( $self->{path} ) { |
if ( $self->{path} ) { |
75 |
|
|
76 |
my $v_file = read_file( $self->{path} ) || |
my $v_file = read_file( $self->{path} ) || |
140 |
} |
} |
141 |
} |
} |
142 |
close($d); |
close($d); |
143 |
warn "_validate_delimiters_templates = ",dump( $self->{_validate_delimiters_templates} ); |
#warn "_validate_delimiters_templates = ",dump( $self->{_validate_delimiters_templates} ); |
144 |
} else { |
} else { |
145 |
$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"); |
146 |
} |
} |
193 |
$self->{_delimiters_templates}->{$f}->{$template}++; |
$self->{_delimiters_templates}->{$f}->{$template}++; |
194 |
|
|
195 |
if ( my $v = $self->{_validate_delimiters_templates} ) { |
if ( my $v = $self->{_validate_delimiters_templates} ) { |
196 |
if ( ! defined( $v->{$template} ) ) { |
if ( ! defined( $v->{$f}->{$template} ) ) { |
197 |
$errors->{$f}->{invalid_delimiters_combination} = $template; |
$errors->{$f}->{invalid_delimiters_combination} = $template; |
198 |
$errors->{$f}->{dump} = $subfield_dump; |
$errors->{$f}->{dump} = $subfield_dump; |
199 |
} else { |
#} else { |
200 |
warn "## $f $template ok\n"; |
# warn "## $f $template ok\n"; |
201 |
} |
} |
202 |
} |
} |
203 |
} |
} |
505 |
|
|
506 |
my $log = $self->_get_logger; |
my $log = $self->_get_logger; |
507 |
|
|
508 |
|
$path .= '.new' if ( -e $path ); |
509 |
|
|
510 |
open(my $d, '>', $path) || $log->fatal("can't open $path: $!"); |
open(my $d, '>', $path) || $log->fatal("can't open $path: $!"); |
511 |
print $d $self->delimiters_templates; |
print $d $self->delimiters_templates; |
512 |
close($d); |
close($d); |