File Coverage

blib/lib/Apache2/Pod/PodSimpleHTML.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	23	73.9

=head1 NAME

Apache2::Pod::PodSimpleHTML - Pod::Simple::HTML subclass for Apache2::Pod::HTML

=head1 VERSION

The version is sucked in from whatever
L version is installed.

=head1 SYNOPSIS

Used by L.

I don't understand what this is for or why we use it,
but I'm cleaning up errors because the old name is
already indexed by someone else on CPAN.

=head1 METHODS

=head2 resolve_pod_page_link

We override this to return the link using URI::Escape.

=head1 SEE ALSO

L

L

=head1 AUTHOR

Theron Lewis C<<  >>

Mark Hedges C<<  >>

=head1 LICENSE

This package is licensed under the same terms as Perl itself.

=cut

package Apache2::Pod::PodSimpleHTML;

use strict;
use warnings FATAL => 'all';
use base qw( Pod::Simple::HTML );

*VERSION = *Pod::Simple::HTML::VERSION;

use URI::Escape;


sub resolve_pod_page_link {
    my $self = shift;
    my $to = shift;
    my $section = shift;

    my $link = $to;

    return uri_escape( $link );
}

1;