The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

#!/usr/bin/perl
use strict;
use Test::More tests => 5;
use lib "t/files";
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" );