view release on metacpan or  search on metacpan

lib/TemplateRex.pm  view on Meta::CPAN

  # verify input
  unless ( ( $arg_hsh{'str'} ) || ( $arg_hsh{'file'} ) ) { _debug("Must specify a file OR str") }

  # Override default hash with arguments
  #my %conf_hsh = TemplateRex->get_defaults();
  my %conf_hsh = __PACKAGE__->get_defaults();

  %conf_hsh = (%conf_hsh, %arg_hsh);
  
  # Set package for embedded function to caller unless otherwise specified.
  unless ( $conf_hsh{'func_package'} ) { $conf_hsh{'func_package'} = (caller)[0] }

  # The object data structure
  my $self = bless {
                        'temp'      => {},
                        'temp_tree' => {},
                        'func_tree' => {},
                        'data'      => {},
                        'conf'      => { %conf_hsh },
                      }, $class;