Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 49 lines (36 sloc) 881 Bytes
use strict;
use warnings;
package Pod::POM::View::HTML::davorg;
use base 'Pod::POM::View::HTML';
sub view_pod {
my ($self, $pod) = @_;
my $content = $pod->content->present($self);
$content =~ s|</pre>\n\n<pre>|\n\n|g;
return '<html>
<link rel="stylesheet" href="/style.css" type="text/css" />
<body>' .
$content .
'<script src="" type="text/javascript">
<script type="text/javascript">
_uacct = "UA-56332-3";
package main;
use Pod::POM;
use Cwd;
use CGI qw(header);
use CGI::Carp 'fatalsToBrowser';
unless (-e $file) {
die "No such file: $file";
my $p = Pod::POM->new;
my $pom = $p->parse_file($file);
print header, Pod::POM::View::HTML::davorg->print($pom);
Something went wrong with that request. Please try again.