our @EXPORT = qw(t8);
-use overload '""' => \&translated;
+use overload
+ '""' => \&translated,
+ eq => \&my_eq,
+ ne => \&my_ne;
sub translated {
my ($self) = @_;
shift if $_[0] eq __PACKAGE__;
my $string = shift;
- return SL::Locale::String->new(untranslated => $string, args => \@_);
+ return SL::Locale::String->new(untranslated => $string, args => [ @_ ]);
+}
+
+sub my_eq {
+ $_[1] eq $_[0]->translated;
+}
+
+sub my_ne {
+ $_[1] ne $_[0]->translated;
+}
+
+sub TO_JSON {
+ return $_[0]->translated;
}
1;