From: Sven Schöling Date: Tue, 5 May 2015 08:32:18 +0000 (+0200) Subject: Locale: eq-overload für t8 Objekte X-Git-Tag: release-3.3.0beta~104 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=054633019b5bf3df798cc31a82dc2c8608a72316;p=kivitendo-erp.git Locale: eq-overload für t8 Objekte --- diff --git a/SL/Locale/String.pm b/SL/Locale/String.pm index e05ae6abe..63a53231b 100644 --- a/SL/Locale/String.pm +++ b/SL/Locale/String.pm @@ -11,7 +11,9 @@ use Rose::Object::MakeMethods::Generic ( our @EXPORT = qw(t8); -use overload '""' => \&translated; +use overload + '""' => \&translated, + eq => \&my_eq; sub translated { my ($self) = @_; @@ -25,6 +27,10 @@ sub t8 { return SL::Locale::String->new(untranslated => $string, args => [ @_ ]); } +sub my_eq { + $_[1] eq $_[0]->translated; +} + sub TO_JSON { return $_[0]->translated; }