Parent Directory | Revision Log
cpeanup and spit html generation into own package - time template generation - wrap pages in html/head/body - cleanup server and move logic there
1 | dpavlin | 2 | package View; |
2 | |||
3 | use strict; | ||
4 | use warnings; | ||
5 | |||
6 | use Template::Declare::Tags; # defaults to 'HTML' | ||
7 | use base 'Template::Declare'; | ||
8 | |||
9 | use Data::Dump qw/dump/; | ||
10 | |||
11 | template user => sub { | ||
12 | dpavlin | 10 | my ( $self, $user ) = @_; |
13 | p {'Hello, world wide web!'} | ||
14 | pre { | ||
15 | outs( dump( $user ) ); | ||
16 | dpavlin | 2 | } |
17 | }; | ||
18 | |||
19 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |