Lines Matching +refs:html +refs:paragraph
83 my ($parser, $command, $paragraph, $line_num, $pod_para) = @_;
84 my $ptree = $parser->parse_text( $paragraph, $line_num );
90 my ($parser, $paragraph, $line_num, $pod_para) = @_;
95 my ($parser, $paragraph, $line_num, $pod_para) = @_;
96 my $ptree = $parser->parse_text( $paragraph, $line_num );
120 # now loop over each para and expand any html escapes or sequences
134 qq(<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">),
135 qq(<html xmlns="http://www.w3.org/1999/xhtml" xml:lang=").$self->{Lang}.qq(">\n<head>),
141 $self->{buffer} .= $self->{BodyCloseText} . "</body>\n</html>\n";
184 my $paragraph = "<pre>" . join('', @{$para->{'-ptree'}}) . "\n\n</pre>";
187 $paragraph = "<dd>$paragraph</dd>";
189 $self->{buffer} .= $paragraph;
191 $self->_setTitle( $paragraph );
192 warn "NAME followed by verbatim paragraph";
197 warn "Unrecognized paragraph type $para->{TYPE} found at $self->{_INFILE} line $para->{'-line'}\n";
203 my ($command, $paragraph, $raw_para, $line) = @_;
213 $anchor = $self->_addSection( 'head1', $paragraph );
214 $self->{buffer} .= qq(<h1 id="$anchor">$paragraph )
221 $anchor = $self->_addSection( "head${head_level}", $paragraph );
222 $self->{buffer} .= qq(<h${head_level} id="$anchor">$paragraph</h${head_level}>\n\n);
223 (my $method = $paragraph) =~ s#$METHOD_REGEXP#$1#;
253 if ($paragraph eq '*') {
269 $anchor = $self->_addSection( 'list', $paragraph );
273 $self->{buffer} .= qq($paragraph</dt>\n);
319 my ($html) = $raw_para =~ /^\s*(?:pod2)?x?html\s+(.*)/;
320 $self->{buffer} .= $html if $html;
323 my ($ident) = $paragraph =~ /(\S+)/;
328 my ($ident) = $paragraph =~ /(\S+)/;
351 my $paragraph = shift;
353 if ($self->{titleflag} != 0) { $self->_setTitle( $paragraph ); }
356 $self->{buffer} .= "<p>$paragraph</p>\n\n";
359 $self->{buffer} .= "\t<li>$paragraph";
361 $self->{buffer} .= "\n<br /><br />$paragraph";
364 $self->{buffer} .= "\t\t<dd><p>$paragraph</p></dd>\n";
520 my $paragraph = shift;
522 if ($paragraph =~ m/^(.+?) - /) {
524 } elsif ($paragraph =~ m/^(.+?): /) {
526 } elsif ($paragraph =~ m/^(.+?)\.pm/) {
529 $self->{doctitle} = substr($paragraph, 0, 80);
596 my ($name, $dir) = File::Basename::fileparse $curpath, qr/\.html/;
670 $self->addHeadText(qq|<meta http-equiv="Content-Type" content="text/html; charset=$charset" />\n|);