Re: eval and return values

[Bloodnok]

Your code wouldn't return anything since $foo is lexically re-declared in the assignment within the eval block (something that strictures would have warned you about).

I think you probably meant something like...

my $foo = eval { bar->something() };

die $@ if $@;

$foo;

Update:

s/with/within/

[AnomalousMonk]

... since $foo is lexically re-declared in the assignment within the eval block (something that strictures would have warned you about).

No, that's kosher with warnings and strictures:

>perl -wMstrict -le
"sub S { return 'Something' }
 my $foo = 'bar';
 eval { my $foo = S() };
 die $@ if $@;
 print qq{after eval: $foo};
"
after eval: bar