Mastering Modern Perl: Writing Efficient and Maintainable Code/

...

/

Solution Review: Exception Handling

Solution Review: Exception Handling

See the solution to the exercise on error handling using exceptions in Perl.

We'll cover the following...

Solution

Let’s look at the solution first before jumping into the explanation:

Press + to interact
sub divide {
    my ($numerator, $denominator) = @_;
    if (!defined $numerator || !defined $denominator) {
        die "One or both arguments are undefined";
    } elsif ($denominator == 0) {
        die "Division by zero";
    }
    
    return $numerator / $denominator;
}
my $result = eval { divide($number1, $number2) };
if (my $exception = $@) {
    say "Error: $exception";
} else {
    say "Result: $result";
}

Explanation

...