README

example
  $ ./test.pl > test.out

A.pm

package E::A;
use Any::Moose;
extends 'Error::Simple';
1;

B.pm

package E::B;
use base qw(Error::Simple);
1;

C.pm

package E::C;
@ISA = qw(Error::Simple);
1;

test.out

catch 1st E::A
catch 2nd E::B
otherwise E::C

test.pl

#!/usr/bin/env perl

use strict;
use warnings;

# try/catch をimport
# ついでに Error::Simple も使える
use Error qw(:try);

# Error::Simple を継承したローカル例外
use E::A;
use E::B;
use E::C;

package main;
{
    my @errs = (
        record E::A("hoge"),
        record E::B("fuga"),
        record E::C("fuga"),
    );
    foreach my $err (@errs) {
        try {
            throw $err;
            print("try\n");
        }
        catch E::A with {
            my $e = shift;
            print("catch 1st ", ref($e), "\n");
        } catch E::B with {
            my $e = shift;
            print("catch 2nd ", ref($e), "\n");
        } otherwise {
            my $e = shift;
            print("otherwise ", ref($e), "\n");
        };
    }
}