view release on metacpan or  search on metacpan

lib/App/Zapzi/Transformers/POD.pm  view on Meta::CPAN

    my $title = path($self->input->source)->basename;

    # --quiet will supress warnings on missing links etc
    pod2html("$infile", "--quiet", "--cachedir=$tempdir",
             "--title=$title",
             "--infile=$infile", "--outfile=$outfile");
    croak('Could not transform POD') unless -s $outfile;

    my $html = path($outfile)->slurp;

    return $self->SUPER::transform($html);
}

# _extract_title and _extract_text inherited from parent

1;

__END__

=pod