use strict;
use warnings;
{
package TEST;
use parent qw(Locale::Maketext);
}
{
package TEST::en;
use parent -norequire, qw(TEST);
our %Lexicon = (
_AUTO => 1,
);
}
package main;
use strict;
use warnings;
use Test::More tests => 12;
my $lh = TEST->get_handle('en');
$@ = "foo";
is($lh->maketext("This works fine"), "This works fine", "straight forward _AUTO string test");
is($@, "foo", q{$@ isn't altered during calls to maketext});
my $err = eval {
$lh->maketext('this is ] an error');
};
is($err, undef, "no return from eval");
like("$@", qr/Unbalanced\s'\]',\sin/ms, '$@ shows that ] was unbalanced');
# _try_use doesn't pollute $@
$@ = 'foo2';
is(Locale::Maketext::_try_use("This::module::does::not::exist"), 0, "0 return if module is missing when _try_use is called");
is($@, 'foo2', '$@ is unmodified by a failed _try_use');
# _try_use doesn't pollute $@ for valid call
$@ = '';
is(Locale::Maketext::_try_use("Locale::Maketext::Guts"), 1, "1 return using valid module Locale::Maketext::Guts");
is($@, '', '$@ is clean after failed _try_use');
# failure_handler_auto handles $@ locally.
{
$@ = '';
my $err = '';
$lh->{failure_lex}->{"foo_fail"} = sub {die("fail message");};
$err = eval {$lh->failure_handler_auto("foo_fail")};
is($err, undef, "die event calling failure_handler on bad code");
like($@, qr/^Error in maketexting "foo_fail":/ms, "\$@ is re-written as expected.");
}
$@ = 'foo';
is($lh->maketext('Eval error: [_1]', $@), 'Eval error: foo', "Make sure \$@ is localized when passed to maketext");
is($@, 'foo', "\$@ wasn't modified during call");