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	dpavlin	21	package Frey::View;
2	dpavlin	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	dpavlin	19	template status => sub {
11			my ( $self ) = @_;
12			p { 'Welcome to Frey' }
13	dpavlin	23	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	dpavlin	10	pre {
34	dpavlin	19	{ class is 'debug' }
35			outs dump( Template::Declare->templates )
36	dpavlin	2	}
37			};
38
39	dpavlin	23	template 'refresh_modules' => sub {
40			Module::Refresh->refresh;
41			p { 'Modules refreshed' }
42			};
43
44	dpavlin	2	1;