antlr-3.4/runtime/Perl5/lib/ANTLR/Runtime/MissingTokenException.pm

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__