Compare commits

..
8 Commits
Author SHA1 Message Date
Graham Ollis 56599bf4f7 rm unnecessary returns 2015-03-19 13:45:03 -04:00
Graham Ollis bba3793735 v1.55
- Mojo 6.x compat
2015-02-28 10:32:15 -05:00
Graham Ollis ac65e8797e update changes 2015-02-28 10:31:34 -05:00
Graham Ollis 32f8daf9cd mojo 6.x compat 2015-02-28 10:31:27 -05:00
Graham Ollis 1025d74a36 v1.54
- cpantesters: do not report on older perls
2014-12-20 10:18:14 -05:00
Graham Ollis 4203effb6b update changes 2014-12-20 10:16:02 -05:00
Graham Ollis c6276a8d78 update release tests and diagnostic 2014-12-20 10:15:34 -05:00
Graham Ollis 6dfa5560a8 do not report on older Perls 2014-12-20 10:14:21 -05:00
8 changed files with 127 additions and 104 deletions
+6
View File
@@ -2,6 +2,12 @@ Revision history for Mojolicious::Plugin::TtRenderer
{{$NEXT}} {{$NEXT}}
1.55 2015-02-28 10:31:58 -0500
- Mojo 6.x compat
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 1.53 2014-05-31 06:22:47 -0400
- Mojolicious 5.0 support - Mojolicious 5.0 support
+4 -4
View File
@@ -187,11 +187,11 @@ distribution, including the support files required for the full
# AUTHOR # AUTHOR
original author: Ask Bjørn Hansen Original author: Ask Bjørn Hansen
current maintainer: Graham Ollis <plicease@cpan.org> Current maintainer: Graham Ollis <plicease@cpan.org>
contributors: Contributors:
vti vti
@@ -225,7 +225,7 @@ uwisser
# COPYRIGHT AND LICENSE # COPYRIGHT AND LICENSE
This software is copyright (c) 2014 by Ask Bjørn Hansen. This software is copyright (c) 2015 by Ask Bjørn Hansen.
This is free software; you can redistribute it and/or modify it under This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself. the same terms as the Perl 5 programming language system itself.
+3 -2
View File
@@ -5,7 +5,7 @@ license = Perl_5
copyright_holder = Ask Bjørn Hansen copyright_holder = Ask Bjørn Hansen
# copyright_year = 2009 # copyright_year = 2009
version = 1.53 version = 1.55
[@Author::Plicease] [@Author::Plicease]
release_tests = 1 release_tests = 1
@@ -13,7 +13,7 @@ travis_status = 1
installer = ModuleBuild installer = ModuleBuild
[Prereqs] [Prereqs]
Mojolicious = 3.33 Mojolicious = 5.81
Template = 2.18 Template = 2.18
[Author::Plicease::Thanks] [Author::Plicease::Thanks]
@@ -65,3 +65,4 @@ remove = Mojo::IOLoop
remove = Mojolicious::Lite remove = Mojolicious::Lite
remove = Test::Mojo remove = Test::Mojo
[Author::Plicease::InstallerPerlVersion]
+7 -9
View File
@@ -21,7 +21,7 @@ sub build {
my $self = shift->SUPER::new(@_); my $self = shift->SUPER::new(@_);
weaken($self->{app}); weaken($self->{app});
$self->_init(@_); $self->_init(@_);
return sub { $self->_render(@_) } sub { $self->_render(@_) }
} }
sub _init { sub _init {
@@ -68,7 +68,7 @@ sub _init {
$self->tt(Template->new(\%config)) $self->tt(Template->new(\%config))
or Carp::croak "Could not initialize Template object: $Template::ERROR"; or Carp::croak "Could not initialize Template object: $Template::ERROR";
return $self; $self;
} }
sub _render { sub _render {
@@ -102,7 +102,6 @@ sub _render {
$self->tt->process(\$inline, @params); $self->tt->process(\$inline, @params);
} }
else { else {
$t =~ s{^/}{};
my @ret = $provider->fetch($t); my @ret = $provider->fetch($t);
if (not defined $ret[1]) { if (not defined $ret[1]) {
@@ -121,7 +120,7 @@ sub _render {
# Error # Error
die $self->tt->error unless $ok; die $self->tt->error unless $ok;
return 1; 1;
} }
1; # End of Mojolicious::Plugin::TtRenderer::Engine 1; # End of Mojolicious::Plugin::TtRenderer::Engine
@@ -151,7 +150,7 @@ sub AUTOLOAD {
die qq/Unknown helper: $method/ unless $self->ctx->app->renderer->helpers->{$method}; die qq/Unknown helper: $method/ unless $self->ctx->app->renderer->helpers->{$method};
return $self->ctx->$method(@_); $self->ctx->$method(@_);
} }
1; 1;
@@ -174,7 +173,7 @@ sub new {
my $self = $class->SUPER::new(%params); my $self = $class->SUPER::new(%params);
$self->renderer($renderer); $self->renderer($renderer);
weaken($self->{renderer}); weaken($self->{renderer});
return $self; $self;
} }
sub renderer { @_ > 1 ? $_[0]->{renderer} = $_[1] : $_[0]->{renderer} } sub renderer { @_ > 1 ? $_[0]->{renderer} = $_[1] : $_[0]->{renderer} }
@@ -207,9 +206,8 @@ sub _template_content {
if(defined $options) { if(defined $options) {
$data = $self->renderer->get_data_template($options); $data = $self->renderer->get_data_template($options);
} else { } else {
my $loader = Mojo::Loader->new;
foreach my $class (@{ $self->renderer->classes }) { foreach my $class (@{ $self->renderer->classes }) {
$data = $loader->data($class, $t); $data = Mojo::Loader::data_section($class, $t);
last if $data; last if $data;
} }
} }
@@ -218,7 +216,7 @@ sub _template_content {
$data = ''; $data = '';
$error = "$path: not found"; $error = "$path: not found";
} }
return wantarray ? ($data, $error, time) : $data; wantarray ? ($data, $error, time) : $data;
} }
1; 1;
+3 -1
View File
@@ -11,10 +11,12 @@ BEGIN {
} || die $@; } || die $@;
do { do {
my $fh; my $fh;
open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt')); if(open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt')))
{
@modules = <$fh>; @modules = <$fh>;
close $fh; close $fh;
chomp @modules; chomp @modules;
}
}; };
eval qq{ require $_ } for @modules; eval qq{ require $_ } for @modules;
}; };
+2 -1
View File
@@ -3,7 +3,7 @@ use warnings;
use Test::More; use Test::More;
BEGIN { BEGIN {
plan skip_all => 'test requires Test::Fixme' plan skip_all => 'test requires Test::Fixme'
unless eval q{ use Test::Fixme; 1 }; unless eval q{ use Test::Fixme 0.14; 1 };
}; };
use Test::Fixme 0.07; use Test::Fixme 0.07;
use FindBin; use FindBin;
@@ -14,5 +14,6 @@ chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
run_tests( run_tests(
match => qr/FIXME/, match => qr/FIXME/,
where => [ grep { -e $_ } qw( bin lib t Makefile.PL )], where => [ grep { -e $_ } qw( bin lib t Makefile.PL )],
warn => 1,
); );
+3
View File
@@ -27,6 +27,9 @@ chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
my @private_classes; my @private_classes;
my %private_methods; my %private_methods;
push @{ $config->{pod_coverage}->{private} },
'Alien::.*::Install::Files#Inline';
foreach my $private (@{ $config->{pod_coverage}->{private} }) foreach my $private (@{ $config->{pod_coverage}->{private} })
{ {
my($class,$method) = split /#/, $private; my($class,$method) = split /#/, $private;
+12
View File
@@ -4,11 +4,23 @@ use Test::More;
BEGIN { BEGIN {
plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes' plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes'
unless eval q{ use Test::Pod::Spelling::CommonMistakes; 1 }; 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 Test::Pod::Spelling::CommonMistakes;
use FindBin; use FindBin;
use File::Spec; 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)); chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
# FIXME test files in bin too. # FIXME test files in bin too.