9 my $helper = bless {}, 'Catalyst::Helper';
11 use File::Temp qw/tempfile/;
13 my ($fh, $fn) = tempfile;
16 ok( $helper->render_file_contents('example1', $fn,
17 { test_var => 'test_val' }, 0677
19 "file contents rendered" );
22 my $perms = ( stat $fn )[2] & 07777;
23 unless ($^O eq 'MSWin32') {