do not include .git directory

[catagits/Reaction.git] / lib / Reaction / UI / LayoutSet / TT.pm

package Reaction::UI::LayoutSet::TT;

use Reaction::Class;
use aliased 'Reaction::UI::LayoutSet';
use aliased 'Template::View';

use namespace::clean -except => [ qw(meta) ];
extends LayoutSet;



has 'tt_view' => (is => 'rw', isa => View, lazy_fail => 1);
sub BUILD {
  my ($self, $args) = @_;

  # Do this at build time rather than on demand so any exception if it
  # goes wrong gets thrown sometime sensible

  $self->tt_view($self->_build_tt_view($args));
};
sub _build_tt_view {
  my ($self, $args) = @_;
  my $tt_object = $args->{tt_object}
    || confess "tt_object not provided to new()";
  my $tt_args = { data => {} };
  my $name = $self->name;
  $name =~ s/\//__/g; #slashes are not happy here...
  my $layouts = $self->layouts;

  my $tt_source = join("\n", "[%- VIEW ${name};",
    (map {("BLOCK $_; -%]" . $layouts->{$_} ."[%- END;") } keys %$layouts),
      "END; # End view\ndata.view = ${name}; -%]" );

  $tt_object->process(\$tt_source, $tt_args)
    || confess "Template processing error: ".$tt_object->error
              ." processing:\n${tt_source}";
  confess "View template processed but no view object found"
         ." after processing:\n${tt_source}"
    unless $tt_args->{data}{view};
  return $tt_args->{data}{view};
};

__PACKAGE__->meta->make_immutable;


1;