37 lines
724 B
Perl
37 lines
724 B
Perl
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__
|