Compare commits
60 Commits
release/1.
...
release/1.
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
fb396704bf | ||
|
|
1d9ea654e9 | ||
|
|
3ec7366d6e | ||
|
|
a5e72c7526 | ||
|
|
6146b1f2f5 | ||
|
|
5116c191f3 | ||
|
|
5828f878d8 | ||
|
|
f4beaf9864 | ||
|
|
ce9e1b955e | ||
|
|
37ee2ee753 | ||
|
|
cdc31b07be | ||
|
|
57b9c39b15 | ||
|
|
194a9219e9 | ||
|
|
5505c5d82a | ||
|
|
daceb5876f | ||
|
|
54d13555ef | ||
|
|
d6d98cc533 | ||
|
|
51af0a7893 | ||
|
|
b48b4274db | ||
|
|
e64ce4c484 | ||
|
|
af61eff483 | ||
|
|
cf390c5456 | ||
|
|
20d795cb51 | ||
|
|
7455ae1be8 | ||
|
|
870d195761 | ||
|
|
b21db5cf22 | ||
|
|
24990483e5 | ||
|
|
4f5d3a0951 | ||
|
|
a72ec0e750 | ||
|
|
2956335d9e | ||
|
|
7d1ac4eecd | ||
|
|
28ae3d62f8 | ||
|
|
944fa2ecae | ||
|
|
3364b8a05a | ||
|
|
6047db4ef2 | ||
|
|
b37a7639d3 | ||
|
|
511ee4463b | ||
|
|
bdc9f56452 | ||
|
|
618adbd774 | ||
|
|
c0b649d55f | ||
|
|
1e1a9ab835 | ||
|
|
96d31d45a0 | ||
|
|
bbfab8db4e | ||
|
|
92bb64406b | ||
|
|
989ea57cf9 | ||
|
|
b3c64c75d4 | ||
|
|
a89a9a4344 | ||
|
|
78c9d24bc7 | ||
|
|
859ec53953 | ||
|
|
0b0acd510e | ||
|
|
0527eee24a | ||
|
|
bd48aa5066 | ||
|
|
77b9531fae | ||
|
|
248f13717a | ||
|
|
9f20c780b8 | ||
|
|
c7c249b51f | ||
|
|
dae8329981 | ||
|
|
5e650027c7 | ||
|
|
698fc48b58 | ||
|
|
49075ebe44 |
1
.gitignore
vendored
1
.gitignore
vendored
@@ -6,6 +6,7 @@ _build*
|
||||
pm_to_blib*
|
||||
*.tar.gz
|
||||
.lwpcookies
|
||||
Mojolicious-Plugin-TtRenderer-*
|
||||
MojoX-Renderer-TT-*
|
||||
cover_db
|
||||
*~
|
||||
|
||||
8
.travis.yml
Normal file
8
.travis.yml
Normal file
@@ -0,0 +1,8 @@
|
||||
language: perl
|
||||
install:
|
||||
- cpanm Mojolicious Template
|
||||
script: HARNESS_IS_VERBOSE=1 prove -v -Ilib t
|
||||
perl:
|
||||
- "5.14"
|
||||
- "5.12"
|
||||
- "5.10"
|
||||
54
Changes
54
Changes
@@ -1,6 +1,58 @@
|
||||
Revision history for MojoX-Renderer-TT
|
||||
Revision history for Mojolicious::Plugin::TtRenderer
|
||||
|
||||
{{$NEXT}}
|
||||
- silenced a few annoying warnings during test
|
||||
- use temp directory for COMPILE_DIR in tests to avoid failures if the
|
||||
default compile directory already exists and is owned by someone else.
|
||||
|
||||
1.31 December 26, 2012
|
||||
- Set locale "C" in tests that rely on it
|
||||
|
||||
1.30 December 22, 2012
|
||||
- Don't rely on English locale in the test t/tt_plugin_lite_app.t
|
||||
|
||||
1.29 December 18, 2012
|
||||
- support multiple renderer paths
|
||||
|
||||
1.28 October 11, 2012
|
||||
- specify minimum perl version
|
||||
|
||||
1.27 October 2, 2012
|
||||
- documentation fixes and updates.
|
||||
|
||||
1.26 August 31, 2012
|
||||
- Windows compatability with Cwd::abs_path
|
||||
|
||||
1.25 August 25, 2012
|
||||
- Return 0 on not found, die on error (GH#30)
|
||||
|
||||
1.24 August 23, 2012
|
||||
- Compatibility with Mojolicious 3.33+
|
||||
|
||||
1.23 August 23, 2012
|
||||
- Use die instead of render_exception (GH#29)
|
||||
|
||||
1.22 August 21, 2012
|
||||
- Compatibility with Mojolicious 3.05+ (GH#24)
|
||||
- Avoid deep recursion when exception template dies (GH#25,GH26)
|
||||
- Fixed test failures (GH#27,GH#28)
|
||||
|
||||
1.21 June 5, 2012
|
||||
- Fixed double TT rendering on error (Matthias Bethke (GH#21))
|
||||
- Cache templates in tmpdir by default (Marcus Ramberg)
|
||||
- Require Mojolicious 2.51 to avoid memory leaks (GH#19)
|
||||
- Document the 'c' stash variable (RT#70866, Matthias Bethke)
|
||||
- Fix memory leaks, add tests for them (GH#18, Magnus Holm)
|
||||
- Use app->renderer->paths to find template directories (GH#17)
|
||||
|
||||
1.20 August 1, 2011
|
||||
- Drop use of MojoX namespace for Mojolicious::Plugin::TtRenderer::
|
||||
(GH#12, Cosimo Streppone)
|
||||
|
||||
1.13 June 7, 2011
|
||||
- Compatibility with Mojolicious 1.3+
|
||||
|
||||
1.12 February 28, 2011
|
||||
- Inline wrappers and includes now work on Windows
|
||||
(GH#13, Christiaan Kras)
|
||||
|
||||
|
||||
@@ -9,6 +9,7 @@
|
||||
|
||||
# Avoid Makemaker generated and utility files.
|
||||
\bMANIFEST\.bak
|
||||
\bMYMETA.*
|
||||
\bMakefile$
|
||||
\bblib/
|
||||
\bMakeMaker-\d
|
||||
@@ -41,6 +42,3 @@ t/tmp/ctpl
|
||||
\.t\.log$
|
||||
|
||||
\.prove$
|
||||
|
||||
# XS shit
|
||||
\.(?:bs|c|o)$
|
||||
|
||||
89
README.pod
Normal file
89
README.pod
Normal file
@@ -0,0 +1,89 @@
|
||||
=encoding utf-8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Mojolicious::Plugin::TtRenderer - Template Renderer Plugin
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
# Mojolicious
|
||||
$self->plugin('tt_renderer');
|
||||
$self->plugin(tt_renderer => {template_options => {FILTERS => [ ... ]}});
|
||||
|
||||
# Mojolicious::Lite
|
||||
plugin 'tt_renderer';
|
||||
plugin tt_renderer => {template_options => {FILTERS => [ ... ]}};
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
L<Mojolicous::Plugin::TtRenderer> is a simple loader for
|
||||
L<Mojolicious::Plugin::TtRenderer::Engine>.
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
L<Mojolicious::Plugin::TtRenderer> inherits all methods from
|
||||
L<Mojolicious::Plugin> and implements the following new ones.
|
||||
|
||||
=head2 C<register>
|
||||
|
||||
$plugin->register;
|
||||
|
||||
Register renderer in L<Mojolicious> application.
|
||||
|
||||
=head1 EXTRA STASH VARIABLES
|
||||
|
||||
The current controller instance can be accessed as C<c>.
|
||||
|
||||
[% c.req.headers.host %]
|
||||
|
||||
=head1 SEE ALSO
|
||||
|
||||
L<Mojolicious::Plugin::TtRenderer::Engine>, L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicious.org>.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Current maintainer: Graham Ollis C<< <plicease@cpan.org> >>
|
||||
|
||||
Original author: Ask Bjørn Hansen, C<< <ask at develooper.com> >>
|
||||
|
||||
=head1 BUGS
|
||||
|
||||
Please report any bugs or feature requests to the project's github issue tracker
|
||||
L<https://github.com/abh/mojox-renderer-tt/issues?state=open>.
|
||||
|
||||
=head1 SUPPORT
|
||||
|
||||
You can find documentation for this module with the perldoc command.
|
||||
|
||||
perldoc Mojolicious::Plugin::TtRenderer
|
||||
|
||||
You can also look for information at:
|
||||
|
||||
=over 4
|
||||
|
||||
=item * git repository
|
||||
|
||||
L<http://git.develooper.com/?p=MojoX-Renderer-TT.git;a=summary>,
|
||||
L<git://git.develooper.com/MojoX-Renderer-TT.git>
|
||||
|
||||
L<http://github.com/abh/mojox-renderer-tt/>
|
||||
|
||||
=item * CPAN Ratings
|
||||
|
||||
L<http://cpanratings.perl.org/d/MojoX-Renderer-TT>
|
||||
|
||||
=item * Search CPAN
|
||||
|
||||
L<http://search.cpan.org/dist/MojoX-Renderer-TT/>
|
||||
|
||||
=back
|
||||
|
||||
=head1 COPYRIGHT & LICENSE
|
||||
|
||||
Copyright 2008-2010 Ask Bjørn Hansen, all rights reserved.
|
||||
|
||||
Copyright 2012 Graham Ollis.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify it
|
||||
under the same terms as Perl itself.
|
||||
|
||||
23
dist.ini
23
dist.ini
@@ -1,12 +1,12 @@
|
||||
name = MojoX-Renderer-TT
|
||||
author = Ask Bjørn Hansen <ask@develooper.com>
|
||||
name = Mojolicious-Plugin-TtRenderer
|
||||
author = Graham Ollis <plicease@cpan.org>
|
||||
license = Perl_5
|
||||
|
||||
copyright_holder = Ask Bjørn Hansen
|
||||
# copyright_year = 2009
|
||||
|
||||
[Prereqs]
|
||||
Mojolicious = 1.01
|
||||
Mojolicious = 3.33
|
||||
Template = 2.18
|
||||
|
||||
[Prereqs / TestRequires ]
|
||||
@@ -35,14 +35,23 @@ version_regexp = ^release/(.*)
|
||||
[PkgVersion]
|
||||
|
||||
[CheckChangeLog]
|
||||
[CompileTests]
|
||||
[DistManifestTests]
|
||||
[Test::Compile]
|
||||
[HasVersionTests]
|
||||
[MetaTests]
|
||||
[ReadmeFromPod]
|
||||
[PodCoverageTests]
|
||||
|
||||
[ReadmeAnyFromPod]
|
||||
type = text
|
||||
filename = README
|
||||
location = build
|
||||
|
||||
[ReadmeAnyFromPod / ReadMePodInRoot]
|
||||
type = pod
|
||||
filename = README.pod
|
||||
location = root
|
||||
|
||||
[Manifest]
|
||||
|
||||
[NextRelease]
|
||||
format = %-7v %{MMMM d, yyyy}d
|
||||
|
||||
[MinimumPerl]
|
||||
|
||||
@@ -2,27 +2,30 @@ package Mojolicious::Plugin::TtRenderer;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
our $VERSION = '0.01';
|
||||
use v5.10;
|
||||
|
||||
use base 'Mojolicious::Plugin';
|
||||
|
||||
use MojoX::Renderer::TT;
|
||||
use Mojolicious::Plugin::TtRenderer::Engine;
|
||||
|
||||
sub register {
|
||||
my ($self, $app, $args) = @_;
|
||||
|
||||
$args ||= {};
|
||||
|
||||
my $tt = MojoX::Renderer::TT->build(%$args, app => $app);
|
||||
my $tt = Mojolicious::Plugin::TtRenderer::Engine->build(%$args, app => $app);
|
||||
|
||||
# Add "tt" handler
|
||||
$app->renderer->add_handler(tt => $tt);
|
||||
}
|
||||
|
||||
$Mojolicious::Plugin::TtRenderer::VERSION //= ('devel');
|
||||
|
||||
1;
|
||||
__END__
|
||||
|
||||
=encoding utf-8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Mojolicious::Plugin::TtRenderer - Template Renderer Plugin
|
||||
@@ -39,7 +42,8 @@ Mojolicious::Plugin::TtRenderer - Template Renderer Plugin
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
L<Mojolicous::Plugin::TtRenderer> is a simple loader for L<MojoX::Renderer::TT>.
|
||||
L<Mojolicous::Plugin::TtRenderer> is a simple loader for
|
||||
L<Mojolicious::Plugin::TtRenderer::Engine>.
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
@@ -52,8 +56,61 @@ L<Mojolicious::Plugin> and implements the following new ones.
|
||||
|
||||
Register renderer in L<Mojolicious> application.
|
||||
|
||||
=head1 EXTRA STASH VARIABLES
|
||||
|
||||
The current controller instance can be accessed as C<c>.
|
||||
|
||||
[% c.req.headers.host %]
|
||||
|
||||
=head1 SEE ALSO
|
||||
|
||||
L<MojoX::Renderer::TT>, L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicious.org>.
|
||||
L<Mojolicious::Plugin::TtRenderer::Engine>, L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicious.org>.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Current maintainer: Graham Ollis C<< <plicease@cpan.org> >>
|
||||
|
||||
Original author: Ask Bjørn Hansen, C<< <ask at develooper.com> >>
|
||||
|
||||
=head1 BUGS
|
||||
|
||||
Please report any bugs or feature requests to the project's github issue tracker
|
||||
L<https://github.com/abh/mojox-renderer-tt/issues?state=open>.
|
||||
|
||||
=head1 SUPPORT
|
||||
|
||||
You can find documentation for this module with the perldoc command.
|
||||
|
||||
perldoc Mojolicious::Plugin::TtRenderer
|
||||
|
||||
You can also look for information at:
|
||||
|
||||
=over 4
|
||||
|
||||
=item * git repository
|
||||
|
||||
L<http://git.develooper.com/?p=MojoX-Renderer-TT.git;a=summary>,
|
||||
L<git://git.develooper.com/MojoX-Renderer-TT.git>
|
||||
|
||||
L<http://github.com/abh/mojox-renderer-tt/>
|
||||
|
||||
=item * CPAN Ratings
|
||||
|
||||
L<http://cpanratings.perl.org/d/MojoX-Renderer-TT>
|
||||
|
||||
=item * Search CPAN
|
||||
|
||||
L<http://search.cpan.org/dist/MojoX-Renderer-TT/>
|
||||
|
||||
=back
|
||||
|
||||
=head1 COPYRIGHT & LICENSE
|
||||
|
||||
Copyright 2008-2010 Ask Bjørn Hansen, all rights reserved.
|
||||
|
||||
Copyright 2012 Graham Ollis.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify it
|
||||
under the same terms as Perl itself.
|
||||
|
||||
=cut
|
||||
|
||||
@@ -1,19 +1,23 @@
|
||||
package MojoX::Renderer::TT;
|
||||
package Mojolicious::Plugin::TtRenderer::Engine;
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
use v5.10;
|
||||
|
||||
use base 'Mojo::Base';
|
||||
|
||||
use Carp ();
|
||||
use File::Spec ();
|
||||
use Mojo::ByteStream 'b';
|
||||
use Template ();
|
||||
use Cwd qw/abs_path/;
|
||||
use Scalar::Util 'weaken';
|
||||
|
||||
__PACKAGE__->attr('tt');
|
||||
|
||||
sub build {
|
||||
my $self = shift->SUPER::new(@_);
|
||||
weaken($self->{app});
|
||||
$self->_init(@_);
|
||||
return sub { $self->_render(@_) }
|
||||
}
|
||||
@@ -24,15 +28,25 @@ sub _init {
|
||||
|
||||
#$Template::Parser::DEBUG = 1;
|
||||
|
||||
my $dir;
|
||||
my $app = delete $args{mojo} || delete $args{app};
|
||||
if($dir=$args{cache_dir}) {
|
||||
|
||||
my $dir = $app && $app->home->rel_dir('tmp/ctpl');
|
||||
if($app && substr($dir,0,1) ne '/') {
|
||||
$dir=$app->home->rel_dir('tmp/ctpl');
|
||||
}
|
||||
}
|
||||
|
||||
# TODO
|
||||
# take and process options :-)
|
||||
|
||||
my @renderer_paths = $app ? map { abs_path($_) } grep { -d $_ } @{ $app->renderer->paths } : ();
|
||||
|
||||
my %config = (
|
||||
($app ? (INCLUDE_PATH => abs_path($app->home->rel_dir('templates'))) : ()),
|
||||
( @renderer_paths > 0
|
||||
? (INCLUDE_PATH => [@renderer_paths, 'templates'])
|
||||
: ()
|
||||
),
|
||||
COMPILE_EXT => '.ttc',
|
||||
COMPILE_DIR => ($dir || abs_path(File::Spec->tmpdir)),
|
||||
UNICODE => 1,
|
||||
@@ -43,7 +57,7 @@ sub _init {
|
||||
);
|
||||
|
||||
$config{LOAD_TEMPLATES} =
|
||||
[MojoX::Renderer::TT::Provider->new(%config, renderer => $app->renderer)]
|
||||
[Mojolicious::Plugin::TtRenderer::Provider->new(%config, renderer => $app->renderer)]
|
||||
unless $config{LOAD_TEMPLATES};
|
||||
|
||||
$self->tt(Template->new(\%config))
|
||||
@@ -64,36 +78,31 @@ sub _render {
|
||||
return unless $t;
|
||||
|
||||
|
||||
my $helper = MojoX::Renderer::TT::Helper->new(ctx => $c);
|
||||
my $helper = Mojolicious::Plugin::TtRenderer::Helper->new(ctx => $c);
|
||||
|
||||
# Purge previous result
|
||||
$$output = '';
|
||||
|
||||
my @params = ({%{$c->stash}, c => $c, h => $helper}, $output, {binmode => ':utf8'});
|
||||
$self->tt->{SERVICE}->{CONTEXT}->{LOAD_TEMPLATES}->[0]->ctx($c);
|
||||
my $provider = $self->tt->{SERVICE}->{CONTEXT}->{LOAD_TEMPLATES}->[0];
|
||||
$provider->options($options);
|
||||
$provider->ctx($c);
|
||||
$provider->not_found(0);
|
||||
|
||||
my $ok = $self->tt->process(defined $inline ? \$inline : $t, @params);
|
||||
|
||||
# Error
|
||||
unless ($ok) {
|
||||
return 0 if $provider->not_found;
|
||||
|
||||
my $e = Mojo::Exception->new(
|
||||
$self->tt->error.'',
|
||||
$self->tt->service->process(defined $inline ? \$inline : $t));
|
||||
$$output = '';
|
||||
$c->app->log->error(qq/Template error in "$t": $e/);
|
||||
$c->render_exception($e);
|
||||
$self->tt->error('');
|
||||
return 0;
|
||||
}
|
||||
# Error
|
||||
die $self->tt->error unless $ok;
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
1; # End of MojoX::Renderer::TT
|
||||
1; # End of Mojolicious::Plugin::TtRenderer::Engine
|
||||
|
||||
package
|
||||
MojoX::Renderer::TT::Helper;
|
||||
Mojolicious::Plugin::TtRenderer::Helper;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
@@ -123,12 +132,13 @@ sub AUTOLOAD {
|
||||
1;
|
||||
|
||||
package
|
||||
MojoX::Renderer::TT::Provider;
|
||||
Mojolicious::Plugin::TtRenderer::Provider;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use base 'Template::Provider';
|
||||
use Scalar::Util 'weaken';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
@@ -138,35 +148,55 @@ sub new {
|
||||
|
||||
my $self = $class->SUPER::new(%params);
|
||||
$self->renderer($renderer);
|
||||
weaken($self->{renderer});
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub renderer { @_ > 1 ? $_[0]->{renderer} = $_[1] : $_[0]->{renderer} }
|
||||
sub ctx { @_ > 1 ? $_[0]->{ctx} = $_[1] : $_[0]->{ctx} }
|
||||
sub options { @_ > 1 ? $_[0]->{options} = $_[1] : $_[0]->{options} }
|
||||
sub not_found { @_ > 1 ? $_[0]->{not_found} = $_[1] : $_[0]->{not_found} }
|
||||
|
||||
sub _template_modified {1}
|
||||
sub _template_modified {
|
||||
my($self, $template) = @_;
|
||||
return 1 if $self->SUPER::_template_modified($template);
|
||||
return $template =~ /^templates(?:\/|\\)/;
|
||||
}
|
||||
|
||||
sub _template_content {
|
||||
my $self = shift;
|
||||
my ($path) = @_;
|
||||
|
||||
my $options = delete $self->{options};
|
||||
|
||||
# Convert backslashes to forward slashes to make inline templates work on Windows
|
||||
$path =~ s/\\/\//g;
|
||||
my ($t) = ($path =~ m{templates\/(.*)$});
|
||||
|
||||
|
||||
if (-r $path) {
|
||||
return $self->SUPER::_template_content(@_);
|
||||
}
|
||||
|
||||
my $data;
|
||||
my $error = '';
|
||||
|
||||
# Try DATA section
|
||||
elsif (my $d = $self->renderer->get_inline_template($self->ctx, $t)) {
|
||||
return wantarray ? ($d, '', time) : $d;
|
||||
if(defined $options) {
|
||||
$data = $self->renderer->get_data_template($options);
|
||||
$self->not_found(1) unless defined $data;
|
||||
} else {
|
||||
my $loader = Mojo::Loader->new;
|
||||
foreach my $class (@{ $self->renderer->classes }) {
|
||||
$data = $loader->data($class, $t);
|
||||
last if $data;
|
||||
}
|
||||
}
|
||||
|
||||
my $data = '';
|
||||
my $error = "$path: not found";
|
||||
my $mod_date = time;
|
||||
return wantarray ? ($data, $error, $mod_date) : $data;
|
||||
unless($data) {
|
||||
$data = '';
|
||||
$error = "$path: not found";
|
||||
}
|
||||
return wantarray ? ($data, $error, time) : $data;
|
||||
}
|
||||
|
||||
1;
|
||||
@@ -177,7 +207,7 @@ __END__
|
||||
|
||||
=head1 NAME
|
||||
|
||||
MojoX::Renderer::TT - Template Toolkit renderer for Mojo
|
||||
Mojolicious::Plugin::TtRenderer::Engine - Template Toolkit renderer for Mojo
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
@@ -190,9 +220,9 @@ Add the handler:
|
||||
$self->plugin(tt_renderer => {template_options => {FILTERS => [ ... ]}});
|
||||
|
||||
# Or manually
|
||||
use MojoX::Renderer::TT;
|
||||
use Mojolicious::Plugin::TtRenderer::Engine;
|
||||
|
||||
my $tt = MojoX::Renderer::TT->build(
|
||||
my $tt = Mojolicious::Plugin::TtRenderer::Engine->build(
|
||||
mojo => $self,
|
||||
template_options => {
|
||||
PROCESS => 'tpl/wrapper',
|
||||
@@ -240,38 +270,41 @@ Supported parameters are
|
||||
|
||||
=item mojo
|
||||
C<build> currently uses a C<mojo> parameter pointing to the base class (Mojo).
|
||||
object. When used the INCLUDE_PATH will be set to
|
||||
object. When used the INCLUDE_PATH will be set to
|
||||
|
||||
=item template_options
|
||||
|
||||
A hash reference of options that are passed to Template->new().
|
||||
|
||||
=item cache_dir
|
||||
|
||||
Absolute or relative dir to your app home, to cache processed versions of your
|
||||
templates. Will default to a temp-dir if not set.
|
||||
|
||||
=back
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Ask Bjørn Hansen, C<< <ask at develooper.com> >>
|
||||
Current maintainer: Graham Ollis C<< <plicease@cpan.org> >>
|
||||
|
||||
Original author: Ask Bjørn Hansen, C<< <ask at develooper.com> >>
|
||||
|
||||
=head1 TODO
|
||||
|
||||
* Better support non-Mojolicious frameworks
|
||||
* Move the default template cache directory?
|
||||
* Better way to pass parameters to the templates? (stash)
|
||||
* More sophisticated default search path?
|
||||
|
||||
=head1 BUGS
|
||||
|
||||
Please report any bugs or feature requests to C<bug-mojox-renderer-tt at rt.cpan.org>,
|
||||
or through the web interface at
|
||||
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=MojoX-Renderer-TT>. I will be
|
||||
notified, and then you'll automatically be notified of progress on your bug as I
|
||||
make changes.
|
||||
Please report any bugs or feature requests to the project's github issue tracker
|
||||
L<https://github.com/abh/mojox-renderer-tt/issues?state=open>.
|
||||
|
||||
=head1 SUPPORT
|
||||
|
||||
You can find documentation for this module with the perldoc command.
|
||||
|
||||
perldoc MojoX::Renderer::TT
|
||||
perldoc Mojolicious::Plugin::TtRenderer::Engine
|
||||
|
||||
You can also look for information at:
|
||||
|
||||
@@ -284,10 +317,6 @@ L<git://git.develooper.com/MojoX-Renderer-TT.git>
|
||||
|
||||
L<http://github.com/abh/mojox-renderer-tt/>
|
||||
|
||||
=item * RT: CPAN's request tracker
|
||||
|
||||
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=MojoX-Renderer-TT>
|
||||
|
||||
=item * CPAN Ratings
|
||||
|
||||
L<http://cpanratings.perl.org/d/MojoX-Renderer-TT>
|
||||
@@ -298,13 +327,12 @@ L<http://search.cpan.org/dist/MojoX-Renderer-TT/>
|
||||
|
||||
=back
|
||||
|
||||
=head1 ACKNOWLEDGEMENTS
|
||||
|
||||
|
||||
=head1 COPYRIGHT & LICENSE
|
||||
|
||||
Copyright 2008-2010 Ask Bjørn Hansen, all rights reserved.
|
||||
|
||||
Copyright 2012 Graham Ollis.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify it
|
||||
under the same terms as Perl itself.
|
||||
|
||||
@@ -1,9 +1,9 @@
|
||||
#!perl
|
||||
|
||||
use Test::More tests => 1;
|
||||
use Test::More tests => 2;
|
||||
|
||||
BEGIN {
|
||||
use_ok( 'MojoX::Renderer::TT' );
|
||||
use_ok( 'Mojolicious::Plugin::TtRenderer' );
|
||||
use_ok( 'Mojolicious::Plugin::TtRenderer::Engine' );
|
||||
}
|
||||
|
||||
diag( "Testing MojoX::Renderer::TT $MojoX::Renderer::TT::VERSION, Perl $], $^X" );
|
||||
|
||||
58
t/deep_recursion.t
Normal file
58
t/deep_recursion.t
Normal file
@@ -0,0 +1,58 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
#BEGIN { $ENV{MOJO_MODE}='testing'; };
|
||||
|
||||
use utf8;
|
||||
|
||||
use Test::More tests => 3;
|
||||
|
||||
use Mojolicious::Lite;
|
||||
use Test::Mojo;
|
||||
use File::Temp qw( tempdir tempfile );
|
||||
|
||||
my($fh_log,$filename_log) = tempfile('fooXXXXX', TMPDIR => 1, UNLINK => 1);
|
||||
# Silence
|
||||
app->log->level('fatal');
|
||||
app->log->path($filename_log);
|
||||
|
||||
plugin 'tt_renderer' => {template_options => { COMPILE_DIR => tempdir( CLEANUP => 1 ) }};
|
||||
|
||||
get '/exception' => sub { die };
|
||||
|
||||
#say app->mode;
|
||||
#app->start;
|
||||
#exit;
|
||||
|
||||
my $t = Test::Mojo->new;
|
||||
|
||||
$t->app->renderer->default_handler('tt');
|
||||
|
||||
my $deep_recursion = 0;
|
||||
|
||||
do {
|
||||
local $SIG{__WARN__} = sub {
|
||||
my $warning = shift;
|
||||
if($warning =~ /Deep recursion/) {
|
||||
$deep_recursion = 1;
|
||||
die $warning;
|
||||
}
|
||||
};
|
||||
$t->get_ok('/exception')
|
||||
->status_is(500);
|
||||
};
|
||||
|
||||
ok !$deep_recursion, 'no deep recursion';
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ exception.development.html.tt
|
||||
[% 1 + % %]
|
||||
|
||||
@@ exception.html.tt
|
||||
[% 1 + % %]
|
||||
|
||||
@@ exception.testing.html.tt
|
||||
[% 1 + % %]
|
||||
37
t/default_template.t
Normal file
37
t/default_template.t
Normal file
@@ -0,0 +1,37 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 3;
|
||||
use Test::Mojo;
|
||||
use File::Temp qw( tempdir );
|
||||
|
||||
use Mojolicious::Lite;
|
||||
|
||||
# Tell Mojolicious we want to load the TT renderer plugin
|
||||
app->plugin(
|
||||
tt_renderer => {
|
||||
template_options => {
|
||||
# These options are specific to TT
|
||||
INCLUDE_PATH => 'templates',
|
||||
COMPILE_DIR => tempdir( CLEANUP => 1 ),
|
||||
COMPILE_EXT => '.ttc',
|
||||
# ... anything else to be passed on to TT should go here
|
||||
},
|
||||
}
|
||||
);
|
||||
|
||||
app->renderer->default_handler('tt');
|
||||
|
||||
get '/' => sub {
|
||||
die 'foo';
|
||||
};
|
||||
|
||||
my $t = Test::Mojo->new;
|
||||
|
||||
$t->get_ok('/')
|
||||
->status_is(500)
|
||||
->content_like(qr{foo});
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ index.html.tt
|
||||
anything
|
||||
26
t/lite_app.t
26
t/lite_app.t
@@ -7,18 +7,19 @@ BEGIN { $ENV{MOJO_MODE}='testing'; };
|
||||
|
||||
use utf8;
|
||||
|
||||
use Test::More tests => 31;
|
||||
use Test::More tests => 39;
|
||||
|
||||
use Mojolicious::Lite;
|
||||
use Mojo::ByteStream 'b';
|
||||
use Test::Mojo;
|
||||
use File::Temp qw( tempdir );
|
||||
|
||||
# Silence
|
||||
app->log->level('fatal');
|
||||
|
||||
use_ok('MojoX::Renderer::TT');
|
||||
use_ok('Mojolicious::Plugin::TtRenderer::Engine');
|
||||
|
||||
plugin 'tt_renderer' => {template_options => {PRE_CHOMP => 1, POST_CHOMP => 1, TRIM => 1}};
|
||||
plugin 'tt_renderer' => {template_options => {PRE_CHOMP => 1, POST_CHOMP => 1, TRIM => 1, COMPILE_DIR => tempdir( CLEANUP => 1 ) }};
|
||||
|
||||
get '/exception' => 'error';
|
||||
|
||||
@@ -26,6 +27,10 @@ get '/with_include' => 'include';
|
||||
|
||||
get '/with_wrapper' => 'wrapper';
|
||||
|
||||
get '/badinclude' => 'badinclude';
|
||||
|
||||
get '/badwrapper' => 'badwrapper';
|
||||
|
||||
get '/with_auto_wrapper' => 'auto_wrapper';
|
||||
|
||||
get '/inheritance_base' => 'inheritance_base';
|
||||
@@ -55,6 +60,12 @@ $t->get_ok('/bar/hello')->content_is("hello");
|
||||
# With include
|
||||
$t->get_ok('/with_include')->content_is("HelloInclude!Hallo");
|
||||
|
||||
# Bad inclde
|
||||
$t->get_ok('/badinclude')->status_is(500)->content_like(qr/Exception/i)->content_like(qr/bogus\.inc/);
|
||||
|
||||
# Bad wrapper
|
||||
$t->get_ok('/badwrapper')->status_is(500)->content_like(qr/Exception/i)->content_like(qr/layouts\/bogus\.html\.tt/);
|
||||
|
||||
# With wrapper
|
||||
$t->get_ok('/with_wrapper')->content_is("wrapped");
|
||||
|
||||
@@ -102,6 +113,10 @@ Hallo
|
||||
Include!
|
||||
[% INCLUDE 'includes/sub/include.inc' -%]
|
||||
|
||||
@@ badinclude.html.tt
|
||||
[%- INCLUDE 'bogus.inc' -%]
|
||||
not here
|
||||
|
||||
@@ layouts/layout.html.tt
|
||||
w[%- content -%]d
|
||||
|
||||
@@ -110,6 +125,11 @@ w[%- content -%]d
|
||||
rappe
|
||||
[%- END -%]
|
||||
|
||||
@@ badwrapper.html.tt
|
||||
[%- WRAPPER 'layouts/bogus.html.tt' %-]
|
||||
not here
|
||||
[%- END -%]
|
||||
|
||||
@@ layouts/auto_layout.html.tt
|
||||
w[%- h.content -%]d
|
||||
|
||||
|
||||
31
t/multiple_paths.t
Normal file
31
t/multiple_paths.t
Normal file
@@ -0,0 +1,31 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
BEGIN { $ENV{MOJO_MODE}='testing'; };
|
||||
|
||||
use utf8;
|
||||
|
||||
use Test::More tests => 6;
|
||||
|
||||
use Mojolicious::Lite;
|
||||
use Test::Mojo;
|
||||
use File::Temp qw( tempdir );
|
||||
|
||||
# Silence
|
||||
app->log->level('fatal');
|
||||
|
||||
my @paths = map { app->home->rel_dir($_) } "templates/multiple_first", "templates/multiple_second";
|
||||
app->renderer->paths([@paths]);
|
||||
|
||||
plugin 'TtRenderer' => {template_options => { COMPILE_DIR => tempdir( CLEANUP => 1 ) }};
|
||||
|
||||
get '/first' => 'first';
|
||||
get '/second' => 'second';
|
||||
|
||||
my $t = Test::Mojo->new;
|
||||
|
||||
$t->get_ok('/first')->status_is(200)->content_like(qr/First/);
|
||||
$t->get_ok('/second')->status_is(200)->content_like(qr/Second/);
|
||||
|
||||
@@ -15,4 +15,7 @@ eval "use Pod::Coverage $min_pc";
|
||||
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
|
||||
if $@;
|
||||
|
||||
all_pod_coverage_ok();
|
||||
plan tests => 2;
|
||||
|
||||
pod_coverage_ok('Mojolicious::Plugin::TtRenderer');
|
||||
pod_coverage_ok('Mojolicious::Plugin::TtRenderer::Engine', { also_private => [qr{^tt$}] } );
|
||||
|
||||
13
t/templates/Foo.pm
Normal file
13
t/templates/Foo.pm
Normal file
@@ -0,0 +1,13 @@
|
||||
package
|
||||
Foo;
|
||||
1;
|
||||
__DATA__
|
||||
|
||||
@@ include.inc
|
||||
Hello
|
||||
@@ includes/sub/include.inc
|
||||
Hallo
|
||||
|
||||
@@ layouts/layout.html.tt
|
||||
w[%- content -%]d
|
||||
|
||||
4
t/templates/conditional-exception.html.tt
Normal file
4
t/templates/conditional-exception.html.tt
Normal file
@@ -0,0 +1,4 @@
|
||||
foo
|
||||
[% PROCESS doesnotexist.tt IF do_process %]
|
||||
bar
|
||||
|
||||
1
t/templates/multiple_first/first.html.tt
Normal file
1
t/templates/multiple_first/first.html.tt
Normal file
@@ -0,0 +1 @@
|
||||
First
|
||||
1
t/templates/multiple_second/first.html.tt
Normal file
1
t/templates/multiple_second/first.html.tt
Normal file
@@ -0,0 +1 @@
|
||||
Second
|
||||
1
t/templates/multiple_second/second.html.tt
Normal file
1
t/templates/multiple_second/second.html.tt
Normal file
@@ -0,0 +1 @@
|
||||
Second
|
||||
@@ -5,17 +5,27 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use File::Temp;
|
||||
BEGIN {
|
||||
unless($^O eq 'MSWin32') {
|
||||
eval '# line '. __LINE__ . ' "' . __FILE__ . qq("\n). q{
|
||||
use POSIX qw( setlocale LC_ALL );
|
||||
setlocale(LC_ALL, 'C');
|
||||
};
|
||||
warn $@ if $@;
|
||||
}
|
||||
}
|
||||
|
||||
use File::Temp qw( tempdir );
|
||||
use Mojo::IOLoop;
|
||||
use Test::More;
|
||||
|
||||
# Use a clean temporary directory
|
||||
BEGIN { $ENV{MOJO_TMPDIR} ||= File::Temp::tempdir }
|
||||
BEGIN { $ENV{MOJO_TMPDIR} ||= tempdir( CLEANUP => 1) }
|
||||
|
||||
# Make sure sockets are working
|
||||
plan skip_all => 'working sockets required for this test!'
|
||||
unless Mojo::IOLoop->new->generate_port;
|
||||
plan tests => 3;
|
||||
plan tests => 6;
|
||||
|
||||
# Leela: OK, this has gotta stop. I'm going to remind Fry of his humanity the way only a woman can.
|
||||
# Farnsworth: You're going to do his laundry?
|
||||
@@ -24,16 +34,38 @@ use Mojolicious::Lite;
|
||||
use Test::Mojo;
|
||||
|
||||
# POD renderer plugin
|
||||
plugin 'tt_renderer';
|
||||
plugin 'tt_renderer' => {template_options => { COMPILE_DIR => tempdir( CLEANUP => 1 ) }};
|
||||
|
||||
# Silence
|
||||
app->log->level('error');
|
||||
|
||||
# GET /
|
||||
get '/' => 'index';
|
||||
get '/' => 'index';
|
||||
get '/blow' => sub {
|
||||
shift->render(template => 'conditional-exception', do_process => 1);
|
||||
};
|
||||
|
||||
|
||||
my $t = Test::Mojo->new;
|
||||
|
||||
# Simple TT template
|
||||
$t->get_ok('/')->status_is(200)
|
||||
->content_like(qr/test123456/);
|
||||
->content_like(qr/test123456/);
|
||||
$t->get_ok('/blow')->status_is(500)->content_like(qr/file error - doesnotexist\.tt: No such file or directory/);
|
||||
|
||||
if(eval q{ use Devel::Cycle; 1 })
|
||||
{
|
||||
# ignore warnings coming from Devel::Cycle
|
||||
local $SIG{__WARN__} = sub { };
|
||||
Devel::Cycle::find_cycle(app, sub {
|
||||
my $arg = shift;
|
||||
# Template::Provider (from which M::P::T::Provider inherits) has some cycles which are freed manaully by
|
||||
# its DESTROY method, so we skip reporting those cycles.
|
||||
unless(scalar(scalar(grep { ref($_->[2]) eq 'Mojolicious::Plugin::TtRenderer::Provider' && $_->[1] =~ /^(HEAD|TAIL|LOOKUP)$/ } @$arg)) > 0)
|
||||
{
|
||||
#use YAML ();
|
||||
#diag YAML::Dump([ map { [ $_->[0], $_->[1], ref($_->[2]), ref($_->[3]) ] } @$arg ]);
|
||||
fail('Cycle found')
|
||||
}
|
||||
});
|
||||
};
|
||||
|
||||
48
t/two_data.t
Normal file
48
t/two_data.t
Normal file
@@ -0,0 +1,48 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
BEGIN { $ENV{MOJO_MODE} = 'testing' };
|
||||
|
||||
use utf8;
|
||||
|
||||
use Test::More tests => 7;
|
||||
|
||||
use Mojolicious::Lite;
|
||||
use Test::Mojo;
|
||||
use File::Temp qw( tempdir );
|
||||
|
||||
use FindBin ();
|
||||
use lib "$FindBin::Bin/templates";
|
||||
|
||||
use_ok 'Foo';
|
||||
|
||||
push @{app->renderer->classes}, 'Foo';
|
||||
|
||||
plugin 'tt_renderer' => {template_options => {PRE_CHOMP => 1, POST_CHOMP => 1, TRIM => 1, COMPILE_DIR => tempdir( CLEANUP => 1 )}};
|
||||
|
||||
app->log->level('fatal');
|
||||
|
||||
get '/with_include' => 'include';
|
||||
get '/with_wrapper' => 'wrapper';
|
||||
|
||||
my $t = Test::Mojo->new;
|
||||
|
||||
# With include
|
||||
$t->get_ok('/with_include')->status_is(200)->content_is("HelloInclude!Hallo");
|
||||
|
||||
# With wrapper
|
||||
$t->get_ok('/with_wrapper')->status_is(200)->content_is("wrapped");
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ wrapper.html.tt
|
||||
[%- WRAPPER 'layouts/layout.html.tt' -%]
|
||||
rappe
|
||||
[%- END -%]
|
||||
|
||||
@@ include.html.tt
|
||||
[%- INCLUDE 'include.inc' -%]
|
||||
Include!
|
||||
[%- INCLUDE 'includes/sub/include.inc' -%]
|
||||
Reference in New Issue
Block a user