package HTML::TokeParser::Simple::Token::Declaration; use strict; use vars qw/ $VERSION $REVISION /; $REVISION = '$Id: Declaration.pm 13983 2007-03-15 01:32:44Z lh92 $'; $VERSION = '1.0'; use base 'HTML::TokeParser::Simple::Token'; sub is_declaration { 1 } 1; __END__ =head1 NAME HTML::TokeParser::Simple::Token::Declaration - Token.pm declaration class. =head1 SYNOPSIS use HTML::TokeParser::Simple; my $p = HTML::TokeParser::Simple->new( $somefile ); while ( my $token = $p->get_token ) { # This prints all text in an HTML doc (i.e., it strips the HTML) next unless $token->is_text; print $token->as_is; } =head1 DESCRIPTION This is the declaration class for tokens. =head1 OVERRIDDEN METHODS =head2 is_declaration C will return true if the token is the DTD at the top of the HTML. =cut