--- 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 {