--- trunk/lib/View.pm 2008/06/28 11:49:35 2 +++ trunk/lib/Frey/View.pm 2008/06/29 13:12:59 21 @@ -1,25 +1,19 @@ -package View; +package Frey::View; use strict; use warnings; use Template::Declare::Tags; # defaults to 'HTML' use base 'Template::Declare'; - use Data::Dump qw/dump/; -use Strix::User; -my $user = Strix::User->new( nick => 'dpavlin' ); - -template user => sub { - html { - head {} - body { - p {'Hello, world wide web!'} - pre { - outs dump( $user ); - } - } +template status => sub { + my ( $self ) = @_; + p { 'Welcome to Frey' } + h1 { 'Available templates' } + pre { + { class is 'debug' } + outs dump( Template::Declare->templates ) } };