add ability to pass html through (in TR)

jrockway · Sep 22, 2008 · 6307f52 · 6307f52
1 parent 54dfcbd
commit 6307f52
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 1 deletion.
diff --git a/lib/Ernst/Description/Trait/PassthroughHTML.pm b/lib/Ernst/Description/Trait/PassthroughHTML.pm
@@ -0,0 +1,11 @@
+package Ernst::Description::Trait::PassthroughHTML;
+use Moose::Role;
+
+has 'pass_html' => (
+    is       => 'ro',
+    isa      => 'Bool',
+    default  => sub { 1 },
+    required => 1,
+);
+
+1;
diff --git a/lib/Ernst/Interpreter/TRForm/Trait/Value.pm b/lib/Ernst/Interpreter/TRForm/Trait/Value.pm
@@ -34,7 +34,19 @@ around transform_attribute => sub {
 
                 else {
                     $copy->removeChildNodes;
-                    $copy->addChild( XML::LibXML::Text->new($value) );
+
+                    if( $attribute->metadescription->
+                          does('Ernst::Description::Trait::PassthroughHTML') &&
+                            $attribute->metadescription->pass_html ){
+
+                        my $v = Template::Refine::Fragment->new_from_string(
+                            $value,
+                        );
+                        $copy->addChild( $v->fragment );
+                    }
+                    else {
+                        $copy->addChild( XML::LibXML::Text->new($value) );
+                    }
                 }
 
                 return $copy;