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/;

template user => sub {
        my ( $self, $user ) = @_;
        p {'Hello, world wide web!'}
        pre {
                { class is 'debug' };
                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			template user => sub {
12	dpavlin	10	my ( $self, $user ) = @_;
13			p {'Hello, world wide web!'}
14			pre {
15	dpavlin	14	{ class is 'debug' };
16	dpavlin	10	outs( dump( $user ) );
17	dpavlin	2	}
18			};
19
20			1;