SL::Locale::String: ne überladen

diff --git a/SL/Locale/String.pm b/SL/Locale/String.pm
index 63a5323..7229743 100644 (file)
--- a/SL/Locale/String.pm
+++ b/SL/Locale/String.pm
@@ -13,7 +13,8 @@ our @EXPORT = qw(t8);
 
 use overload
   '""' => \&translated,
-  eq   => \&my_eq;
+  eq   => \&my_eq,
+  ne   => \&my_ne;
 
 sub translated {
   my ($self) = @_;
@@ -31,6 +32,10 @@ sub my_eq {
   $_[1] eq $_[0]->translated;
 }
 
+sub my_ne {
+  $_[1] ne $_[0]->translated;
+}
+
 sub TO_JSON {
   return $_[0]->translated;
 }