lib/Frey/View.pm

package Frey::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' };
        my $templates = Template::Declare->templates;
        warn "templates = ",dump( $templates );
        ul {
                foreach my $pkg ( keys %$templates ) {
                        li {
                                outs $pkg;
                                ul {
                                        foreach my $template ( @{ $templates->{$pkg} } ) {
                                                li {
                                                        a {
                                                                { href is "/$pkg/$template" }
                                                                $template
                                                        }
                                                }
                                        }
                                }
                        }
                }
        }
        pre {
                { class is 'debug' }
                outs dump( Template::Declare->templates )
        }
};

template 'refresh_modules' => sub {
        Module::Refresh->refresh;
        p { 'Modules refreshed' }
};

1;
1	package Frey::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	my $templates = Template::Declare->templates;
15	warn "templates = ",dump( $templates );
16	ul {
17	foreach my $pkg ( keys %$templates ) {
18	li {
19	outs $pkg;
20	ul {
21	foreach my $template ( @{ $templates->{$pkg} } ) {
22	li {
23	a {
24	{ href is "/$pkg/$template" }
25	$template
26	}
27	}
28	}
29	}
30	}
31	}
32	}
33	pre {
34	{ class is 'debug' }
35	outs dump( Template::Declare->templates )
36	}
37	};
38
39	template 'refresh_modules' => sub {
40	Module::Refresh->refresh;
41	p { 'Modules refreshed' }
42	};
43
44	1;