24 lines
389 B
Perl
24 lines
389 B
Perl
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;
|