4 use File::Temp qw/tempfile/;
11 my $helper = bless {}, 'MyTestHelper';
13 my $example1 = $helper->get_file('MyTestHelper', 'example1');
16 my $example2 = $helper->get_file('MyTestHelper', 'example2');
20 is $example1, 'foobar[% test_var %]';
21 is $example2, 'bazquux';
26 use File::Temp qw/tempfile/;
28 my ($fh, $fn) = tempfile;
30 $helper->render_file('example1', $fn, { test_var => 'test_val' });
31 open $fh, $fn or die $@;
32 #seek $fh, 0, 0; # Rewind
38 is $contents, "foobartest_val\n";