diff options
Diffstat (limited to 'docs/lib/Pod/Simple/HTML/Bugzilla.pm')
-rw-r--r-- | docs/lib/Pod/Simple/HTML/Bugzilla.pm | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/docs/lib/Pod/Simple/HTML/Bugzilla.pm b/docs/lib/Pod/Simple/HTML/Bugzilla.pm index ffbd0775c..5a2203473 100644 --- a/docs/lib/Pod/Simple/HTML/Bugzilla.pm +++ b/docs/lib/Pod/Simple/HTML/Bugzilla.pm @@ -16,53 +16,53 @@ use parent qw(Pod::Simple::HTML); # Without this constant, HTMLBatch will throw undef warnings. use constant VERSION => $Pod::Simple::HTML::VERSION; use constant CODE_CLASS => ' class="code"'; -use constant META_CT => '<meta http-equiv="Content-Type" content="text/html;' - . ' charset=UTF-8">'; -use constant DOCTYPE => '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01' - . ' Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'; +use constant META_CT => '<meta http-equiv="Content-Type" content="text/html;' + . ' charset=UTF-8">'; +use constant DOCTYPE => '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01' + . ' Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">'; sub new { - my $self = shift->SUPER::new(@_); + my $self = shift->SUPER::new(@_); - my $doctype = $self->DOCTYPE; - my $content_type = $self->META_CT; + my $doctype = $self->DOCTYPE; + my $content_type = $self->META_CT; - my $html_pre_title = <<END_HTML; + my $html_pre_title = <<END_HTML; $doctype <html> <head> <title> END_HTML - my $html_post_title = <<END_HTML; + my $html_post_title = <<END_HTML; </title> $content_type </head> <body id="pod"> END_HTML - $self->html_header_before_title($html_pre_title); - $self->html_header_after_title($html_post_title); + $self->html_header_before_title($html_pre_title); + $self->html_header_after_title($html_post_title); - # Fix some tags to have classes so that we can adjust them. - my $code = CODE_CLASS; - $self->{'Tagmap'}->{'Verbatim'} = "\n<pre $code>"; - $self->{'Tagmap'}->{'VerbatimFormatted'} = "\n<pre $code>"; - $self->{'Tagmap'}->{'F'} = "<em $code>"; - $self->{'Tagmap'}->{'C'} = "<code $code>"; + # Fix some tags to have classes so that we can adjust them. + my $code = CODE_CLASS; + $self->{'Tagmap'}->{'Verbatim'} = "\n<pre $code>"; + $self->{'Tagmap'}->{'VerbatimFormatted'} = "\n<pre $code>"; + $self->{'Tagmap'}->{'F'} = "<em $code>"; + $self->{'Tagmap'}->{'C'} = "<code $code>"; - # Don't put head4 tags into the Table of Contents. We have this - delete $Pod::Simple::HTML::ToIndex{'head4'}; + # Don't put head4 tags into the Table of Contents. We have this + delete $Pod::Simple::HTML::ToIndex{'head4'}; - return $self; + return $self; } # Override do_beginning to put the name of the module at the top sub do_beginning { - my $self = shift; - $self->SUPER::do_beginning(@_); - print {$self->{'output_fh'}} "<h1>" . $self->get_short_title . "</h1>"; - return 1; + my $self = shift; + $self->SUPER::do_beginning(@_); + print {$self->{'output_fh'}} "<h1>" . $self->get_short_title . "</h1>"; + return 1; } 1; |