use strict;
use warnings;
{
package HTML::Template::Compiled::Exception;
our $VERSION = '0.01';
use Data::Dumper;
use Carp qw(croak carp);

use constant ATTR_TEXT   => 0;
use constant ATTR_FILE   => 1;
use constant ATTR_LINE   => 2;
use constant ATTR_PARSER => 3;
use constant ATTR_TOKENS => 4;
use constant ATTR_NEAR => 5;

use overload '""' => \&stringify;

sub new {
    my $class = shift;
    my $self = [];
    bless $self, $class;
    $self->init(@_);
    return $self;
}
sub init {
    my ($self, %args) = @_;
    $self->[ATTR_TEXT] = $args{text};
    $self->[ATTR_FILE] = $args{file};
    $self->[ATTR_LINE] = $args{line};
    $self->[ATTR_PARSER] = $args{parser};
    $self->[ATTR_TOKENS] = $args{tokens};
    $self->[ATTR_NEAR] = $args{near};
}
sub stringify {
    my ($self) = @_;
    my $text = $self->[ATTR_TEXT];
}

sub parser {
    return $_[0]->[ATTR_PARSER];
}


}
1;

__END__

=pod

=head1 NAME

HTML::Template::Compiled::Exception - Exception class for HTC

=cut