gistfile1.pl

use 5.012;

=head2 OLD WAY

my @exceptions;

BEGIN {
    
    @exceptions = (
        'MyException',
    
        'ExceptionWithFields' => {
            isa => 'MyException',
            $ENV{DESCRIPTIVE_EXCEPTIONS} ? ( description => "this only happens sometimes" ) : (),
        },
    );
}
    
use Exception::Class ( @exceptions );

=cut

use Begin::Declare;

MY @exceptions = (
    'MyException',

    'ExceptionWithFields' => {
        isa => 'MyException',
        $ENV{DESCRIPTIVE_EXCEPTIONS} ? ( description => "this only happens sometimes" ) : (),
    },
);

use Exception::Class ( @exceptions );

my $ex = ExceptionWithFields->new;
print ref $ex;