X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FMojoFacets%2FData.pm;h=3d1ac65352485ad49cb8c01a46dde0b4af185bcf;hb=108349b6acc28ae3a11147c598043176a2071ce9;hp=4e842ed3652ae9c332d657e432428b24e95f1f2a;hpb=e2cbc68752f08011c9735bb90107caf16752c6f9;p=MojoFacets.git

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index 4e842ed..3d1ac65 100644
--- 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;