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( nick => 'dpavlin' );

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