#!perl
use
strict;
use
warnings;
$No::Worries::Die::Prefix
=
"XXX"
;
sub
test ($@) {
my
(
$message
,
@arguments
) =
@_
;
dief(
$message
,
@arguments
);
}
foreach
my
$env
(
""
,
qw(whatever confess croak)
) {
if
(
$env
) {
$ENV
{NO_WORRIES} =
$env
;
}
else
{
delete
(
$ENV
{NO_WORRIES});
}
eval
{ test(
"error code: %d"
) };
is($@,
"error code: %d\n"
,
"string+$env"
);
eval
{ test(
"error code: %d"
, 123) };
is($@,
"error code: 123\n"
,
"format+$env"
);
eval
{ test(
" error code: %d\n"
, 123) };
is($@,
"error code: 123\n"
,
"spaces+$env"
);
}