| package ANTLR::Runtime::MissingTokenException; |
| |
| use Moose; |
| |
| use overload |
| '""' => \&to_string; |
| |
| extends 'ANTLR::Runtime::MismatchedTokenException'; |
| |
| has 'inserted' => ( |
| is => 'ro', |
| isa => 'Any', |
| ); |
| |
| sub get_missing_type { |
| my ($self) = @_; |
| return $self->expecting; |
| } |
| |
| sub to_string { |
| my ($self) = @_; |
| |
| if (defined (my $inserted = $self->inserted) && defined (my $token = $self->token)) { |
| return "MissingTokenException(inserted $inserted at " . $token->get_text() . ")"; |
| } |
| if (defined $self->token) { |
| return "MissingTokenException(at " . $self->token->get_text() . ")"; |
| } |
| |
| return "MissingTokenException"; |
| } |
| |
| no Moose; |
| __PACKAGE__->meta->make_immutable(); |
| 1; |
| __END__ |