From bb3ff3e1f924d530b3bfdf192849b5ac1b9aa5b2 Mon Sep 17 00:00:00 2001
From: "mascip (Pierre Masci)" <piemas25+git@gmail.com>
Date: Mon, 9 Dec 2013 13:22:21 +0000
Subject: template_params dependency, to send parameters to the template

---
 lib/OX/View/TT.pm                         | 30 ++++++++--
 t/array_parameter.t                       | 92 +++++++++++++++++++++++++++++++
 t/data/array_parameter/templates/index.tt |  8 +++
 3 files changed, 124 insertions(+), 6 deletions(-)
 create mode 100644 t/array_parameter.t
 create mode 100644 t/data/array_parameter/templates/index.tt

diff --git a/lib/OX/View/TT.pm b/lib/OX/View/TT.pm
index 5e11579..9f8697e 100644
--- a/lib/OX/View/TT.pm
+++ b/lib/OX/View/TT.pm
@@ -10,17 +10,28 @@ use Template;
   package MyApp;
   use OX;
 
+  has 'template_params' => (
+      block => sub {
+          my $s = shift;
+          return {
+              some_scalar => 'value',
+              some_array => ['one', 'two'],
+          };
+      },
+  );
+
+ 
+
   has view => (
       is           => 'ro',
       isa          => 'OX::View::TT',
-      dependencies => ['template_root'],
+      dependencies => ['template_root', 'template_params'],
   );
 
 =head1 DESCRIPTION
 
 This is a very thin wrapper around L<Template> which exposes some OX
-functionality to your template files. Templates rendered with this class will
-have access to these additional variables:
+functionality to your template files. It can be passed a template_params dependency, containing variables that will be passed to the template. Templates rendered with this class will have access to these additional variables:
 
 =over 4
 
@@ -69,9 +80,16 @@ has 'tt' => (
     }
 );
 
-sub _build_template_params {
+has template_params => (
+    is => 'ro',
+    isa => 'HashRef',
+    default => sub { {} },
+);
+
+sub _get_all_template_params {
     my ($self, $r, $params) = @_;
     return +{
+        %{ $self->template_params },
         base    => $r->script_name,
         uri_for => sub { $r->uri_for(@_) },
         m       => $r->mapping,
@@ -92,7 +110,7 @@ sub render {
     my $out = '';
     $self->tt->process(
         $template,
-        $self->_build_template_params( $r, $params ),
+        $self->_get_all_template_params( $r, $params ),
         \$out
     ) || confess $self->tt->error;
     $out;
@@ -116,7 +134,7 @@ sub template {
     confess("Must supply a 'template' parameter")
         unless exists $params{template};
 
-    return $self->render($r, $params{template});
+    return $self->render($r, $params{template}, \%params);
 }
 
 __PACKAGE__->meta->make_immutable;
diff --git a/t/array_parameter.t b/t/array_parameter.t
new file mode 100644
index 0000000..22533c2
--- /dev/null
+++ b/t/array_parameter.t
@@ -0,0 +1,92 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+use Plack::Test;
+use FindBin;
+
+use HTTP::Request::Common;
+use Path::Class ();
+
+{
+    package Foo::Controller;
+    use Moose;
+
+    has view => (
+        is       => 'ro',
+        isa      => 'OX::View::TT',
+        required => 1,
+        handles  => ['render'],
+    );
+
+    our $AUTOLOAD;
+    sub AUTOLOAD {
+        my $self = shift;
+        my ($r) = @_;
+        (my $template = $AUTOLOAD) =~ s/.*:://;
+        $template .= '.tt';
+        $self->render($r, $template, $r->mapping);
+    }
+    sub can { 1 }
+}
+
+{
+    package Foo;
+    use OX;
+
+    has template_root => (
+        is    => 'ro',
+        isa   => 'Str',
+        block => sub {
+            Path::Class::dir($FindBin::Bin)->subdir('data', 'array_parameter', 'templates')->stringify
+        },
+    );
+
+    has 'template_params' => (
+        block => sub { 
+            my $s = shift;
+            return { 
+                some_scalar => 'scalar',
+                some_array => ['one', 'two'],
+                other_array => ['four', 'five'],
+            };
+        },
+    );
+
+    has view => (
+        is           => 'ro',
+        isa          => 'OX::View::TT',
+        dependencies => ['template_root', 'template_params'],
+    );
+
+    has root => (
+        is           => 'ro',
+        isa          => 'Foo::Controller',
+        dependencies => ['view'],
+    );
+
+    router as {
+        route '/' => 'root.index', (
+            content => 'Hello world',
+        );
+    };
+}
+
+my $foo = Foo->new;
+my $view = $foo->view;
+isa_ok($view, 'OX::View::TT');
+isa_ok($view->tt, 'Template');
+
+test_psgi
+    app => $foo->to_app,
+    client => sub {
+        my $cb = shift;
+
+        {
+            my $res = $cb->(GET 'http://localhost/');
+            is($res->code, 200, "right code");
+            is($res->content, "<b>Hello world</b>\n<p>scalar</p>\n\n<span>one</span>\n\n<span>two</span>\n\n\n<span>four</span>\n\n<span>five</span>\n\n", "array parameter was passed");
+        }
+    };
+
+done_testing;
diff --git a/t/data/array_parameter/templates/index.tt b/t/data/array_parameter/templates/index.tt
new file mode 100644
index 0000000..5454d04
--- /dev/null
+++ b/t/data/array_parameter/templates/index.tt
@@ -0,0 +1,8 @@
+<b>[% content %]</b>
+<p>[% some_scalar %]</p>
+[% FOREACH elem IN  some_array %]
+<span>[% elem %]</span>
+[% END %]
+[% FOREACH elem IN  other_array %]
+<span>[% elem %]</span>
+[% END %]
-- 
cgit v1.2.3