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