in reply to pod 2 html
Here's an example of use:
use Pod::HtmlEasy ; my $podhtmleasy = Pod::HtmlEasy->new( on_L => sub { my ( $this , $L , $text, $page , $section, $type ) = @_ ; if ( $type eq 'pod' ) { $section = "#$section" if $section ne '' ; return "<i><a href='http://search.cpan.org/perldoc?$page +$section'>$text</a></i>" ; } elsif( $type eq 'man' ) { return "<i>$text</i>" ;} elsif( $type eq 'url' ) { return "<a href='$page' target=' +_blank'>$text</a>" ;} } , } my $html = $podhtmleasy->pod2html('test.pod' , 'test.html') ;
Graciliano M. P.
"Creativity is the expression of the liberty".
|
|---|