38 lines
704 B
Perl
38 lines
704 B
Perl
package ANTLR::Runtime::UnwantedTokenException;
|
|
|
|
use Moose;
|
|
|
|
use overload
|
|
'""' => \&to_string;
|
|
|
|
extends 'ANTLR::Runtime::MismatchedTokenException';
|
|
|
|
sub get_unexpected_token {
|
|
my ($self) = @_;
|
|
return $self->token;
|
|
}
|
|
|
|
sub to_string {
|
|
my ($self) = @_;
|
|
|
|
my $exp;
|
|
if ($self->expecting == ANTLR::Runtime::Token->INVALID_TOKEN_TYPE) {
|
|
$exp = '';
|
|
}
|
|
else {
|
|
$exp = ", expected " . $self->expecting;
|
|
}
|
|
|
|
if (defined $self->token) {
|
|
return "UnwantedTokenException(found=" . $self->token->get_text() . "$exp)";
|
|
}
|
|
else {
|
|
return "UnwantedTokenException(found=undef$exp)";
|
|
}
|
|
}
|
|
|
|
no Moose;
|
|
__PACKAGE__->meta->make_immutable();
|
|
1;
|
|
__END__
|