trunk/lib/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	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( id => 1 );
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;