Skip to content

@wchristian /gist:16e37bdfe476d19f8ea5 secret
Created

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.