#!/usr/bin/perl
package MyApp::Templates;
use strict;
use warnings;
use Template::Declare::Tags;
use base 'Template::Declare';
template inner => sub {
my ($self, $arg) = @_;
div { "inner: $arg" }
};
template outer => sub {
my ($self, $arg) = @_;
show('inner', uc $arg);
div { "outer: $arg" }
};
template add => sub {
my ($self, $a, $b) = @_;
outs "$a + $b";
};
template host => sub {
my $self = shift;
show('add', 3, 7);
};
package main;
use strict;
use warnings;
use Test::More tests => 9;
use Template::Declare;
use Template::Declare::Tags;
Template::Declare->init(dispatch_to => ['MyApp::Templates']);
my $out = Template::Declare->show('inner', 'inside');
like($out, qr/inner: inside/);
is(show('inner', 'inside'), $out, 'show and TD->show are the same');
$out = Template::Declare->show('outer', 'xyzzy');
like($out, qr/outer: xyzzy/);
like($out, qr/inner: XYZZY/);
is(show('outer', 'xyzzy'), $out, 'show and TD->show are the same');
$out = Template::Declare->show('add', '32', '56');
is($out, '32 + 56');
is(show('add', '32', '56'), $out, 'show and TD->show are the same');
$out = Template::Declare->show('host');
is($out, '3 + 7');
is(show('host'), $out, 'show and TD->show are the same');