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.