use Modern::Perl; use CGI; use YAML::Syck qw( Dump LoadFile ); use Data::Dumper qw( Dumper ); use C4::Templates; my $prefs = 'koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/opac.pref'; gettemplate_test(); sub loadfile_test { my $yaml = LoadFile( $prefs ); #print Dumper( $yaml ); print Dumper( $yaml->{OPAC}->{Payments} ); } sub gettemplate_test { my $data = C4::Templates::gettemplate( 'admin/preferences/opac.pref', 'intranet', new CGI ); print $data->output; }