Commit | Line | Data |
7025ed89 |
1 | package MyTestHelper; |
2 | use base qw/Catalyst::Helper/; |
3 | |
4 | sub example_render { |
5 | my ($self, $fn, $vars) = @_; |
6 | $self->render_file('example1', $fn, $vars); |
7 | } |
8 | |
9 | 1; |
10 | |
11 | __DATA__ |
12 | __example1__ |
13 | foobar[% test_var %] |
14 | __example2__ |
15 | bazquux |