t8() Objekte auch in JSON serialisierbar machen

diff --git a/SL/Locale/String.pm b/SL/Locale/String.pm
index 7afcaa4..54b4fa0 100644 (file)
--- a/SL/Locale/String.pm
+++ b/SL/Locale/String.pm
@@ -25,6 +25,10 @@ sub t8 {
   return SL::Locale::String->new(untranslated => $string, args => \@_);
 }
 
+sub TO_JSON {
+  return $_[0]->translated;
+}
+
 1;
 __END__