#!/usr/bin/perl
use
strict;
use
warnings;
undef
$@;
eval
{
require
"parse_error"
};
ok( $@,
"template parse errors are fatal"
);
like( $@,
qr/parse error/
,
"error is correct"
);
undef
$@;
eval
{
require
"undef_var"
};
ok( $@,
"undef vars die"
);
like( $@,
qr/undef error/
,
"error is correct"
);
undef
$@;
eval
{
require
"undef_ok"
};
ok( !$@,
"undef vars don't die if you override the DEBUG attr"
);