Select Code to Download

package XML::TokeParser::Token;
sub is_text                { return 0; }
...

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

sub is_end_tag {
    if( $_[0]->[0] eq 'E'
...
    }
    return 0;
}