diff options
author | Perl Tidy <perltidy@bugzilla.org> | 2018-12-05 21:38:52 +0100 |
---|---|---|
committer | Dylan William Hardison <dylan@hardison.net> | 2018-12-05 23:49:08 +0100 |
commit | 8ec8da0491ad89604700b3e29a227966f6d84ba1 (patch) | |
tree | 9d270f173330ca19700e0ba9f2ee931300646de1 /docs/lib/Pod/Simple/HTML/Bugzilla.pm | |
parent | a7bb5a65b71644d9efce5fed783ed545b9336548 (diff) | |
download | bugzilla-8ec8da0491ad89604700b3e29a227966f6d84ba1.tar.gz bugzilla-8ec8da0491ad89604700b3e29a227966f6d84ba1.tar.xz |
no bug - reformat all the code using the new perltidy rules
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; |