1package ANTLR::Runtime::Exception; 2 3use Exception::Class; 4 5use Moose; 6 7extends 'Moose::Object', 'Exception::Class::Base'; 8 9sub BUILD { 10 my ($self, $args) = @_; 11 12 my %exception_args; 13 if (exists $args->{message}) { 14 $exception_args{message} = $args->{message}; 15 } 16 17 $self->_initialize(%exception_args); 18 return; 19} 20 21no Moose; 22__PACKAGE__->meta->make_immutable(); 231; 24