lib/Strix/View.pm

package Strix::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 Strix::View;
2
3	use strict;
4	use warnings;
5
6	use Template::Declare::Tags; # defaults to 'HTML'
7	use base 'Template::Declare';
8	use Data::Dump qw/dump/;
9
10	template 'user' => sub {
11	my ( $self, $user ) = @_;
12	p {'Hello, world wide web!'}
13	pre {
14	{ class is 'debug' };
15	outs( dump( $user ) );
16	}
17	};
18
19	1;