X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d445880375bce1462b8f9a8b1a502b34c296d41f..442b26e2b4f442a41fbe5fa256b12c0e01219190:/SL/Presenter/EscapedText.pm

diff --git a/SL/Presenter/EscapedText.pm b/SL/Presenter/EscapedText.pm
index d482e8a30..c8c78a092 100644
--- 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__