package ANTLR::Runtime::MismatchedTokenException; use ANTLR::Runtime::Token; use Moose; use overload '""' => \&to_string, 'bool' => sub { 1 }, fallback => 1 ; extends 'ANTLR::Runtime::RecognitionException'; has 'expecting' => ( is => 'ro', isa => 'Int', default => ANTLR::Runtime::Token->INVALID_TOKEN_TYPE, ); sub get_expecting { my ($self) = @_; return $self->expecting; } sub to_string { my ($self) = @_; return "MismatchedTokenException(" . $self->get_unexpected_type() . "!=" . $self->expecting . ")"; } no Moose; __PACKAGE__->meta->make_immutable(); 1;