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} ) || |
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 |
} |
} |