5 |
|
|
6 |
use Template::Declare::Tags; # defaults to 'HTML' |
use Template::Declare::Tags; # defaults to 'HTML' |
7 |
use base 'Template::Declare'; |
use base 'Template::Declare'; |
|
|
|
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
|
|
10 |
template user => sub { |
template status => sub { |
11 |
my ( $self, $user ) = @_; |
my ( $self ) = @_; |
12 |
p {'Hello, world wide web!'} |
p { 'Welcome to Frey' } |
13 |
|
h1 { 'Available templates' } |
14 |
pre { |
pre { |
15 |
{ class is 'debug' }; |
{ class is 'debug' } |
16 |
outs( dump( $user ) ); |
outs dump( Template::Declare->templates ) |
17 |
} |
} |
18 |
}; |
}; |
19 |
|
|