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 status => sub {
        my ( $self ) = @_;
        p { 'Welcome to Frey' }
        h1 { 'Available templates' }
        pre {
                { class is 'debug' }
                outs dump( Template::Declare->templates )
        }
};

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	use Data::Dump qw/dump/;
9
10	template status => sub {
11	my ( $self ) = @_;
12	p { 'Welcome to Frey' }
13	h1 { 'Available templates' }
14	pre {
15	{ class is 'debug' }
16	outs dump( Template::Declare->templates )
17	}
18	};
19
20	1;