1 package ANTLR::Runtime::Exception; 2 3 use Exception::Class; 4 5 use Moose; 6 7 extends 'Moose::Object', 'Exception::Class::Base'; 8 9 sub 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 21 no Moose; 22 __PACKAGE__->meta->make_immutable(); 23 1; 24
