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

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