File Coverage

lib/HTML/TokeParser/Simple/Token/Declaration.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 11 11 100.0


line stmt bran cond sub pod time code
1             package HTML::TokeParser::Simple::Token::Declaration;
2              
3 5     5   23 use strict;
  5         10  
  5         256  
4              
5             our $VERSION = '3.15';
6 5     5   22 use base 'HTML::TokeParser::Simple::Token';
  5         8  
  5         431  
7              
8 1     1 1 925 sub is_declaration { 1 }
9              
10             1;
11              
12             __END__
13              
14             =head1 NAME
15              
16             HTML::TokeParser::Simple::Token::Declaration - Token.pm declaration class.
17              
18             =head1 SYNOPSIS
19              
20             use HTML::TokeParser::Simple;
21             my $p = HTML::TokeParser::Simple->new( $somefile );
22              
23             while ( my $token = $p->get_token ) {
24             # This prints all text in an HTML doc (i.e., it strips the HTML)
25             next unless $token->is_text;
26             print $token->as_is;
27             }
28              
29             =head1 DESCRIPTION
30              
31             This is the declaration class for tokens.
32              
33             =head1 OVERRIDDEN METHODS
34              
35             =head2 is_declaration
36              
37             C<is_declaration()> will return true if the token is the DTD at the top of the
38             HTML.
39              
40             =cut