allow list, create, and delete_all to act on a user-provided collection stored in...

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

diff --git a/lib/Reaction/UI/LayoutSet/TT.pm b/lib/Reaction/UI/LayoutSet/TT.pm
index 2046c41..fbdf569 100644 (file)
--- a/lib/Reaction/UI/LayoutSet/TT.pm
+++ b/lib/Reaction/UI/LayoutSet/TT.pm
@@ -4,44 +4,43 @@ 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_file_extension => as { 'tt' };
-
-  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;
-    $name =~ s/\//__/g; #slashes are not happy here...
-    my $layouts = $self->layouts;
-    my $tt_source = qq{[% VIEW ${name};\n\n}.
-                    join("\n\n",
-                      map {
-                        qq{BLOCK $_; -%]\n}.$layouts->{$_}.qq{\n[% END;};
-                      } keys %$layouts
-                   ).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};
-  };
+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;