For [GH #159] - $YATT->render() - add support for deep:widget:path

Author: hkoba

Lite.pm

@@ -226,9 +226,25 @@ sub render_encoded {
 }
 
 sub render_into {
-  local ($YATT, $CON) = splice @_, 0, 2;
-  $YATT->open_trans->render_into($CON, @_);
-  try_invoke($CON, 'flush_headers');
+  (my MY $self, my ($con, $file, $args)) = @_;
+  local ($YATT, $CON) = ($self, $con);
+  if (ref $file eq 'ARRAY') {
+    # [$file, $type, $item]
+    $self->open_trans->render_into($CON, $file, $args);
+  } else {
+    $self->raw_render_into(
+      $con,
+      YATT::Lite::Util::rootname($file || $self->{cf_index_name}),
+      $args,
+    );
+  }
+  try_invoke($con, 'flush_headers');
+}
+
+sub raw_render_into {
+  (local ($YATT, $CON), my ($file, $args)) = @_;
+  my ($part, $sub, $pkg) = $YATT->open_trans->find_part_renderer($file);
+  $sub->($pkg, $CON, $part->reorder_hash_params($args));
 }
 
 sub find_handler {
@@ -687,6 +703,11 @@ sub default_lang {
 
 #========================================
 # Delegation to the core(Translator, which is useless for non-templating.)
+#
+# Note: these wrappers do not call YATT::Lite::VFS->reset_refresh_mark.
+# This means once templates is compiled, it is not updated even if
+# they are modified. You can avoid this behavior by
+# directly using $YATT->open_trans->xxx instead.
 #========================================
 foreach
   (qw/find_part

Lite/Core.pm

@@ -151,6 +151,8 @@ use YATT::Lite::Breakpoint ();
 
   sub YATT::Lite::Core::Part::reorder_hash_params {
     (my Widget $widget, my ($orig_params)) = @_;
+    return unless $orig_params;
+    return @$orig_params if ref $orig_params eq 'ARRAY';
     my $params = +{%$orig_params};
     my @params;
     foreach my $name (map($_ ? @$_ : (), $widget->{arg_order})) {
@@ -356,6 +358,33 @@ sub synerror {
     wantarray ? ($part, $tmpl) : $part;
   }
 
+  sub find_part_renderer {
+    (my MY $self, my ($widgetPath, %opts)) = @_;
+    my $ignore_error = delete $opts{ignore_error};
+
+    my @wpath = ref $widgetPath ? @$widgetPath : split ":", $widgetPath;
+
+    my $part = $self->find_part_from($self->{root}, @wpath ? @wpath : '')
+      or ($ignore_error and return)
+      or croak "No such widget: ".join(":", @wpath);
+
+    my $tmpl = $part->cget('folder');
+
+    my $path = $tmpl->cget('path');
+
+    my $method = "render_".$part->cget('name');
+
+    my $pkg = $self->find_product(perl => $tmpl)
+      or ($ignore_error and return)
+	or croak "Can't compile template file: $path";
+
+    my $sub = $pkg->can($method)
+      or ($ignore_error and return)
+	or croak "Can't extract $method from file: $path";
+
+    ($part, $sub, $pkg);
+  }
+
   sub find_part_handler {
     (my MY $self, my $nameSpec, my %opts) = @_;
     my $ignore_error = delete $opts{ignore_error};