120 |
# ); |
# ); |
121 |
|
|
122 |
sub new { |
sub new { |
123 |
my ($pkg, $filename, $template_name, $validation_name) = @_; |
my ($pkg, $filename, $template_name, $validation_name, $template_filename) = @_; |
124 |
-e $filename or die ("$filename not found"); |
-e $filename or die ("$filename not found"); |
125 |
eval "require Libconf::templates::$template_name" . '_template'; |
$template_filename ? |
126 |
|
require $template_filename : eval "require Libconf::templates::$template_name" . '_template'; |
127 |
my %out; |
my %out; |
128 |
$out{filename} = $filename; |
$out{filename} = $filename; |
129 |
$out{template_name} = $template_name; |
$out{template_name} = $template_name; |