From 227230658410220b29227b98077280abf4f4a9a7 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Wed, 23 Jun 2021 13:16:45 +0200 Subject: [PATCH] =?utf8?q?SL::Locale::String:=20ne=20=C3=BCberladen?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/Locale/String.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/SL/Locale/String.pm b/SL/Locale/String.pm index 63a53231b..722974393 100644 --- 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; } -- 2.20.1