view release on metacpan or  search on metacpan

lib/Pod/WordML.pm  view on Meta::CPAN

	$_[0]{'in_verbatim'} = 1;
	}

sub end_Verbatim
	{
	my $self = shift;

	# get rid of all but one trailing newline
	$self->{'scratch'} =~ s/\s+\z//;

	chomp( my @lines = split m/^/m, $self->{'scratch'} );
	$self->{'scratch'} = '';

	@lines = map { s/</&lt;/g; $_ } @lines;

	if( @lines == 1 )
		{
		$self->make_para( $self->single_code_line_style, @lines );
		}
	elsif( @lines )
		{