antlr-3.4/runtime/Perl5/lib/ANTLR/Runtime/Exception.pm

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;