moved shit to trunk

1 files changed, 44 insertions, 0 deletions

diff --git a/lib/Reaction/UI/LayoutSet/TT.pm b/lib/Reaction/UI/LayoutSet/TT.pm
new file mode 100644
index 0000000..72d3fad
--- /dev/null
+++ b/lib/Reaction/UI/LayoutSet/TT.pm
@@ -0,0 +1,44 @@
+package Reaction::UI::LayoutSet::TT;
+
+use Reaction::Class;
+use aliased 'Reaction::UI::LayoutSet';
+use aliased 'Template::View';
+
+class TT is LayoutSet, which {
+
+  has 'tt_view' => (is => 'rw', isa => View, lazy_fail => 1);
+
+  implements 'BUILD' => as {
+    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));
+  };
+
+  implements '_build_tt_view' => as {
+    my ($self, $args) = @_;
+    my $tt_object = $args->{tt_object}
+      || confess "tt_object not provided to new()";
+    my $tt_args = { data => {} };
+    my $name = $self->name;
+    my $fragments = $self->fragments;
+    my $tt_source = qq{[% VIEW ${name};\n\n}.
+                    join("\n\n",
+                      map {
+                        qq{BLOCK $_; -%]\n}.$fragments->{$_}.qq{\n[% END;};
+                      } keys %$fragments
+                   ).qq{\nEND; # End view\ndata.view = ${name};\n %]};
+    $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};
+  };
+
+}; 
+
+1;