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