lib/Frey/HTML.pm

package HTML;

use strict;
use warnings;

use Time::HiRes qw/time/;
use Data::Dump qw/dump/;
use Carp qw/confess/;

# FIXME
use View;
use Strix::View;
use Frey::REST;

warn "available templates = ",dump( Template::Declare->templates );

our @javascript;

use Template::Declare;
use Template::Declare::Tags; # defaults to 'HTML'
Template::Declare->init( roots => ['HTML','View'], around_template => sub {
        my ($orig, $path, $args, $code) = @_;
        my $t = time;
        html {
                head {
                        title { $path }
                        link {
                                { rel is 'stylesheet' }
                                { href is 'static/app.css' }
                                { type is 'text/css' }
                                { media is 'screen' }
                        };
                        foreach my $js ( @javascript ) {
                                script { 
                                        { type is 'text/javascript' }
                                        { src is $js }
                                }
                        }
                }
                body {
                        $orig->();
                }
        }
        warn "TEMPLATE $path ",dump($args),sprintf(" in %.4fs\n",time - $t);
});

sub view {
        my $self = shift;
        return Template::Declare->show( @_ );
}

sub add_javascript {
        my $self = shift;
        my $js = shift or confess "no JavaScript path";
#       return unless -e $js; # FIXME
        warn "Added javascript $js\n";
        push @javascript, $js;
}
1	package HTML;
2
3	use strict;
4	use warnings;
5
6	use Time::HiRes qw/time/;
7	use Data::Dump qw/dump/;
8	use Carp qw/confess/;
9
10	# FIXME
11	use View;
12	use Strix::View;
13	use Frey::REST;
14
15	warn "available templates = ",dump( Template::Declare->templates );
16
17	our @javascript;
18
19	use Template::Declare;
20	use Template::Declare::Tags; # defaults to 'HTML'
21	Template::Declare->init( roots => ['HTML','View'], around_template => sub {
22	my ($orig, $path, $args, $code) = @_;
23	my $t = time;
24	html {
25	head {
26	title { $path }
27	link {
28	{ rel is 'stylesheet' }
29	{ href is 'static/app.css' }
30	{ type is 'text/css' }
31	{ media is 'screen' }
32	};
33	foreach my $js ( @javascript ) {
34	script {
35	{ type is 'text/javascript' }
36	{ src is $js }
37	}
38	}
39	}
40	body {
41	$orig->();
42	}
43	}
44	warn "TEMPLATE $path ",dump($args),sprintf(" in %.4fs\n",time - $t);
45	});
46
47	sub view {
48	my $self = shift;
49	return Template::Declare->show( @_ );
50	}
51
52	sub add_javascript {
53	my $self = shift;
54	my $js = shift or confess "no JavaScript path";
55	# return unless -e $js; # FIXME
56	warn "Added javascript $js\n";
57	push @javascript, $js;
58	}