Minimal exception handling

gistfile1.pl

use strict;
use warnings;
use Carp ();

sub try (&@) {
    my $try = shift;
    my ($catch, @finally);
    while (my ($kind, $coderef) = splice @_, 0, 2) {
        if ($kind eq 'catch') {
            $catch = $coderef;
        }
        elsif ($kind eq 'finally') {
            push @finally, $coderef;
        }
        else {
            Carp::croak '変なCB: '. ref $coderef;
        }
    }
    # try
    eval { $try->(); };
    # catch
    if ($@ && defined $catch) {
        local $_ = $@;
        $catch->();
    }
    # finally
    $_->() for @finally;
    
}

sub catch (&@) {
    catch => @_;
}

sub finally (&@) {
    finally => @_;
}