package ANTLR::Runtime::Exception; | |
use Exception::Class; | |
use Moose; | |
extends 'Moose::Object', 'Exception::Class::Base'; | |
sub BUILD { | |
my ($self, $args) = @_; | |
my %exception_args; | |
if (exists $args->{message}) { | |
$exception_args{message} = $args->{message}; | |
} | |
$self->_initialize(%exception_args); | |
return; | |
} | |
no Moose; | |
__PACKAGE__->meta->make_immutable(); | |
1; |