File Coverage

blib/lib/Tags/HTML/Page/End.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Tags::HTML::Page::End;
2              
3 4     4   188360 use base qw(Tags::HTML);
  4         9  
  4         2374  
4 4     4   47325 use strict;
  4         9  
  4         103  
5 4     4   20 use warnings;
  4         1959  
  4         841  
6              
7             our $VERSION = 0.06;
8              
9             # Constructor.
10             sub new {
11 6     6 1 795995 my ($class, @params) = @_;
12              
13             # No CSS support.
14 6         79 push @params, 'no_css', 1;
15              
16 6         45 my $self = $class->SUPER::new(@params);
17              
18             # Object.
19 4         228 return $self;
20             }
21              
22             # Process 'Tags'.
23             sub _process {
24 1     1   126 my $self = shift;
25              
26             # End of page.
27 1         7 $self->{'tags'}->put(
28             ['e', 'body'],
29             ['e', 'html'],
30             );
31              
32 1         88 return;
33             }
34              
35             1;
36              
37             __END__