lib/Frey/View.pm

package 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( id => 1 );

template user => sub {
        html {
                head {}
                body {
                        p {'Hello, world wide web!'}
                        pre {
                                outs( dump( $user ) );
                        }
                }
        }
};

1;
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			use Strix::User;
12	dpavlin	8	my $user = Strix::User->new( id => 1 );
13	dpavlin	2
14			template user => sub {
15			html {
16			head {}
17			body {
18			p {'Hello, world wide web!'}
19			pre {
20	dpavlin	8	outs( dump( $user ) );
21	dpavlin	2	}
22			}
23			}
24			};
25
26			1;