v1.42_02

- only create COMPILE_DIR based on UID if the user doesn't specify COMPILE_DIR

Changes

@@ -2,6 +2,18 @@ Revision history for Mojolicious::Plugin::TtRenderer
 
 {{$NEXT}}
 
+1.42_02 February 26, 2013
+        - only create COMPILE_DIR based on UID if the user doesn't specify COMPILE_DIR
+
+1.42_01 February 24, 2013
+        - set COMPILE_DIR based on UID so that multiple users can use TtRenderer with default config
+
+1.42    February 24, 2013
+        - fix for test on solaris
+
+1.41    February 23, 2013
+        - Additional testing diagnostics
+
 1.40    February 20, 2013
         - Added diagnostic for IO loop implementation in testing
 

dist.ini

@@ -5,6 +5,8 @@ license = Perl_5
 copyright_holder = Ask Bjørn Hansen
 # copyright_year   = 2009
 
+version = 1.42_02
+
 [Prereqs]
 Mojolicious  = 3.33
 Template     = 2.18
@@ -32,8 +34,8 @@ repository.type = git
 
 [Homepage]
 
-[BumpVersionFromGit]
-version_regexp = ^release/(.*)
+;[BumpVersionFromGit]
+;version_regexp = ^release/(.*)
 
 [PkgVersion]
 

lib/Mojolicious/Plugin/TtRenderer/Engine.pm

@@ -47,7 +47,6 @@ sub _init {
     my %config = (
         INCLUDE_PATH => \@renderer_paths,
         COMPILE_EXT  => '.ttc',
-        COMPILE_DIR  => ($dir || abs_path(File::Spec->tmpdir)),
         UNICODE      => 1,
         ENCODING     => 'utf-8',
         CACHE_SIZE   => 128,
@@ -55,6 +54,12 @@ sub _init {
         %{$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};

t/default_handler_no_templates_dir.t

@@ -6,7 +6,7 @@ use Test::More tests => 6;
 use Test::Mojo;
 
 use Mojolicious::Lite;
-plugin 'tt_renderer';
+plugin 'tt_renderer' => { template_options => { COMPILE_DIR  => tempdir( CLEANUP => 1 ) } };
 app->renderer->default_handler('tt');
 
 get '/' => sub {
@@ -21,11 +21,14 @@ $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{bar});
-
-#note $t->tx->res->to_string;
+    ->content_like(qr{sometimes, the bar,});
 
 __DATA__