9 my $source = <<'SOURCE';
16 my $code = eval_closure(
21 exception { $code->() },
22 qr/^foo at \(eval \d+\) line \d+\n/,
23 "no location info if context isn't passed"
28 my $code = eval_closure(
30 description => 'accessor foo (defined at Class.pm line 282)',
34 exception { $code->() },
35 qr/^foo at accessor foo \(defined at Class\.pm line 282\) line 1\n/,