Refactoring: Parameterredesign SL::Controller::Base::render und SL::Presenter::render

[kivitendo-erp.git] / SL / Presenter / EscapedText.pm

diff --git a/SL/Presenter/EscapedText.pm b/SL/Presenter/EscapedText.pm
index d482e8a..c8c78a0 100644 (file)
--- a/SL/Presenter/EscapedText.pm
+++ b/SL/Presenter/EscapedText.pm
@@ -2,6 +2,8 @@ package SL::Presenter::EscapedText;
 
 use strict;
 
+use JSON ();
+
 use overload '""' => \&escaped;
 
 sub new {
@@ -20,6 +22,10 @@ sub escaped {
   return $self->{text};
 }
 
+sub TO_JSON {
+  goto &escaped;
+}
+
 1;
 __END__