You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
724 B
37 lines
724 B
7 months ago
|
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__
|