如何返回错误消息或值

Posted 2021-02-27

Courtesy of Michael Mathews

print one();
 
sub one {
    my $result = two();
 
    if (ref $result eq 'ERROR') {
        die $result->{message};
    }
    else {
        return $result;
    }
}
 
sub two {
    if (rand(100) > 50) {
        return bless {message=>"There is a problem here."}, 'ERROR';
    }
    return "Things are fine.";
}