trunk/lib/HTML.pm

package HTML;

use strict;
use warnings;

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

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