The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Died - Auto create blessed exceptions

SYNOPSIS

    package OldCode;

    use Died;

    sub inuse {
        eval {
            maintenace();
        };
        if ($@) {
            die;
        }
    }

    sub maintenace {
        die("Use the source!\n");
    }

    package main;

    use Died;
    use English;
    use Modern::Perl;

    eval {
        OldCode::inuse;
    };
    if ($EVAL_ERROR) {
        say($EVAL_ERROR->file, "\t", $EVAL_ERROR->line);
    }

DESCRIPTION

Died will auto create exception handling objects.

The goal is to make it easer to use with maintenance code.