package XML::TokeParser::Token;
sub is_text                { return 0; }
sub is_comment             { return 0; }
sub is_pi                  { return 0; }
sub is_tag                 { return 0; }
sub is_start_tag           { return 0; }
sub is_end_tag             { return 0; }
sub raw                    { return $_[0]->[-1]; }

package XML::TokeParser::Token::Text;
# use vars::i '@ISA' => 'XML::TokeParser::Token'; # i'll probably put vars::i on cpan also
use vars '@ISA';
@ISA = 'XML::TokeParser::Token';

sub is_text                { return 1; }
sub text                   { return $_[0]->[-2]; }