Compare commits
152 Commits
release/1.
...
v1.54
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
1025d74a36 | ||
|
|
4203effb6b | ||
|
|
c6276a8d78 | ||
|
|
6dfa5560a8 | ||
|
|
bca2f85fb3 | ||
|
|
5b364d31ac | ||
|
|
f9bc6aa56a | ||
|
|
65e4bbf7c8 | ||
|
|
5870c014c2 | ||
|
|
8dcb4147f7 | ||
|
|
c489fbc86e | ||
|
|
9699560925 | ||
|
|
247e2251b3 | ||
|
|
1b1e8cb63e | ||
|
|
6598b29c2c | ||
|
|
b40a0f97ee | ||
|
|
a1f36d716f | ||
|
|
af07f0f983 | ||
|
|
14884dd82d | ||
|
|
f029ad393f | ||
|
|
3ca192cd4f | ||
|
|
e955bb151a | ||
|
|
02696ed4a1 | ||
|
|
7bf464398d | ||
|
|
a7a268267c | ||
|
|
19876306b6 | ||
|
|
2b230680e5 | ||
|
|
b72fb699e9 | ||
|
|
9667221f20 | ||
|
|
a9ffb24a8f | ||
|
|
f0136a4a24 | ||
|
|
003b7c431c | ||
|
|
a55ae15582 | ||
|
|
75d795fd6f | ||
|
|
9c4e322dec | ||
|
|
48b19a5ab9 | ||
|
|
6cd14f157a | ||
|
|
da9f15fa17 | ||
|
|
5267ab7538 | ||
|
|
90e2562862 | ||
|
|
e541ac92b7 | ||
|
|
6386e0620e | ||
|
|
cfbf3e8ea3 | ||
|
|
8a367fc87d | ||
|
|
ab7117d632 | ||
|
|
b2062785db | ||
|
|
a30b13d6b0 | ||
|
|
002efafefa | ||
|
|
fc6b51b1c1 | ||
|
|
654ff61789 | ||
|
|
d340a27585 | ||
|
|
5d3e3eaf3b | ||
|
|
d63632735f | ||
|
|
90f8df88a9 | ||
|
|
fe963f6511 | ||
|
|
9be62a9c2c | ||
|
|
7f072b88be | ||
|
|
0faf79001b | ||
|
|
f22529d42e | ||
|
|
abcd8c3293 | ||
|
|
7ba4f4bf5c | ||
|
|
593d9d1640 | ||
|
|
5e8ade81e4 | ||
|
|
70231b1bce | ||
|
|
77c6298a99 | ||
|
|
01e6647cbf | ||
|
|
22eba8d3c5 | ||
|
|
f68a82f774 | ||
|
|
cb908430e5 | ||
|
|
7cd976ea79 | ||
|
|
1708622c49 | ||
|
|
380cea8aa2 | ||
|
|
9217818ad2 | ||
|
|
02fce2bfdd | ||
|
|
a7da6f3292 | ||
|
|
c736f2ed2d | ||
|
|
7bccefd01b | ||
|
|
cccf6078c1 | ||
|
|
408cba6c35 | ||
|
|
c1afea55a9 | ||
|
|
88041ec8b0 | ||
|
|
1fe6401667 | ||
|
|
c00f8934de | ||
|
|
d4902f8bf0 | ||
|
|
4225658dbc | ||
|
|
d45efa5405 | ||
|
|
f3e65cedce | ||
|
|
906c68db34 | ||
|
|
c7012a1be0 | ||
|
|
5e7728270f | ||
|
|
7618cacaa4 | ||
|
|
80340f9950 | ||
|
|
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 |
16
.gitignore
vendored
16
.gitignore
vendored
@@ -1,13 +1,3 @@
|
||||
blib*
|
||||
Makefile
|
||||
Makefile.old
|
||||
Build
|
||||
_build*
|
||||
pm_to_blib*
|
||||
*.tar.gz
|
||||
.lwpcookies
|
||||
MojoX-Renderer-TT-*
|
||||
cover_db
|
||||
*~
|
||||
*.bak
|
||||
.build
|
||||
/Mojolicious-Plugin-TtRenderer-*
|
||||
/.build
|
||||
/example/myapp/log/development.log
|
||||
|
||||
13
.travis.yml
Normal file
13
.travis.yml
Normal file
@@ -0,0 +1,13 @@
|
||||
language: perl
|
||||
install:
|
||||
- cpanm -n Mojolicious
|
||||
- cpanm -n Template
|
||||
script: HARNESS_IS_VERBOSE=1 prove -v -Ilib t
|
||||
perl:
|
||||
- "5.21"
|
||||
- "5.20"
|
||||
- "5.18"
|
||||
- "5.16"
|
||||
- "5.14"
|
||||
- "5.12"
|
||||
- "5.10"
|
||||
163
Changes
163
Changes
@@ -1,20 +1,158 @@
|
||||
Revision history for MojoX-Renderer-TT
|
||||
Revision history for Mojolicious::Plugin::TtRenderer
|
||||
|
||||
{{$NEXT}}
|
||||
|
||||
1.54 2014-12-20 10:17:47 -0500
|
||||
- cpantesters: do not report on older perls
|
||||
|
||||
1.53 2014-05-31 06:22:47 -0400
|
||||
- Mojolicious 5.0 support
|
||||
|
||||
1.52 2014-05-08 19:26:47 -0400
|
||||
- updated repository name
|
||||
|
||||
1.51 2014-03-21 14:59:39 -0400
|
||||
- extended diagnostics
|
||||
- documentation tweaks
|
||||
- fix non-lite app example (GH#41, uwisser)
|
||||
|
||||
1.50 2013-08-08T16:51:21-0400
|
||||
- update Changes to follow spec (GH#39, Сергей Романов)
|
||||
- minor documentation fixes
|
||||
|
||||
1.49 2013-08-08T09:18:54-0400
|
||||
- documentation
|
||||
|
||||
1.48 2013-08-08T09:13:19-0400
|
||||
- documentation
|
||||
|
||||
1.47 2013-07-26T06:07:35-0400
|
||||
- Template-Toolkit 2.25 compatability
|
||||
|
||||
1.46 2013-05-19
|
||||
- Mojolicious 4.0 compatability
|
||||
|
||||
1.45 2013-04-26
|
||||
- correctly support app->default->{layout} (GH#37, Fayland Lam)
|
||||
|
||||
1.44 2013-04-13
|
||||
- promote development changes to production
|
||||
|
||||
1.43_01 2013-04-11
|
||||
- _template_modified returns value from super class instead of 1 if true (GH#36, Fayland Lam)
|
||||
|
||||
1.43 2013-04-08
|
||||
- promote development changes
|
||||
|
||||
1.42_04 2013-04-06
|
||||
- Updated meta for new github repo location
|
||||
|
||||
1.42_03 2013-03-22
|
||||
- Allow custom relative paths for cache_dir (GH#35, Jason Crowther)
|
||||
|
||||
1.42_02 2013-02-26
|
||||
- only create COMPILE_DIR based on UID if the user doesn't specify COMPILE_DIR
|
||||
|
||||
1.42_01 2013-02-24
|
||||
- set COMPILE_DIR based on UID so that multiple users can use TtRenderer with default config
|
||||
|
||||
1.42 2013-02-24
|
||||
- fix for test on solaris
|
||||
|
||||
1.41 2013-02-23
|
||||
- Additional testing diagnostics
|
||||
|
||||
1.40 2013-02-20
|
||||
- Added diagnostic for IO loop implementation in testing
|
||||
|
||||
1.39 2013-01-28
|
||||
- Documentation updates.
|
||||
|
||||
1.38 2013-01-27
|
||||
- fixed but where DATA templates were not being rendered with empty renderer path
|
||||
|
||||
1.37 2013-01-12
|
||||
- fix default_template2.t to use temp directory for COMPILE_DIR
|
||||
|
||||
1.36 2013-01-09
|
||||
- Use $provider->fetch to find templates (GH#34)
|
||||
|
||||
1.35 2012-12-30
|
||||
- Documentation fix
|
||||
|
||||
1.34 2012-12-29
|
||||
- Include META.json in distribution.
|
||||
|
||||
1.33 2012-12-27
|
||||
- Fix hang in t/deep_recursion.t on *BSD
|
||||
|
||||
1.32 2012-12-27
|
||||
- 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 2012-12-26
|
||||
- Set locale "C" in tests that rely on it
|
||||
|
||||
1.30 2012-12-22
|
||||
- Don't rely on English locale in the test t/tt_plugin_lite_app.t
|
||||
|
||||
1.29 2012-12-18
|
||||
- support multiple renderer paths
|
||||
|
||||
1.28 2012-10-11
|
||||
- specify minimum perl version
|
||||
|
||||
1.27 2012-10-02
|
||||
- documentation fixes and updates.
|
||||
|
||||
1.26 2012-08-31
|
||||
- Windows compatability with Cwd::abs_path
|
||||
|
||||
1.25 2012-08-25
|
||||
- Return 0 on not found, die on error (GH#30)
|
||||
|
||||
1.24 2012-08-23
|
||||
- Compatibility with Mojolicious 3.33+
|
||||
|
||||
1.23 2012-08-23
|
||||
- Use die instead of render_exception (GH#29)
|
||||
|
||||
1.22 2012-08-21
|
||||
- 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 2012-06-05
|
||||
- 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 2011-08-01
|
||||
- Drop use of MojoX namespace for Mojolicious::Plugin::TtRenderer::
|
||||
(GH#12, Cosimo Streppone)
|
||||
|
||||
1.13 2011-06-07
|
||||
- Compatibility with Mojolicious 1.3+
|
||||
|
||||
1.12 2011-02-28
|
||||
- Inline wrappers and includes now work on Windows
|
||||
(GH#13, Christiaan Kras)
|
||||
|
||||
1.11 February 6, 2011
|
||||
1.11 2011-02-06
|
||||
- Change to use relative paths (Marcus Ramberg)
|
||||
- Add exception template for tests
|
||||
|
||||
1.10 February 5, 2011
|
||||
1.10 2011-02-05
|
||||
- Support Mojolicious 'layout'/'extends' (Maxim Vuets, Marcus
|
||||
Ramberg)
|
||||
- Fix Strawberry Perl tests (RT#65282, Christiaan Kras, Ask)
|
||||
- Update bugtracker URL in META.yml
|
||||
|
||||
1.0 January 22, 2011
|
||||
1.0 2011-01-22
|
||||
- Require (and be compatible with) Mojolicious 1.0+
|
||||
- Added inline template support (Viacheslav Tykhanovskyi & Ask)
|
||||
- Fix inline rendering and test failures (Marcus Ramberg)
|
||||
@@ -23,31 +161,31 @@ Revision history for MojoX-Renderer-TT
|
||||
- Fix unicode test (Marcus & Spleenjack)
|
||||
- Replaced deprecated Mojo dependence with Mojolicious (spleenjack)
|
||||
|
||||
0.40 August 2, 2010
|
||||
0.40 2010-08-02
|
||||
- Updated for newer Mojo (Viacheslav Tykhanovskyi)
|
||||
- Added helpers (Viacheslav Tykhanovskyi)
|
||||
- Documentation updates
|
||||
|
||||
0.31 September 11, 2009
|
||||
0.31 2009-09-11
|
||||
- Remove deprecated 'new' method
|
||||
- Update MANIFEST (oops, thanks Sebastian)
|
||||
|
||||
0.30 September 9, 2009
|
||||
0.30 2009-09-09
|
||||
- Revert the change of template_path stash key
|
||||
- Reflect recent changes in mojo project (v0.991251) (Sebastian Knapp)
|
||||
- One test with Mojolicious added (Sebastian Knapp)
|
||||
|
||||
0.21 July 29, 2009
|
||||
0.21 2009-07-29
|
||||
- Update stash key from 'template_path' to 'template' to
|
||||
match mojo change (Sebastian Knapp)
|
||||
|
||||
0.20 December 9, 2008
|
||||
0.20 2008-12-09
|
||||
- Updates to work with Mojo 0.9
|
||||
- Add default INCLUDE_PATH
|
||||
- Made default compile dir not Unix specific (Viacheslav
|
||||
Tykhanovskyi)
|
||||
|
||||
0.10 November 12, 2008
|
||||
0.10 2008-11-12
|
||||
- Update to work with named parameters in new version of Mojo
|
||||
- Instead of "tx" pass the context in the "c" variable
|
||||
- Rename "new" to "build"
|
||||
@@ -55,10 +193,9 @@ Revision history for MojoX-Renderer-TT
|
||||
- Update to work with new error handling in Mojo
|
||||
(Viacheslav Tykhanovskyi)
|
||||
|
||||
0.02 November 10, 2008
|
||||
0.02 2008-11-10
|
||||
- Add template_options parameter
|
||||
- Fix Template dependency
|
||||
|
||||
0.01 November 9, 2008
|
||||
0.01 2008-11-09
|
||||
- First version, released on an unsuspecting world.
|
||||
|
||||
|
||||
@@ -1,46 +0,0 @@
|
||||
# Avoid version control files.
|
||||
\bRCS\b
|
||||
\bCVS\b
|
||||
\bSCCS\b
|
||||
,v$
|
||||
\B\.svn\b
|
||||
\B\.git\b
|
||||
\b_darcs\b
|
||||
|
||||
# Avoid Makemaker generated and utility files.
|
||||
\bMANIFEST\.bak
|
||||
\bMakefile$
|
||||
\bblib/
|
||||
\bMakeMaker-\d
|
||||
\bpm_to_blib\.ts$
|
||||
\bpm_to_blib$
|
||||
\bblibdirs\.ts$ # 6.18 through 6.25 generated this
|
||||
|
||||
# Avoid Module::Build generated and utility files.
|
||||
\bBuild$
|
||||
\b_build/
|
||||
|
||||
# Avoid temp and backup files.
|
||||
~$
|
||||
\.old$
|
||||
\#$
|
||||
\b\.#
|
||||
\.bak$
|
||||
|
||||
# Avoid Devel::Cover files.
|
||||
\bcover_db\b
|
||||
|
||||
### DEFAULT MANIFEST.SKIP ENDS HERE ####
|
||||
|
||||
t/tmp/ctpl
|
||||
|
||||
\.DS_Store$
|
||||
\.sw.$
|
||||
(\w+-)*(\w+)-\d\.\d+(?:\.tar\.gz)?$
|
||||
|
||||
\.t\.log$
|
||||
|
||||
\.prove$
|
||||
|
||||
# XS shit
|
||||
\.(?:bs|c|o)$
|
||||
231
README.md
Normal file
231
README.md
Normal file
@@ -0,0 +1,231 @@
|
||||
# Mojolicious::Plugin::TtRenderer [](http://travis-ci.org/plicease/Mojolicious-Plugin-TtRenderer)
|
||||
|
||||
Template Renderer Plugin for Mojolicious
|
||||
|
||||
# SYNOPSIS
|
||||
|
||||
[Mojolicious::Lite](https://metacpan.org/pod/Mojolicious::Lite):
|
||||
|
||||
plugin 'tt_renderer';
|
||||
|
||||
[Mojolicious](https://metacpan.org/pod/Mojolicious)
|
||||
|
||||
$self->plugin('tt_renderer');
|
||||
|
||||
# DESCRIPTION
|
||||
|
||||
This plugin is a simple Template Toolkit renderer for [Mojolicious](https://metacpan.org/pod/Mojolicious).
|
||||
Its defaults are usually reasonable, although for finer grain detail in
|
||||
configuration you may want to use
|
||||
[Mojolicious::Plugin::TtRenderer::Engine](https://metacpan.org/pod/Mojolicious::Plugin::TtRenderer::Engine) directly.
|
||||
|
||||
# OPTIONS
|
||||
|
||||
These are the options that can be passed in as arguments to this plugin.
|
||||
|
||||
## template\_options
|
||||
|
||||
Configuration hash passed into [Template](https://metacpan.org/pod/Template)'s constructor, see
|
||||
[Template Toolkit's configuration summary](https://metacpan.org/pod/Template#CONFIGURATION-SUMMARY)
|
||||
for details. Here is an example using the [Mojolicious::Lite](https://metacpan.org/pod/Mojolicious::Lite) form:
|
||||
|
||||
plugin 'tt_renderer' => {
|
||||
template_options => {
|
||||
PRE_CHOMP => 1,
|
||||
POST_CHOMP => 1,
|
||||
TRIM => 1,
|
||||
},
|
||||
};
|
||||
|
||||
Here is the same example using the full [Mojolicious](https://metacpan.org/pod/Mojolicious) app form:
|
||||
|
||||
package MyApp;
|
||||
|
||||
use Mojo::Base qw( Mojolicious );
|
||||
|
||||
sub startup {
|
||||
my($self) = @_;
|
||||
|
||||
$self->plugin('tt_renderer' => {
|
||||
template_options => {
|
||||
PRE_CHOMP => 1,
|
||||
POST_CHOMP => 1,
|
||||
TRIM => 1,
|
||||
},
|
||||
}
|
||||
|
||||
...
|
||||
}
|
||||
|
||||
These options will be used if you do not override them:
|
||||
|
||||
- INCLUDE\_PATH
|
||||
|
||||
Generated based on your application's renderer's configuration. It
|
||||
will include all renderer paths, in addition to search files located
|
||||
in the `__DATA__` section by the usual logic used by [Mojolicious](https://metacpan.org/pod/Mojolicious).
|
||||
|
||||
- COMPILE\_EXT
|
||||
|
||||
`.ttc`
|
||||
|
||||
- UNICODE
|
||||
|
||||
`1` (true)
|
||||
|
||||
- ENCODING
|
||||
|
||||
`utf-87`
|
||||
|
||||
- CACHE\_SIZE
|
||||
|
||||
`128`
|
||||
|
||||
- RELATIVE
|
||||
|
||||
`1` (true)
|
||||
|
||||
## cache\_dir
|
||||
|
||||
Specifies the directory in which compiled template files are
|
||||
written. This:
|
||||
|
||||
plugin 'tt_renderer', { cache_dir => 'some/path' };
|
||||
|
||||
is equivalent to
|
||||
|
||||
plugin 'tt_renderer', { template_options { COMPILE_DIR => 'some/path' } };
|
||||
|
||||
except in the first example relative paths are relative to the [Mojolicious](https://metacpan.org/pod/Mojolicious)
|
||||
app's home directory (`$app->home`).
|
||||
|
||||
# STASH
|
||||
|
||||
## h
|
||||
|
||||
Helpers are available via the `h` entry in the stash.
|
||||
|
||||
<a href="[% h.url_for('index') %]">go back to index</a>
|
||||
|
||||
## c
|
||||
|
||||
The current controller instance can be accessed as `c`.
|
||||
|
||||
I see you are requesting a document from [% c.req.headers.host %].
|
||||
|
||||
# EXAMPLES
|
||||
|
||||
[Mojolicious::Lite](https://metacpan.org/pod/Mojolicious::Lite) example:
|
||||
|
||||
use Mojolicious::Lite;
|
||||
|
||||
plugin 'tt_renderer';
|
||||
|
||||
get '/' => sub {
|
||||
my $self = shift;
|
||||
$self->render('index');
|
||||
};
|
||||
|
||||
app->start;
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ index.html.tt
|
||||
[%
|
||||
WRAPPER 'layouts/default.html.tt'
|
||||
title = 'Welcome'
|
||||
%]
|
||||
<p>Welcome to the Mojolicious real-time web framework!</p>
|
||||
<p>Welcome to the TtRenderer plugin!</p>
|
||||
[% END %]
|
||||
|
||||
@@ layouts/default.html.tt
|
||||
<!DOCTYPE html>
|
||||
<html>
|
||||
<head><title>[% title %]</title></head>
|
||||
<body>[% content %]</body>
|
||||
</html>
|
||||
|
||||
[Mojolicious](https://metacpan.org/pod/Mojolicious) example:
|
||||
|
||||
package MyApp;
|
||||
use Mojo::Base 'Mojolicious';
|
||||
|
||||
sub startup {
|
||||
my $self = shift;
|
||||
$self->plugin('tt_renderer');
|
||||
my $r = $self->routes;
|
||||
$r->get('/')->to('example#welcome');
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
package MyApp::Example;
|
||||
use Mojo::Base 'Mojolicious::Controller';
|
||||
|
||||
# This action will render a template
|
||||
sub welcome {
|
||||
my $self = shift;
|
||||
|
||||
# Render template "example/welcome.html.tt" with message
|
||||
$self->render(
|
||||
message => 'Looks like your TtRenderer is working!');
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
These are also included with the `Mojolicious::Plugin::TtRenderer`
|
||||
distribution, including the support files required for the full
|
||||
[Mojolicious](https://metacpan.org/pod/Mojolicious) app example.
|
||||
|
||||
# SEE ALSO
|
||||
|
||||
[Mojolicious::Plugin::TtRenderer::Engine](https://metacpan.org/pod/Mojolicious::Plugin::TtRenderer::Engine),
|
||||
[Mojolicious](https://metacpan.org/pod/Mojolicious),
|
||||
[Mojolicious::Guides](https://metacpan.org/pod/Mojolicious::Guides),
|
||||
[http://mojolicious.org](http://mojolicious.org).
|
||||
|
||||
# AUTHOR
|
||||
|
||||
original author: Ask Bjørn Hansen
|
||||
|
||||
current maintainer: Graham Ollis <plicease@cpan.org>
|
||||
|
||||
contributors:
|
||||
|
||||
vti
|
||||
|
||||
Marcus Ramberg
|
||||
|
||||
Matthias Bethke
|
||||
|
||||
Htbaa
|
||||
|
||||
Magnus Holm
|
||||
|
||||
Maxim Vuets
|
||||
|
||||
Rafael Kitover
|
||||
|
||||
giftnuss
|
||||
|
||||
Cosimo Streppone
|
||||
|
||||
Fayland Lam
|
||||
|
||||
Jason Crowther
|
||||
|
||||
spleenjack
|
||||
|
||||
Árpád Szász
|
||||
|
||||
Сергей Романов
|
||||
|
||||
uwisser
|
||||
|
||||
# COPYRIGHT AND LICENSE
|
||||
|
||||
This software is copyright (c) 2014 by Ask Bjørn Hansen.
|
||||
|
||||
This is free software; you can redistribute it and/or modify it under
|
||||
the same terms as the Perl 5 programming language system itself.
|
||||
88
dist.ini
88
dist.ini
@@ -1,48 +1,68 @@
|
||||
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
|
||||
|
||||
version = 1.54
|
||||
|
||||
[@Author::Plicease]
|
||||
release_tests = 1
|
||||
travis_status = 1
|
||||
installer = ModuleBuild
|
||||
|
||||
[Prereqs]
|
||||
Mojolicious = 1.01
|
||||
Mojolicious = 3.33
|
||||
Template = 2.18
|
||||
|
||||
[Prereqs / TestRequires ]
|
||||
Test::More = 0
|
||||
[Author::Plicease::Thanks]
|
||||
current = Graham Ollis <plicease@cpan.org>
|
||||
original = Ask Bjørn Hansen
|
||||
contributor = vti
|
||||
contributor = Marcus Ramberg
|
||||
contributor = Matthias Bethke
|
||||
contributor = Htbaa
|
||||
contributor = Magnus Holm
|
||||
contributor = Maxim Vuets
|
||||
contributor = Rafael Kitover
|
||||
contributor = giftnuss
|
||||
contributor = Cosimo Streppone
|
||||
contributor = Fayland Lam
|
||||
contributor = Jason Crowther
|
||||
contributor = spleenjack
|
||||
contributor = Árpád Szász
|
||||
contributor = Сергей Романов
|
||||
contributor = uwisser
|
||||
|
||||
[@Git]
|
||||
tag_format = release/%v
|
||||
# push_to = all
|
||||
[Author::Plicease::Upload]
|
||||
|
||||
[@Filter]
|
||||
bundle = @Basic
|
||||
remove = Readme
|
||||
remove = Manifest
|
||||
[InsertExample]
|
||||
|
||||
[MetaResources]
|
||||
bugtracker.web = https://github.com/abh/mojox-renderer-tt/issues
|
||||
repository.web = http://github.com/abh/mojox-renderer-tt
|
||||
repository.url = git://github.com/abh/mojox-renderer-tt.git
|
||||
repository.type = git
|
||||
[MetaNoIndex]
|
||||
directory = example
|
||||
|
||||
[Homepage]
|
||||
[RemovePrereqs]
|
||||
; comes with Perl
|
||||
remove = warnings
|
||||
remove = strict
|
||||
remove = lib
|
||||
remove = utf8
|
||||
remove = base
|
||||
remove = Carp
|
||||
remove = Cwd
|
||||
remove = File::Spec
|
||||
remove = Scalar::Util
|
||||
remove = File::Temp
|
||||
remove = FindBin
|
||||
remove = IO::Handle
|
||||
|
||||
[BumpVersionFromGit]
|
||||
version_regexp = ^release/(.*)
|
||||
|
||||
[PkgVersion]
|
||||
|
||||
[CheckChangeLog]
|
||||
[CompileTests]
|
||||
[DistManifestTests]
|
||||
[HasVersionTests]
|
||||
[MetaTests]
|
||||
[ReadmeFromPod]
|
||||
[PodCoverageTests]
|
||||
[Manifest]
|
||||
|
||||
[NextRelease]
|
||||
format = %-7v %{MMMM d, yyyy}d
|
||||
; comes with Mojolicious
|
||||
remove = Mojo::Base
|
||||
remove = Mojo::ByteStream
|
||||
remove = Mojolicious::Plugin
|
||||
remove = Mojo::IOLoop
|
||||
remove = Mojolicious::Lite
|
||||
remove = Test::Mojo
|
||||
|
||||
[Author::Plicease::InstallerPerlVersion]
|
||||
|
||||
8
example/README
Normal file
8
example/README
Normal file
@@ -0,0 +1,8 @@
|
||||
Included in this directory are two examples of how to use the Template Toolkit
|
||||
Renderer.
|
||||
|
||||
myapp.pl - Mojolicious::Lite example
|
||||
myapp/ - full Mojolicious application example
|
||||
|
||||
They were created as minor modifications of the applications generated
|
||||
using the 'mojo generate' command.
|
||||
28
example/myapp.pl
Normal file
28
example/myapp.pl
Normal file
@@ -0,0 +1,28 @@
|
||||
use Mojolicious::Lite;
|
||||
|
||||
plugin 'tt_renderer';
|
||||
|
||||
get '/' => sub {
|
||||
my $self = shift;
|
||||
$self->render('index');
|
||||
};
|
||||
|
||||
app->start;
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ index.html.tt
|
||||
[%
|
||||
WRAPPER 'layouts/default.html.tt'
|
||||
title = 'Welcome'
|
||||
%]
|
||||
<p>Welcome to the Mojolicious real-time web framework!</p>
|
||||
<p>Welcome to the TtRenderer plugin!</p>
|
||||
[% END %]
|
||||
|
||||
@@ layouts/default.html.tt
|
||||
<!DOCTYPE html>
|
||||
<html>
|
||||
<head><title>[% title %]</title></head>
|
||||
<body>[% content %]</body>
|
||||
</html>
|
||||
11
example/myapp/lib/MyApp.pm
Normal file
11
example/myapp/lib/MyApp.pm
Normal file
@@ -0,0 +1,11 @@
|
||||
package MyApp;
|
||||
use Mojo::Base 'Mojolicious';
|
||||
|
||||
sub startup {
|
||||
my $self = shift;
|
||||
$self->plugin('tt_renderer');
|
||||
my $r = $self->routes;
|
||||
$r->get('/')->to('example#welcome');
|
||||
}
|
||||
|
||||
1;
|
||||
13
example/myapp/lib/MyApp/Example.pm
Normal file
13
example/myapp/lib/MyApp/Example.pm
Normal file
@@ -0,0 +1,13 @@
|
||||
package MyApp::Example;
|
||||
use Mojo::Base 'Mojolicious::Controller';
|
||||
|
||||
# This action will render a template
|
||||
sub welcome {
|
||||
my $self = shift;
|
||||
|
||||
# Render template "example/welcome.html.tt" with message
|
||||
$self->render(
|
||||
message => 'Looks like your TtRenderer is working!');
|
||||
}
|
||||
|
||||
1;
|
||||
11
example/myapp/public/index.html
Normal file
11
example/myapp/public/index.html
Normal file
@@ -0,0 +1,11 @@
|
||||
<!DOCTYPE html>
|
||||
<html>
|
||||
<head>
|
||||
<title>Welcome to the Mojolicious real-time web framework!</title>
|
||||
</head>
|
||||
<body>
|
||||
<h2>Welcome to the Mojolicious real-time web framework!</h2>
|
||||
This is the static document "public/index.html",
|
||||
<a href="/">click here</a> to get back to the start.
|
||||
</body>
|
||||
</html>
|
||||
11
example/myapp/script/my_app
Executable file
11
example/myapp/script/my_app
Executable file
@@ -0,0 +1,11 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use FindBin;
|
||||
BEGIN { unshift @INC, "$FindBin::Bin/../lib" }
|
||||
|
||||
# Start command line interface for application
|
||||
require Mojolicious::Commands;
|
||||
Mojolicious::Commands->start_app('MyApp');
|
||||
9
example/myapp/t/basic.t
Normal file
9
example/myapp/t/basic.t
Normal file
@@ -0,0 +1,9 @@
|
||||
use Mojo::Base -strict;
|
||||
|
||||
use Test::More;
|
||||
use Test::Mojo;
|
||||
|
||||
my $t = Test::Mojo->new('MyApp');
|
||||
$t->get_ok('/')->status_is(200)->content_like(qr/Mojolicious/i);
|
||||
|
||||
done_testing();
|
||||
10
example/myapp/templates/example/welcome.html.tt
Normal file
10
example/myapp/templates/example/welcome.html.tt
Normal file
@@ -0,0 +1,10 @@
|
||||
[%
|
||||
WRAPPER 'layouts/default.html.tt'
|
||||
title = 'Welcome'
|
||||
%]
|
||||
<h2>[% message %]</h2>
|
||||
This page was generated from the template "templates/example/welcome.html.tt"
|
||||
and the layout "templates/layouts/default.html.tt",
|
||||
<a href="[% url_for %]">click here</a> to reload the page or
|
||||
<a href="/index.html">here</a> to move forward to a static page.
|
||||
[% END %]
|
||||
5
example/myapp/templates/layouts/default.html.tt
Normal file
5
example/myapp/templates/layouts/default.html.tt
Normal file
@@ -0,0 +1,5 @@
|
||||
<!DOCTYPE html>
|
||||
<html>
|
||||
<head><title>[% title %]</title></head>
|
||||
<body>[% content %]</body>
|
||||
</html>
|
||||
@@ -1,311 +0,0 @@
|
||||
package MojoX::Renderer::TT;
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
|
||||
use base 'Mojo::Base';
|
||||
|
||||
use File::Spec ();
|
||||
use Mojo::ByteStream 'b';
|
||||
use Template ();
|
||||
use Cwd qw/abs_path/;
|
||||
|
||||
__PACKAGE__->attr('tt');
|
||||
|
||||
sub build {
|
||||
my $self = shift->SUPER::new(@_);
|
||||
$self->_init(@_);
|
||||
return sub { $self->_render(@_) }
|
||||
}
|
||||
|
||||
sub _init {
|
||||
my $self = shift;
|
||||
my %args = @_;
|
||||
|
||||
#$Template::Parser::DEBUG = 1;
|
||||
|
||||
my $app = delete $args{mojo} || delete $args{app};
|
||||
|
||||
my $dir = $app && $app->home->rel_dir('tmp/ctpl');
|
||||
|
||||
# TODO
|
||||
# take and process options :-)
|
||||
|
||||
my %config = (
|
||||
($app ? (INCLUDE_PATH => abs_path($app->home->rel_dir('templates'))) : ()),
|
||||
COMPILE_EXT => '.ttc',
|
||||
COMPILE_DIR => ($dir || abs_path(File::Spec->tmpdir)),
|
||||
UNICODE => 1,
|
||||
ENCODING => 'utf-8',
|
||||
CACHE_SIZE => 128,
|
||||
RELATIVE => 1,
|
||||
%{$args{template_options} || {}},
|
||||
);
|
||||
|
||||
$config{LOAD_TEMPLATES} =
|
||||
[MojoX::Renderer::TT::Provider->new(%config, renderer => $app->renderer)]
|
||||
unless $config{LOAD_TEMPLATES};
|
||||
|
||||
$self->tt(Template->new(\%config))
|
||||
or Carp::croak "Could not initialize Template object: $Template::ERROR";
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub _render {
|
||||
my ($self, $renderer, $c, $output, $options) = @_;
|
||||
|
||||
# Inline
|
||||
my $inline = $options->{inline};
|
||||
|
||||
# Template
|
||||
my $t = $renderer->template_name($options);
|
||||
$t = 'inline' if defined $inline;
|
||||
return unless $t;
|
||||
|
||||
|
||||
my $helper = MojoX::Renderer::TT::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 $ok = $self->tt->process(defined $inline ? \$inline : $t, @params);
|
||||
|
||||
# Error
|
||||
unless ($ok) {
|
||||
|
||||
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;
|
||||
}
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
1; # End of MojoX::Renderer::TT
|
||||
|
||||
package
|
||||
MojoX::Renderer::TT::Helper;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use base 'Mojo::Base';
|
||||
|
||||
our $AUTOLOAD;
|
||||
|
||||
__PACKAGE__->attr('ctx');
|
||||
|
||||
sub AUTOLOAD {
|
||||
my $self = shift;
|
||||
|
||||
my $method = $AUTOLOAD;
|
||||
|
||||
return if $method =~ /^[A-Z]+?$/;
|
||||
return if $method =~ /^_/;
|
||||
return if $method =~ /(?:\:*?)DESTROY$/;
|
||||
|
||||
$method = (split '::' => $method)[-1];
|
||||
|
||||
die qq/Unknown helper: $method/ unless $self->ctx->app->renderer->helpers->{$method};
|
||||
|
||||
return $self->ctx->$method(@_);
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
package
|
||||
MojoX::Renderer::TT::Provider;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use base 'Template::Provider';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my %params = @_;
|
||||
|
||||
my $renderer = delete $params{renderer};
|
||||
|
||||
my $self = $class->SUPER::new(%params);
|
||||
$self->renderer($renderer);
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub renderer { @_ > 1 ? $_[0]->{renderer} = $_[1] : $_[0]->{renderer} }
|
||||
sub ctx { @_ > 1 ? $_[0]->{ctx} = $_[1] : $_[0]->{ctx} }
|
||||
|
||||
sub _template_modified {1}
|
||||
|
||||
sub _template_content {
|
||||
my $self = shift;
|
||||
my ($path) = @_;
|
||||
|
||||
# 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(@_);
|
||||
}
|
||||
|
||||
# Try DATA section
|
||||
elsif (my $d = $self->renderer->get_inline_template($self->ctx, $t)) {
|
||||
return wantarray ? ($d, '', time) : $d;
|
||||
}
|
||||
|
||||
my $data = '';
|
||||
my $error = "$path: not found";
|
||||
my $mod_date = time;
|
||||
return wantarray ? ($data, $error, $mod_date) : $data;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=encoding utf-8
|
||||
|
||||
=head1 NAME
|
||||
|
||||
MojoX::Renderer::TT - Template Toolkit renderer for Mojo
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
Add the handler:
|
||||
|
||||
sub startup {
|
||||
...
|
||||
|
||||
# Via mojolicious plugin
|
||||
$self->plugin(tt_renderer => {template_options => {FILTERS => [ ... ]}});
|
||||
|
||||
# Or manually
|
||||
use MojoX::Renderer::TT;
|
||||
|
||||
my $tt = MojoX::Renderer::TT->build(
|
||||
mojo => $self,
|
||||
template_options => {
|
||||
PROCESS => 'tpl/wrapper',
|
||||
FILTERS => [ ... ],
|
||||
UNICODE => 1,
|
||||
ENCODING => 'UTF-8',
|
||||
}
|
||||
);
|
||||
|
||||
$self->renderer->add_handler( tt => $tt );
|
||||
}
|
||||
|
||||
Template parameter are taken from C< $c->stash >.
|
||||
|
||||
=head1 RENDERING
|
||||
|
||||
The template file for C<"example/welcome"> would be C<"templates/welcome.html.tt">.
|
||||
|
||||
When template file is not available rendering from C<__DATA__> is attempted.
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ welcome.html.tt
|
||||
Welcome, [% user.name %]!
|
||||
|
||||
Inline template is also supported:
|
||||
|
||||
$self->render(inline => '[% 1 + 1 %]', handler => 'tt');
|
||||
|
||||
=head1 HELPERS
|
||||
|
||||
Helpers are exported automatically under C<h> namespace.
|
||||
|
||||
[% h.url_for('index') %]
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 build
|
||||
|
||||
This method returns a handler for the Mojolicious renderer.
|
||||
|
||||
Supported parameters are
|
||||
|
||||
=over 4
|
||||
|
||||
=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
|
||||
|
||||
=item template_options
|
||||
|
||||
A hash reference of options that are passed to Template->new().
|
||||
|
||||
=back
|
||||
|
||||
=head1 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.
|
||||
|
||||
=head1 SUPPORT
|
||||
|
||||
You can find documentation for this module with the perldoc command.
|
||||
|
||||
perldoc MojoX::Renderer::TT
|
||||
|
||||
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 * 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>
|
||||
|
||||
=item * Search CPAN
|
||||
|
||||
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.
|
||||
|
||||
This program is free software; you can redistribute it and/or modify it
|
||||
under the same terms as Perl itself.
|
||||
|
||||
=cut
|
||||
@@ -2,58 +2,177 @@ package Mojolicious::Plugin::TtRenderer;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use v5.10;
|
||||
|
||||
our $VERSION = '0.01';
|
||||
# ABSTRACT: Template Renderer Plugin for Mojolicious
|
||||
# VERSION
|
||||
|
||||
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__
|
||||
|
||||
=head1 NAME
|
||||
=encoding utf-8
|
||||
|
||||
Mojolicious::Plugin::TtRenderer - Template Renderer Plugin
|
||||
=begin stopwords
|
||||
|
||||
Bjørn
|
||||
Szász
|
||||
Árpád
|
||||
|
||||
=end stopwords
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
# Mojolicious
|
||||
$self->plugin('tt_renderer');
|
||||
$self->plugin(tt_renderer => {template_options => {FILTERS => [ ... ]}});
|
||||
L<Mojolicious::Lite>:
|
||||
|
||||
# Mojolicious::Lite
|
||||
plugin 'tt_renderer';
|
||||
plugin tt_renderer => {template_options => {FILTERS => [ ... ]}};
|
||||
plugin 'tt_renderer';
|
||||
|
||||
L<Mojolicious>
|
||||
|
||||
$self->plugin('tt_renderer');
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
L<Mojolicous::Plugin::TtRenderer> is a simple loader for L<MojoX::Renderer::TT>.
|
||||
This plugin is a simple Template Toolkit renderer for L<Mojolicious>.
|
||||
Its defaults are usually reasonable, although for finer grain detail in
|
||||
configuration you may want to use
|
||||
L<Mojolicious::Plugin::TtRenderer::Engine> directly.
|
||||
|
||||
=head1 METHODS
|
||||
=head1 OPTIONS
|
||||
|
||||
L<Mojolicious::Plugin::TtRenderer> inherits all methods from
|
||||
L<Mojolicious::Plugin> and implements the following new ones.
|
||||
These are the options that can be passed in as arguments to this plugin.
|
||||
|
||||
=head2 C<register>
|
||||
=head2 template_options
|
||||
|
||||
$plugin->register;
|
||||
Configuration hash passed into L<Template>'s constructor, see
|
||||
L<Template Toolkit's configuration summary|Template#CONFIGURATION-SUMMARY>
|
||||
for details. Here is an example using the L<Mojolicious::Lite> form:
|
||||
|
||||
Register renderer in L<Mojolicious> application.
|
||||
plugin 'tt_renderer' => {
|
||||
template_options => {
|
||||
PRE_CHOMP => 1,
|
||||
POST_CHOMP => 1,
|
||||
TRIM => 1,
|
||||
},
|
||||
};
|
||||
|
||||
Here is the same example using the full L<Mojolicious> app form:
|
||||
|
||||
package MyApp;
|
||||
|
||||
use Mojo::Base qw( Mojolicious );
|
||||
|
||||
sub startup {
|
||||
my($self) = @_;
|
||||
|
||||
$self->plugin('tt_renderer' => {
|
||||
template_options => {
|
||||
PRE_CHOMP => 1,
|
||||
POST_CHOMP => 1,
|
||||
TRIM => 1,
|
||||
},
|
||||
}
|
||||
|
||||
...
|
||||
}
|
||||
|
||||
These options will be used if you do not override them:
|
||||
|
||||
=over 4
|
||||
|
||||
=item INCLUDE_PATH
|
||||
|
||||
Generated based on your application's renderer's configuration. It
|
||||
will include all renderer paths, in addition to search files located
|
||||
in the C<__DATA__> section by the usual logic used by L<Mojolicious>.
|
||||
|
||||
=item COMPILE_EXT
|
||||
|
||||
C<.ttc>
|
||||
|
||||
=item UNICODE
|
||||
|
||||
C<1> (true)
|
||||
|
||||
=item ENCODING
|
||||
|
||||
C<utf-87>
|
||||
|
||||
=item CACHE_SIZE
|
||||
|
||||
C<128>
|
||||
|
||||
=item RELATIVE
|
||||
|
||||
C<1> (true)
|
||||
|
||||
=back
|
||||
|
||||
=head2 cache_dir
|
||||
|
||||
Specifies the directory in which compiled template files are
|
||||
written. This:
|
||||
|
||||
plugin 'tt_renderer', { cache_dir => 'some/path' };
|
||||
|
||||
is equivalent to
|
||||
|
||||
plugin 'tt_renderer', { template_options { COMPILE_DIR => 'some/path' } };
|
||||
|
||||
except in the first example relative paths are relative to the L<Mojolicious>
|
||||
app's home directory (C<$app-E<gt>home>).
|
||||
|
||||
=head1 STASH
|
||||
|
||||
=head2 h
|
||||
|
||||
Helpers are available via the C<h> entry in the stash.
|
||||
|
||||
<a href="[% h.url_for('index') %]">go back to index</a>
|
||||
|
||||
=head2 c
|
||||
|
||||
The current controller instance can be accessed as C<c>.
|
||||
|
||||
I see you are requesting a document from [% c.req.headers.host %].
|
||||
|
||||
=head1 EXAMPLES
|
||||
|
||||
L<Mojolicious::Lite> example:
|
||||
|
||||
# EXAMPLE: example/myapp.pl
|
||||
|
||||
L<Mojolicious> example:
|
||||
|
||||
# EXAMPLE: example/myapp/lib/MyApp.pm
|
||||
|
||||
# EXAMPLE: example/myapp/lib/MyApp/Example.pm
|
||||
|
||||
These are also included with the C<Mojolicious::Plugin::TtRenderer>
|
||||
distribution, including the support files required for the full
|
||||
L<Mojolicious> app example.
|
||||
|
||||
=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>.
|
||||
|
||||
=cut
|
||||
|
||||
332
lib/Mojolicious/Plugin/TtRenderer/Engine.pm
Normal file
332
lib/Mojolicious/Plugin/TtRenderer/Engine.pm
Normal file
@@ -0,0 +1,332 @@
|
||||
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';
|
||||
use POSIX ':errno_h';
|
||||
|
||||
# ABSTRACT: Template Toolkit renderer for Mojolicious
|
||||
# VERSION
|
||||
|
||||
__PACKAGE__->attr('tt');
|
||||
|
||||
sub build {
|
||||
my $self = shift->SUPER::new(@_);
|
||||
weaken($self->{app});
|
||||
$self->_init(@_);
|
||||
return sub { $self->_render(@_) }
|
||||
}
|
||||
|
||||
sub _init {
|
||||
my $self = shift;
|
||||
my %args = @_;
|
||||
|
||||
#$Template::Parser::DEBUG = 1;
|
||||
|
||||
my $dir;
|
||||
my $app = delete $args{mojo} || delete $args{app};
|
||||
if($dir=$args{cache_dir}) {
|
||||
|
||||
if($app && substr($dir,0,1) ne '/') {
|
||||
$dir=$app->home->rel_dir($dir);
|
||||
}
|
||||
}
|
||||
|
||||
# TODO
|
||||
# take and process options :-)
|
||||
|
||||
my @renderer_paths = $app ? map { abs_path($_) } grep { -d $_ } @{ $app->renderer->paths } : ();
|
||||
push @renderer_paths, 'templates';
|
||||
|
||||
my %config = (
|
||||
INCLUDE_PATH => \@renderer_paths,
|
||||
COMPILE_EXT => '.ttc',
|
||||
UNICODE => 1,
|
||||
ENCODING => 'utf-8',
|
||||
CACHE_SIZE => 128,
|
||||
RELATIVE => 1,
|
||||
%{$args{template_options} || {}},
|
||||
);
|
||||
|
||||
$config{COMPILE_DIR} //= $dir || do {
|
||||
my $tmpdir = File::Spec->catdir(File::Spec->tmpdir, "ttr$<");
|
||||
mkdir $tmpdir unless -d $tmpdir;
|
||||
$tmpdir;
|
||||
};
|
||||
|
||||
$config{LOAD_TEMPLATES} =
|
||||
[Mojolicious::Plugin::TtRenderer::Provider->new(%config, renderer => $app->renderer)]
|
||||
unless $config{LOAD_TEMPLATES};
|
||||
|
||||
$self->tt(Template->new(\%config))
|
||||
or Carp::croak "Could not initialize Template object: $Template::ERROR";
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub _render {
|
||||
my ($self, $renderer, $c, $output, $options) = @_;
|
||||
|
||||
# Inline
|
||||
my $inline = $options->{inline};
|
||||
|
||||
# Template
|
||||
my $t = $renderer->template_name($options);
|
||||
$t = 'inline' if defined $inline;
|
||||
return unless $t;
|
||||
|
||||
my $helper = Mojolicious::Plugin::TtRenderer::Helper->new(ctx => $c);
|
||||
|
||||
# Purge previous result
|
||||
$$output = '';
|
||||
|
||||
# fixes for t/lite_app_with_default_layouts.t
|
||||
unless ($c->stash->{layout}) {
|
||||
$c->stash->{content} ||= $c->stash->{'mojo.content'}->{content};
|
||||
}
|
||||
|
||||
my @params = ({%{$c->stash}, c => $c, h => $helper}, $output, {binmode => ':utf8'});
|
||||
my $provider = $self->tt->{SERVICE}->{CONTEXT}->{LOAD_TEMPLATES}->[0];
|
||||
$provider->options($options);
|
||||
$provider->ctx($c);
|
||||
|
||||
my $ok = do {
|
||||
if (defined $inline) {
|
||||
$self->tt->process(\$inline, @params);
|
||||
}
|
||||
else {
|
||||
my @ret = $provider->fetch($t);
|
||||
|
||||
if (not defined $ret[1]) {
|
||||
$self->tt->process($ret[0], @params);
|
||||
}
|
||||
elsif (not defined $ret[0]) { # not found
|
||||
return 0;
|
||||
}
|
||||
else { # error
|
||||
return 0 if $! == ENOENT && (not ref $ret[0]); # not found when not blessed exception
|
||||
die $ret[0];
|
||||
}
|
||||
}
|
||||
};
|
||||
|
||||
# Error
|
||||
die $self->tt->error unless $ok;
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
1; # End of Mojolicious::Plugin::TtRenderer::Engine
|
||||
|
||||
package
|
||||
Mojolicious::Plugin::TtRenderer::Helper;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use base 'Mojo::Base';
|
||||
|
||||
our $AUTOLOAD;
|
||||
|
||||
__PACKAGE__->attr('ctx');
|
||||
|
||||
sub AUTOLOAD {
|
||||
my $self = shift;
|
||||
|
||||
my $method = $AUTOLOAD;
|
||||
|
||||
return if $method =~ /^[A-Z]+?$/;
|
||||
return if $method =~ /^_/;
|
||||
return if $method =~ /(?:\:*?)DESTROY$/;
|
||||
|
||||
$method = (split '::' => $method)[-1];
|
||||
|
||||
die qq/Unknown helper: $method/ unless $self->ctx->app->renderer->helpers->{$method};
|
||||
|
||||
return $self->ctx->$method(@_);
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
package
|
||||
Mojolicious::Plugin::TtRenderer::Provider;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use base 'Template::Provider';
|
||||
use Scalar::Util 'weaken';
|
||||
|
||||
sub new {
|
||||
my $class = shift;
|
||||
my %params = @_;
|
||||
|
||||
my $renderer = delete $params{renderer};
|
||||
|
||||
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 _template_modified {
|
||||
my($self, $template) = @_;
|
||||
$self->SUPER::_template_modified($template) || $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
|
||||
if(defined $options) {
|
||||
$data = $self->renderer->get_data_template($options);
|
||||
} else {
|
||||
my $loader = Mojo::Loader->new;
|
||||
foreach my $class (@{ $self->renderer->classes }) {
|
||||
$data = $loader->data($class, $t);
|
||||
last if $data;
|
||||
}
|
||||
}
|
||||
|
||||
unless($data) {
|
||||
$data = '';
|
||||
$error = "$path: not found";
|
||||
}
|
||||
return wantarray ? ($data, $error, time) : $data;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=encoding utf-8
|
||||
|
||||
=begin stopwords
|
||||
|
||||
Bjørn
|
||||
Szász
|
||||
Árpád
|
||||
|
||||
=end stopwords
|
||||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
Add the handler:
|
||||
|
||||
sub startup {
|
||||
...
|
||||
|
||||
# Via mojolicious plugin
|
||||
$self->plugin(tt_renderer => {template_options => {FILTERS => [ ... ]}});
|
||||
|
||||
# Or manually
|
||||
use Mojolicious::Plugin::TtRenderer::Engine;
|
||||
|
||||
my $tt = Mojolicious::Plugin::TtRenderer::Engine->build(
|
||||
mojo => $self,
|
||||
template_options => {
|
||||
PROCESS => 'tpl/wrapper',
|
||||
FILTERS => [ ... ],
|
||||
UNICODE => 1,
|
||||
ENCODING => 'UTF-8',
|
||||
}
|
||||
);
|
||||
|
||||
$self->renderer->add_handler( tt => $tt );
|
||||
}
|
||||
|
||||
Template parameter are taken from C<$c-E<gt>stash>.
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
See L<Mojolicious::Plugin::TtRenderer> for details on the plugin interface to this module.
|
||||
|
||||
This module provides an engine for the rendering of L<Template Toolkit|Template> templates
|
||||
within a Mojolicious context. Templates may be, stored on the local file system, provided
|
||||
inline by the controller or included in the C<__DATA__> section. Where possible this modules
|
||||
attempts to provide a TT analogue interface to the L<Perlish templates|Mojo::Template> which
|
||||
come with Mojolicious.
|
||||
|
||||
=head1 RENDERING
|
||||
|
||||
The template file for C<"example/welcome"> would be C<"templates/welcome.html.tt">.
|
||||
|
||||
When template file is not available rendering from C<__DATA__> is attempted.
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ welcome.html.tt
|
||||
Welcome, [% user.name %]!
|
||||
|
||||
Inline template is also supported:
|
||||
|
||||
$self->render(inline => '[% 1 + 1 %]', handler => 'tt');
|
||||
|
||||
=head1 HELPERS
|
||||
|
||||
Helpers are exported automatically under C<h> namespace.
|
||||
|
||||
[% h.url_for('index') %]
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 build
|
||||
|
||||
This method returns a handler for the Mojolicious renderer.
|
||||
|
||||
Supported parameters are
|
||||
|
||||
=over 4
|
||||
|
||||
=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
|
||||
|
||||
=item template_options
|
||||
|
||||
A hash reference of options that are passed to Template->new(). Note that if you
|
||||
specify an C<INCLUDE_PATH> through this option it will remove the DATA section
|
||||
templates from your path. A better way to specify an C<INCLUDE_PATH> if you also
|
||||
want to use DATA section templates it by manipulating the L<Mojolicious::Renderer>
|
||||
path.
|
||||
|
||||
=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 SEE ALSO
|
||||
|
||||
L<Mojolicious::Plugin::TtRenderer>,
|
||||
L<Mojolicious>,
|
||||
L<Mojolicious::Guides>,
|
||||
L<http://mojolicious.org>.
|
||||
|
||||
=cut
|
||||
@@ -1,9 +0,0 @@
|
||||
#!perl
|
||||
|
||||
use Test::More tests => 1;
|
||||
|
||||
BEGIN {
|
||||
use_ok( 'MojoX::Renderer::TT' );
|
||||
}
|
||||
|
||||
diag( "Testing MojoX::Renderer::TT $MojoX::Renderer::TT::VERSION, Perl $], $^X" );
|
||||
13
t/00_diag.pl
Normal file
13
t/00_diag.pl
Normal file
@@ -0,0 +1,13 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
use Mojo::IOLoop;
|
||||
|
||||
our $format;
|
||||
|
||||
my $loop = eval { Mojo::IOLoop->singleton };
|
||||
diag $@ if $@;
|
||||
diag sprintf $format, 'mojo io loop', ref eval { $loop->reactor };
|
||||
diag $@ if $@;
|
||||
|
||||
1;
|
||||
1
t/00_diag.pre.txt
Normal file
1
t/00_diag.pre.txt
Normal file
@@ -0,0 +1 @@
|
||||
EV
|
||||
91
t/00_diag.t
Normal file
91
t/00_diag.t
Normal file
@@ -0,0 +1,91 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Config;
|
||||
use Test::More tests => 1;
|
||||
BEGIN {
|
||||
my @modules;
|
||||
eval q{
|
||||
require FindBin;
|
||||
require File::Spec;
|
||||
1;
|
||||
} || die $@;
|
||||
do {
|
||||
my $fh;
|
||||
if(open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt')))
|
||||
{
|
||||
@modules = <$fh>;
|
||||
close $fh;
|
||||
chomp @modules;
|
||||
}
|
||||
};
|
||||
eval qq{ require $_ } for @modules;
|
||||
};
|
||||
|
||||
sub spacer ()
|
||||
{
|
||||
diag '';
|
||||
diag '';
|
||||
diag '';
|
||||
}
|
||||
|
||||
pass 'okay';
|
||||
|
||||
my @modules;
|
||||
do {
|
||||
my $fh;
|
||||
open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.txt'));
|
||||
@modules = <$fh>;
|
||||
close $fh;
|
||||
chomp @modules;
|
||||
};
|
||||
|
||||
my $max = 1;
|
||||
$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
|
||||
our $format = "%-${max}s %s";
|
||||
|
||||
spacer;
|
||||
|
||||
my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;
|
||||
|
||||
if(@keys > 0)
|
||||
{
|
||||
diag "$_=$ENV{$_}" for @keys;
|
||||
|
||||
if($ENV{PERL5LIB})
|
||||
{
|
||||
spacer;
|
||||
diag "PERL5LIB path";
|
||||
diag $_ for split $Config{path_sep}, $ENV{PERL5LIB};
|
||||
|
||||
}
|
||||
elsif($ENV{PERLLIB})
|
||||
{
|
||||
spacer;
|
||||
diag "PERLLIB path";
|
||||
diag $_ for split $Config{path_sep}, $ENV{PERLLIB};
|
||||
}
|
||||
|
||||
spacer;
|
||||
}
|
||||
|
||||
diag sprintf $format, 'perl ', $^V;
|
||||
|
||||
require(File::Spec->catfile($FindBin::Bin, '00_diag.pl'))
|
||||
if -e File::Spec->catfile($FindBin::Bin, '00_diag.pl');
|
||||
|
||||
foreach my $module (@modules)
|
||||
{
|
||||
if(eval qq{ require $module; 1 })
|
||||
{
|
||||
my $ver = eval qq{ \$$module\::VERSION };
|
||||
$ver = 'undef' unless defined $ver;
|
||||
diag sprintf $format, $module, $ver;
|
||||
}
|
||||
else
|
||||
{
|
||||
diag sprintf $format, $module, '-';
|
||||
}
|
||||
}
|
||||
|
||||
spacer;
|
||||
|
||||
7
t/00_diag.txt
Normal file
7
t/00_diag.txt
Normal file
@@ -0,0 +1,7 @@
|
||||
EV
|
||||
Module::Build
|
||||
Mojolicious
|
||||
POSIX
|
||||
Template
|
||||
Template::Provider
|
||||
Test::More
|
||||
7
t/00_load.t
Normal file
7
t/00_load.t
Normal file
@@ -0,0 +1,7 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 2;
|
||||
|
||||
use_ok( 'Mojolicious::Plugin::TtRenderer' );
|
||||
use_ok( 'Mojolicious::Plugin::TtRenderer::Engine' );
|
||||
|
||||
69
t/deep_recursion.t
Normal file
69
t/deep_recursion.t
Normal file
@@ -0,0 +1,69 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
#BEGIN { $ENV{MOJO_MODE}='testing'; };
|
||||
|
||||
use utf8;
|
||||
|
||||
use Test::More;
|
||||
|
||||
use Mojolicious::Lite;
|
||||
use Test::Mojo;
|
||||
use File::Temp qw( tempdir );
|
||||
use File::Spec;
|
||||
|
||||
if($Mojolicious::VERSION >= 4.0)
|
||||
{
|
||||
plan skip_all => 'test broken in mojo 4.0';
|
||||
}
|
||||
else
|
||||
{
|
||||
plan tests => 3;
|
||||
}
|
||||
|
||||
# Send log to tmp file so that it doesn't clutter up the screen.
|
||||
app->log->level('fatal');
|
||||
app->log->path(do {
|
||||
File::Spec->catfile(tempdir(CLEANUP => 1), 'mojo.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 + % %]
|
||||
52
t/default_handler_as_engine.t
Normal file
52
t/default_handler_as_engine.t
Normal file
@@ -0,0 +1,52 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 9;
|
||||
use Test::Mojo;
|
||||
use File::Temp qw( tempdir );
|
||||
use FindBin '$Bin';
|
||||
|
||||
use Mojolicious::Lite;
|
||||
use Mojolicious::Plugin::TtRenderer::Engine ();
|
||||
|
||||
my $tt = Mojolicious::Plugin::TtRenderer::Engine->build(
|
||||
mojo => app,
|
||||
template_options => {
|
||||
UNICODE => 1,
|
||||
ENCODING => 'UTF-8',
|
||||
#INCLUDE_PATH => "$Bin/templates",
|
||||
COMPILE_DIR => tempdir( CLEANUP => 1 ),
|
||||
}
|
||||
);
|
||||
|
||||
app->renderer->add_handler(tt => $tt);
|
||||
app->renderer->default_handler('tt');
|
||||
|
||||
get '/' => sub {
|
||||
die 'foo';
|
||||
};
|
||||
|
||||
get '/bar' => 'bar';
|
||||
|
||||
get '/grimlock' => 'grimlock';
|
||||
|
||||
my $t = Test::Mojo->new;
|
||||
|
||||
$t->get_ok('/')
|
||||
->status_is(500)
|
||||
->content_like(qr{foo});
|
||||
|
||||
$t->get_ok('/bar')
|
||||
->status_is(200)
|
||||
->content_like(qr{bar});
|
||||
|
||||
$t->get_ok('/grimlock')
|
||||
->status_is(200)
|
||||
->content_like(qr{King});
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ index.html.tt
|
||||
anything
|
||||
|
||||
@@ bar.html.tt
|
||||
sometimes, the bar, he eats you...
|
||||
53
t/default_handler_as_plugin.t
Normal file
53
t/default_handler_as_plugin.t
Normal file
@@ -0,0 +1,53 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 9;
|
||||
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';
|
||||
};
|
||||
|
||||
get '/bar' => 'bar';
|
||||
|
||||
get '/grimlock' => 'grimlock';
|
||||
|
||||
my $t = Test::Mojo->new;
|
||||
|
||||
$t->get_ok('/')
|
||||
->status_is(500)
|
||||
->content_like(qr{foo});
|
||||
|
||||
$t->get_ok('/bar')
|
||||
->status_is(200)
|
||||
->content_like(qr{bar});
|
||||
|
||||
$t->get_ok('/grimlock')
|
||||
->status_is(200)
|
||||
->content_like(qr{King});
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ index.html.tt
|
||||
anything
|
||||
|
||||
@@ bar.html.tt
|
||||
sometimes, the bar, he eats you...
|
||||
|
||||
40
t/default_handler_no_templates_dir.t
Normal file
40
t/default_handler_no_templates_dir.t
Normal file
@@ -0,0 +1,40 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use File::Temp qw( tempdir );
|
||||
BEGIN { $ENV{MOJO_HOME} = tempdir( CLEANUP => 1) }
|
||||
use Test::More tests => 6;
|
||||
use Test::Mojo;
|
||||
|
||||
use Mojolicious::Lite;
|
||||
plugin 'tt_renderer' => { template_options => { COMPILE_DIR => tempdir( CLEANUP => 1 ) } };
|
||||
app->renderer->default_handler('tt');
|
||||
|
||||
get '/' => sub {
|
||||
die 'foo';
|
||||
};
|
||||
|
||||
get '/bar' => 'bar';
|
||||
|
||||
my $t = Test::Mojo->new;
|
||||
|
||||
$t->get_ok('/')
|
||||
->status_is(500)
|
||||
->content_like(qr{foo});
|
||||
|
||||
$t->app->log->on(message => sub {
|
||||
my($log, $level, @lines) = @_;
|
||||
diag @lines if $level eq 'error';
|
||||
});
|
||||
|
||||
$t->get_ok('/bar')
|
||||
->status_is(200)
|
||||
->content_like(qr{sometimes, the bar,});
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ index.html.tt
|
||||
anything
|
||||
|
||||
@@ bar.html.tt
|
||||
sometimes, the bar, he eats you...
|
||||
|
||||
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
|
||||
|
||||
|
||||
37
t/lite_app_with_default_layouts.t
Normal file
37
t/lite_app_with_default_layouts.t
Normal file
@@ -0,0 +1,37 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
BEGIN { $ENV{MOJO_MODE}='testing'; };
|
||||
|
||||
use utf8;
|
||||
|
||||
use Test::More tests => 3;
|
||||
|
||||
use Mojolicious::Lite;
|
||||
use Mojo::ByteStream 'b';
|
||||
use Test::Mojo;
|
||||
use File::Temp qw( tempdir );
|
||||
|
||||
# Silence
|
||||
app->log->level('fatal');
|
||||
|
||||
use_ok('Mojolicious::Plugin::TtRenderer::Engine');
|
||||
|
||||
plugin 'tt_renderer' => {template_options => {PRE_CHOMP => 1, POST_CHOMP => 1, TRIM => 1, COMPILE_DIR => tempdir( CLEANUP => 1 ) }};
|
||||
app->defaults(layout => 'wrapper');
|
||||
|
||||
get '/test' => 'test';
|
||||
|
||||
my $t = Test::Mojo->new;
|
||||
|
||||
$t->get_ok('/test')->content_is("WS-hello-EW");
|
||||
|
||||
__DATA__
|
||||
|
||||
@@ test.html.tt
|
||||
hello
|
||||
|
||||
@@ layouts/wrapper.html.tt
|
||||
WS-[%- content -%]-EW
|
||||
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/);
|
||||
|
||||
@@ -1,18 +0,0 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
|
||||
# Ensure a recent version of Test::Pod::Coverage
|
||||
my $min_tpc = 1.08;
|
||||
eval "use Test::Pod::Coverage $min_tpc";
|
||||
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
|
||||
if $@;
|
||||
|
||||
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
|
||||
# but older versions don't recognize some common documentation styles
|
||||
my $min_pc = 0.18;
|
||||
eval "use Pod::Coverage $min_pc";
|
||||
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
|
||||
if $@;
|
||||
|
||||
all_pod_coverage_ok();
|
||||
12
t/pod.t
12
t/pod.t
@@ -1,12 +0,0 @@
|
||||
#!perl -T
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
|
||||
# Ensure a recent version of Test::Pod
|
||||
my $min_tp = 1.22;
|
||||
eval "use Test::Pod $min_tp";
|
||||
plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
|
||||
|
||||
all_pod_files_ok();
|
||||
15
t/templates/Foo.pm
Normal file
15
t/templates/Foo.pm
Normal file
@@ -0,0 +1,15 @@
|
||||
package
|
||||
Foo;
|
||||
use strict;
|
||||
use warnings;
|
||||
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/grimlock.html.tt
Normal file
1
t/templates/grimlock.html.tt
Normal file
@@ -0,0 +1 @@
|
||||
Me Grimlock King!
|
||||
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;
|
||||
unless Mojo::IOLoop::Server->new->generate_port;
|
||||
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 - (templates\/)?doesnotexist\.tt: (No such file or directory|not found)/);
|
||||
|
||||
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' -%]
|
||||
9
xt/release/build_environment.t
Normal file
9
xt/release/build_environment.t
Normal file
@@ -0,0 +1,9 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More tests => 1;
|
||||
|
||||
SKIP: {
|
||||
eval q{ use Dist::Zilla::PluginBundle::Author::Plicease };
|
||||
skip '[@Plicease] is not installed', 1 if $@;
|
||||
ok $Dist::Zilla::PluginBundle::Author::Plicease::VERSION >= 1.45, '[@Plicease] >= 1.45';
|
||||
}
|
||||
27
xt/release/changes.t
Normal file
27
xt/release/changes.t
Normal file
@@ -0,0 +1,27 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
BEGIN {
|
||||
plan skip_all => 'test requires Test::CPAN::Changes'
|
||||
unless eval q{ use Test::CPAN::Changes; 1 };
|
||||
};
|
||||
use Test::CPAN::Changes;
|
||||
use FindBin;
|
||||
use File::Spec;
|
||||
|
||||
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
|
||||
do {
|
||||
my $old = \&Test::Builder::carp;
|
||||
my $new = sub {
|
||||
my($self, @messages) = @_;
|
||||
return if $messages[0] =~ /^Date ".*" is not in the recommend format/;
|
||||
$old->($self, @messages);
|
||||
};
|
||||
no warnings 'redefine';
|
||||
*Test::Builder::carp = $new;
|
||||
};
|
||||
|
||||
changes_file_ok;
|
||||
|
||||
done_testing;
|
||||
14
xt/release/eol.t
Normal file
14
xt/release/eol.t
Normal file
@@ -0,0 +1,14 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
BEGIN {
|
||||
plan skip_all => 'test requires Test::EOL'
|
||||
unless eval q{ use Test::EOL; 1 };
|
||||
};
|
||||
use Test::EOL;
|
||||
use FindBin;
|
||||
use File::Spec;
|
||||
|
||||
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
|
||||
all_perl_files_ok(grep { -e $_ } qw( bin lib t Makefile.PL ));
|
||||
19
xt/release/fixme.t
Normal file
19
xt/release/fixme.t
Normal file
@@ -0,0 +1,19 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
BEGIN {
|
||||
plan skip_all => 'test requires Test::Fixme'
|
||||
unless eval q{ use Test::Fixme 0.14; 1 };
|
||||
};
|
||||
use Test::Fixme 0.07;
|
||||
use FindBin;
|
||||
use File::Spec;
|
||||
|
||||
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
|
||||
run_tests(
|
||||
match => qr/FIXME/,
|
||||
where => [ grep { -e $_ } qw( bin lib t Makefile.PL )],
|
||||
warn => 1,
|
||||
);
|
||||
|
||||
15
xt/release/no_tabs.t
Normal file
15
xt/release/no_tabs.t
Normal file
@@ -0,0 +1,15 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
BEGIN {
|
||||
plan skip_all => 'test requires Test::NoTabs'
|
||||
unless eval q{ use Test::NoTabs; 1 };
|
||||
};
|
||||
use Test::NoTabs;
|
||||
use FindBin;
|
||||
use File::Spec;
|
||||
|
||||
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
|
||||
all_perl_files_ok( grep { -e $_ } qw( bin lib t Makefile.PL ));
|
||||
|
||||
15
xt/release/pod.t
Normal file
15
xt/release/pod.t
Normal file
@@ -0,0 +1,15 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
BEGIN {
|
||||
plan skip_all => 'test requires Test::Pod'
|
||||
unless eval q{ use Test::Pod; 1 };
|
||||
};
|
||||
use Test::Pod;
|
||||
use FindBin;
|
||||
use File::Spec;
|
||||
|
||||
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
|
||||
all_pod_files_ok( grep { -e $_ } qw( bin lib ));
|
||||
|
||||
72
xt/release/pod_coverage.t
Normal file
72
xt/release/pod_coverage.t
Normal file
@@ -0,0 +1,72 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
BEGIN {
|
||||
plan skip_all => 'test requires Test::Pod::Coverage'
|
||||
unless eval q{ use Test::Pod::Coverage; 1 };
|
||||
plan skip_all => 'test requires YAML'
|
||||
unless eval q{ use YAML; 1; };
|
||||
};
|
||||
use Test::Pod::Coverage;
|
||||
use YAML qw( LoadFile );
|
||||
use FindBin;
|
||||
use File::Spec;
|
||||
|
||||
my $config_filename = File::Spec->catfile(
|
||||
$FindBin::Bin, 'release.yml'
|
||||
);
|
||||
|
||||
my $config;
|
||||
$config = LoadFile($config_filename)
|
||||
if -r $config_filename;
|
||||
|
||||
plan skip_all => 'disabled' if $config->{pod_coverage}->{skip};
|
||||
|
||||
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
|
||||
my @private_classes;
|
||||
my %private_methods;
|
||||
|
||||
push @{ $config->{pod_coverage}->{private} },
|
||||
'Alien::.*::Install::Files#Inline';
|
||||
|
||||
foreach my $private (@{ $config->{pod_coverage}->{private} })
|
||||
{
|
||||
my($class,$method) = split /#/, $private;
|
||||
if(defined $class && $class ne '')
|
||||
{
|
||||
my $regex = eval 'qr{^' . $class . '$}';
|
||||
if(defined $method && $method ne '')
|
||||
{
|
||||
push @private_classes, { regex => $regex, method => $method };
|
||||
}
|
||||
else
|
||||
{
|
||||
push @private_classes, { regex => $regex, all => 1 };
|
||||
}
|
||||
}
|
||||
elsif(defined $method && $method ne '')
|
||||
{
|
||||
$private_methods{$_} = 1 for split /,/, $method;
|
||||
}
|
||||
}
|
||||
|
||||
my @classes = all_modules;
|
||||
|
||||
plan tests => scalar @classes;
|
||||
|
||||
foreach my $class (@classes)
|
||||
{
|
||||
SKIP: {
|
||||
my($is_private_class) = map { 1 } grep { $class =~ $_->{regex} && $_->{all} } @private_classes;
|
||||
skip "private class: $class", 1 if $is_private_class;
|
||||
|
||||
my %methods = map {; $_ => 1 } map { split /,/, $_->{method} } grep { $class =~ $_->{regex} } @private_classes;
|
||||
$methods{$_} = 1 for keys %private_methods;
|
||||
|
||||
my $also_private = eval 'qr{^' . join('|', keys %methods ) . '$}';
|
||||
|
||||
pod_coverage_ok $class, { also_private => [$also_private] };
|
||||
};
|
||||
}
|
||||
|
||||
27
xt/release/pod_spelling_common.t
Normal file
27
xt/release/pod_spelling_common.t
Normal file
@@ -0,0 +1,27 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
BEGIN {
|
||||
plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes'
|
||||
unless eval q{ use Test::Pod::Spelling::CommonMistakes; 1 };
|
||||
plan skip_all => 'test requires YAML'
|
||||
unless eval q{ use YAML qw( LoadFile ); 1 };
|
||||
};
|
||||
use Test::Pod::Spelling::CommonMistakes;
|
||||
use FindBin;
|
||||
use File::Spec;
|
||||
|
||||
my $config_filename = File::Spec->catfile(
|
||||
$FindBin::Bin, 'release.yml'
|
||||
);
|
||||
|
||||
my $config;
|
||||
$config = LoadFile($config_filename)
|
||||
if -r $config_filename;
|
||||
|
||||
plan skip_all => 'disabled' if $config->{pod_spelling_common}->{skip};
|
||||
|
||||
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
|
||||
# FIXME test files in bin too.
|
||||
all_pod_files_ok;
|
||||
101
xt/release/pod_spelling_system.t
Normal file
101
xt/release/pod_spelling_system.t
Normal file
@@ -0,0 +1,101 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
BEGIN {
|
||||
plan skip_all => 'test requires Test::Spelling'
|
||||
unless eval q{ use Test::Spelling; 1 };
|
||||
plan skip_all => 'test requires YAML'
|
||||
unless eval q{ use YAML; 1; };
|
||||
};
|
||||
use Test::Spelling;
|
||||
use YAML qw( LoadFile );
|
||||
use FindBin;
|
||||
use File::Spec;
|
||||
|
||||
my $config_filename = File::Spec->catfile(
|
||||
$FindBin::Bin, 'release.yml'
|
||||
);
|
||||
|
||||
my $config;
|
||||
$config = LoadFile($config_filename)
|
||||
if -r $config_filename;
|
||||
|
||||
plan skip_all => 'disabled' if $config->{pod_spelling_system}->{skip};
|
||||
|
||||
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
|
||||
add_stopwords(@{ $config->{pod_spelling_system}->{stopwords} });
|
||||
add_stopwords(<DATA>);
|
||||
all_pod_files_spelling_ok;
|
||||
|
||||
__DATA__
|
||||
Plicease
|
||||
stdout
|
||||
stderr
|
||||
stdin
|
||||
subref
|
||||
loopback
|
||||
username
|
||||
os
|
||||
Ollis
|
||||
Mojolicious
|
||||
plicease
|
||||
CPAN
|
||||
reinstall
|
||||
TODO
|
||||
filename
|
||||
filenames
|
||||
login
|
||||
callback
|
||||
callbacks
|
||||
standalone
|
||||
VMS
|
||||
hostname
|
||||
hostnames
|
||||
TCP
|
||||
UDP
|
||||
IP
|
||||
API
|
||||
MSWin32
|
||||
OpenBSD
|
||||
FreeBSD
|
||||
NetBSD
|
||||
unencrypted
|
||||
WebSocket
|
||||
WebSockets
|
||||
timestamp
|
||||
timestamps
|
||||
poney
|
||||
BackPAN
|
||||
portably
|
||||
RedHat
|
||||
AIX
|
||||
BSD
|
||||
XS
|
||||
FFI
|
||||
perlish
|
||||
optimizations
|
||||
subdirectory
|
||||
RESTful
|
||||
SQLite
|
||||
JavaScript
|
||||
dir
|
||||
plugins
|
||||
munge
|
||||
jQuery
|
||||
namespace
|
||||
PDF
|
||||
PDFs
|
||||
usernames
|
||||
DBI
|
||||
pluggable
|
||||
APIs
|
||||
SSL
|
||||
JSON
|
||||
YAML
|
||||
uncommented
|
||||
Solaris
|
||||
OpenVMS
|
||||
URI
|
||||
URL
|
||||
CGI
|
||||
36
xt/release/release.yml
Normal file
36
xt/release/release.yml
Normal file
@@ -0,0 +1,36 @@
|
||||
---
|
||||
pod_spelling_system:
|
||||
# list of words that are spelled correctly
|
||||
# (regardless of what spell check thinks)
|
||||
stopwords:
|
||||
- Bethke
|
||||
- Cosimo
|
||||
- Crowther
|
||||
- Holm
|
||||
- Htbaa
|
||||
- Kitover
|
||||
- Magnus
|
||||
- Mojo
|
||||
- Ramberg
|
||||
- Streppone
|
||||
- Vuets
|
||||
- dir
|
||||
- giftnuss
|
||||
- mojo
|
||||
- namespace
|
||||
- renderer
|
||||
- spleenjack
|
||||
- vti
|
||||
- app's
|
||||
- renderer's
|
||||
- Toolkit's
|
||||
- Fayland
|
||||
- TT
|
||||
- uwisser
|
||||
|
||||
pod_coverage:
|
||||
# format is "Class#method" or "Class", regex allowed
|
||||
# for either Class or method.
|
||||
private:
|
||||
- Mojolicious::Plugin::TtRenderer#register
|
||||
- Mojolicious::Plugin::TtRenderer::Engine#tt
|
||||
15
xt/release/strict.t
Normal file
15
xt/release/strict.t
Normal file
@@ -0,0 +1,15 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
BEGIN {
|
||||
plan skip_all => 'test requires Test::Strict'
|
||||
unless eval q{ use Test::Strict; 1 };
|
||||
};
|
||||
use Test::Strict;
|
||||
use FindBin;
|
||||
use File::Spec;
|
||||
|
||||
chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
|
||||
|
||||
all_perl_files_ok( grep { -e $_ } qw( bin lib t Makefile.PL ));
|
||||
|
||||
63
xt/release/unused_vars.t
Normal file
63
xt/release/unused_vars.t
Normal file
@@ -0,0 +1,63 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
BEGIN { plan skip_all => 'test requires Test::Vars ' unless eval q{ use Test::Vars; 1 } }
|
||||
BEGIN { plan skip_all => 'test requires Path::Class' unless eval q{ use Path::Class::Dir; 1 } }
|
||||
BEGIN { plan skip_all => 'test requires YAML' unless eval q{ use YAML; 1 } }
|
||||
|
||||
my $dir = Path::Class::Dir->new(__FILE__)->parent->parent->parent;
|
||||
my $config = YAML::LoadFile($dir->file(qw( xt release release.yml )));
|
||||
|
||||
plan skip_all => 'disabled' unless defined $config->{unused_vars}->{skip} && !$config->{unused_vars}->{skip};
|
||||
|
||||
my @modules;
|
||||
recurse($dir->subdir('lib'));
|
||||
|
||||
sub recurse
|
||||
{
|
||||
my $dir = shift;
|
||||
foreach my $child ($dir->children)
|
||||
{
|
||||
if($child->is_dir)
|
||||
{
|
||||
recurse($child);
|
||||
}
|
||||
else
|
||||
{
|
||||
push @modules, $child if $child->basename =~ /\.pm$/;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
plan tests => scalar @modules;
|
||||
|
||||
my %global = (
|
||||
ignore_vars => { map { $_ => 1 } @{ $config->{unused_vars}->{global}->{ignore_vars} } },
|
||||
);
|
||||
if(defined $config->{unused_vars}->{global}->{ignore_if})
|
||||
{
|
||||
$global{ignore_if} = eval $config->{unused_vars}->{global}->{ignore_if};
|
||||
die $@ if $@;
|
||||
}
|
||||
|
||||
foreach my $file (@modules)
|
||||
{
|
||||
my @mod = $file->components;
|
||||
shift @mod; # get rid of '.';
|
||||
shift @mod; # get rid of 'lib';
|
||||
$mod[-1] =~ s/\.pm$//;
|
||||
my $mod = join '::', @mod;
|
||||
|
||||
my %local = %global;
|
||||
foreach my $ignore (@{ $config->{unused_vars}->{module}->{$mod}->{ignore_vars} || []})
|
||||
{
|
||||
$local{ignore_vars}->{$ignore} = 1;
|
||||
}
|
||||
if(defined $config->{unused_vars}->{module}->{$mod}->{ignore_if})
|
||||
{
|
||||
$local{ignore_if} = eval $config->{unused_vars}->{module}->{$mod}->{ignore_if};
|
||||
die $@ if $@;
|
||||
}
|
||||
|
||||
vars_ok($file, %local);
|
||||
}
|
||||
36
xt/release/version.t
Normal file
36
xt/release/version.t
Normal file
@@ -0,0 +1,36 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
use FindBin ();
|
||||
BEGIN {
|
||||
plan skip_all => "test requires Test::Version 1.001001"
|
||||
unless eval q{ use Test::Version 1.001001 qw( version_all_ok ), { has_version => 1 }; 1 };
|
||||
plan skip_all => "test requires Path::Class"
|
||||
unless eval q{ use Path::Class qw( file dir ); 1 };
|
||||
plan skip_all => 'test requires YAML'
|
||||
unless eval q{ use YAML; 1; };
|
||||
}
|
||||
|
||||
use YAML qw( LoadFile );
|
||||
use FindBin;
|
||||
use File::Spec;
|
||||
|
||||
plan skip_all => "test not built yet (run dzil test)"
|
||||
unless -e dir( $FindBin::Bin)->parent->parent->file('Makefile.PL')
|
||||
|| -e dir( $FindBin::Bin)->parent->parent->file('Build.PL');
|
||||
|
||||
my $config_filename = File::Spec->catfile(
|
||||
$FindBin::Bin, 'release.yml'
|
||||
);
|
||||
|
||||
my $config;
|
||||
$config = LoadFile($config_filename)
|
||||
if -r $config_filename;
|
||||
|
||||
if($config->{version}->{dir})
|
||||
{
|
||||
note "using dir " . $config->{version}->{dir}
|
||||
}
|
||||
|
||||
version_all_ok($config->{version}->{dir} ? ($config->{version}->{dir}) : ());
|
||||
done_testing;
|
||||
Reference in New Issue
Block a user