package Parse::Java::Token;

use strict;
use warnings;

use Carp qw(croak);

use base qw(Class::Accessor);

__PACKAGE__->mk_accessors(qw(value line_no column));

use overload q{""} => \&as_string, fallback => 1;

sub as_string {
	my $self = shift;
	return $self->value;
}

1;
__END__

=head1 NAME

Parse::Java::Token - Description

=cut