File Coverage

blib/lib/App/Pod2CpanHtml.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 20 65.0


line stmt bran cond sub pod time code
1             package App::Pod2CpanHtml;
2              
3             ###############################################################################
4             #
5             # App::Pod2CpanHtml - Convert Pod to search.cpan.org style HTML.
6             #
7             #
8             # Copyright 2009, John McNamara, jmcnamara@cpan.org
9             #
10             # Documentation after __END__
11             #
12              
13 1     1   25076 use strict;
  1         2  
  1         37  
14 1     1   1120 use Pod::Simple::HTML;
  1         97715  
  1         44  
15              
16 1     1   11 use vars qw(@ISA $VERSION);
  1         9  
  1         127  
17              
18             @ISA = 'Pod::Simple::HTML';
19             $VERSION = '0.04';
20              
21             ###############################################################################
22             #
23             # new()
24             #
25             # Simple constructor inheriting from Pod::Simple::HTML.
26             #
27             sub new {
28              
29 0     0 1   my $class = shift;
30 0           my $self = Pod::Simple::HTML->new(@_);
31 0           $self->{index} = 1;
32 0           $self->{html_css} = 'http://search.cpan.org/s/style.css';
33              
34 0           bless $self, $class;
35 0           return $self;
36             }
37              
38             1;
39              
40             __END__