--- trunk/lib/HTML.pm 2008/06/29 12:55:39 19
+++ trunk/lib/HTML.pm 2008/06/29 13:12:59 21
@@ -8,9 +8,21 @@
use Carp qw/confess/;
# FIXME
-use View;
-use Strix::View;
-use Frey::REST;
+
+our @view_classes = qw(
+ Frey::View
+ Frey::REST
+ Strix::View
+);
+
+warn "Using view classes ", dump( @view_classes );
+
+foreach ( @view_classes ) {
+ my $path = $_;
+ $path =~ s!::!/!g;
+ $path .= '.pm';
+ require $path or warn "Can't require $_ from $path: $!";
+}
warn "available templates = ",dump( Template::Declare->templates );
@@ -18,7 +30,7 @@
use Template::Declare;
use Template::Declare::Tags; # defaults to 'HTML'
-Template::Declare->init( roots => ['HTML','View'], around_template => sub {
+Template::Declare->init( roots => \@view_classes, around_template => sub {
my ($orig, $path, $args, $code) = @_;
my $t = time;
html {