Returning from inside an eval expression in a subroutine

eval-sub-return.pl

#!/usr/bin/env perl

use Carp::Assert;

sub extractOne {
    return 3 - 2;
}

sub returnOne {
    my $one = 0;
    eval {
        $one = extractOne;
    };
    ### Remove this section and the assertion below will pass ###
    ### start of section ###
    if ( $@ ) {
        print STDERR "Error extracting 1...";
    }
    ### end of section ###
}

assert( returnOne == 1, 'returnOne() should return 1' );

### Fix is to move the return statement outside the eval {} block or to 
### return the value of the eval {} expression.