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

package App::Pod2CpanHtml;

###############################################################################
#
# App::Pod2CpanHtml - Convert Pod to search.cpan.org style HTML.
#
#
# Copyright 2009, John McNamara, [e-mail]
#
# Documentation after __END__
#

use strict;
use Pod::Simple::HTML;

use vars qw(@ISA $VERSION);

@ISA     = 'Pod::Simple::HTML';
$VERSION = '0.04';

###############################################################################
#
# new()
#
# Simple constructor inheriting from Pod::Simple::HTML.
#
sub new {

    my $class                   = shift;
    my $self                    = Pod::Simple::HTML->new(@_);
       $self->{index}           = 1;
       $self->{html_css}        = 'http://search.cpan.org/s/style.css';

    bless  $self, $class;
    return $self;
}

1;

__END__