eval code snippet on facet data

[MojoFacets.git] / lib / MojoFacets / Data.pm

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index 4e842ed..3d1ac65 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -932,6 +932,21 @@ sub facet {
                }
        }
 
+       if ( my $code = $self->param('code') ) {
+               my $out;
+               foreach my $v ( keys %$facet ) {
+                       my $c = $facet->{$v};
+                       eval $code;
+                       if ( $@ ) {
+                               $out = $@;
+                               warn "ERROR: $@\n$code\n";
+                               last;
+                       }
+               }
+               warn "out ",dump( $out );
+               $self->stash( out => $out );
+       }
+
 #      warn "# facet $name ",dump $facet;
 
        my $checked;