3 use File::Temp qw/tempfile/;
10 my $helper = bless {}, 'MyTestHelper';
12 my $example1 = $helper->get_file('MyTestHelper', 'example1');
15 my $example2 = $helper->get_file('MyTestHelper', 'example2');
19 is $example1, 'foobar[% test_var %]';
20 is $example2, 'bazquux';
25 use File::Temp qw/tempfile/;
27 my ($fh, $fn) = tempfile( UNLINK => 1 );
29 $helper->render_file('example1', $fn, { test_var => 'test_val' });
30 open $fh, $fn or die $@;
31 #seek $fh, 0, 0; # Rewind
37 is $contents, "foobartest_val\n";