view release on metacpan or  search on metacpan

t/03subname.t  view on Meta::CPAN

is(
	Sub::Identify::sub_name( \&Foo ),
	'__ANON__',
	'sub name is correct for exported subs',
);

# Catch exception
my $e = do {
	local $@;
#line 45 "03subname.t"
	eval { Foo(); 1 } ? undef : $@;
};

like(
	$e,
	qr{\ADIED at 03subname.t line 4[456]}, # allow a small margin of error
	'file name and line number reported correctly in exceptions',
);