Эх сурвалжийг харах

Don't attempt to static-render components

George S. Baugh 2 жил өмнө
parent
commit
4fc7ef802b

+ 1 - 0
Makefile.PL

@@ -60,6 +60,7 @@ WriteMakefile(
     'MIME::Base32::XS'          => '0',
     'MIME::Base32::XS'          => '0',
     'URI'                       => '0',
     'URI'                       => '0',
     'FindBin::libs'             => '0',
     'FindBin::libs'             => '0',
+    'Carp::Always'              => '0',
   },
   },
   test => {TESTS => 't/*.t'}
   test => {TESTS => 't/*.t'}
 );
 );

+ 3 - 2
lib/Trog/Renderer.pm

@@ -55,13 +55,14 @@ sub render ($class, %options) {
     return _yeet($renderer, "Template data not provided", %options) unless $options{data};
     return _yeet($renderer, "Template data not provided", %options) unless $options{data};
     return _yeet($renderer, "Template not provided", %options) unless $options{template};
     return _yeet($renderer, "Template not provided", %options) unless $options{template};
 
 
-    my $skip_save = !$options{data}{route} || $options{data}{has_query} || $options{data}{user} || ($options{code} // 0) != 200 || Trog::Log::is_debug();
+    #TODO future - save the components too and then compose them?
+    my $skip_save = !$options{component} || !$options{data}{route} || $options{data}{has_query} || $options{data}{user} || ($options{code} // 0) != 200 || Trog::Log::is_debug();
 
 
     my $ret;
     my $ret;
     local $@;
     local $@;
     eval {
     eval {
         $ret = $renderer->(%options);
         $ret = $renderer->(%options);
-        save_render( $options{data}, $ret->[2], $ret->[1]) unless $skip_save;
+        save_render( $options{data}, $ret->[2], %{$ret->[1]}) unless $skip_save;
         1;
         1;
     } or do {
     } or do {
         return _yeet($renderer, $@, %options);
         return _yeet($renderer, $@, %options);