lib/CGI/Pretty.pm

1 package CGI::Pretty;
13 $CGI::Pretty::VERSION = '1.08';
15 $CGI::Pretty::AutoloadClass = 'CGI';
16 @CGI::Pretty::ISA = qw( CGI );
23     return if !$CGI::Pretty::LINEBREAK || !$CGI::Pretty::INDENT;
27     foreach my $i ( @CGI::Pretty::AS_IS ) {
42     $$input =~ s/$CGI::Pretty::LINEBREAK/$CGI::Pretty::LINEBREAK$CGI::Pretty::INDENT/g;
49     $s =~ s/$CGI::Pretty::LINEBREAK/$CGI::Pretty::LINEBREAK$CGI::Pretty::INDENT/g if $CGI::Pretty::LINEBREAK;
51     return $self->SUPER::comment( "$CGI::Pretty::LINEBREAK$CGI::Pretty::INDENT$s$CGI::Pretty::LINEBREAK" ) . $CGI::Pretty::LINEBREAK;
85             return "<\L$1\E\$attr>\$CGI::Pretty::LINEBREAK";} !;
88             return "<\L/$1\E>\$CGI::Pretty::LINEBREAK"; } !;
92                    \$CGI::Pretty::LINEBREAK unless \@_;
95             my \%ASIS = map { lc("\$_") => 1 } \@CGI::Pretty::AS_IS;
97             if ( \$CGI::Pretty::LINEBREAK || \$CGI::Pretty::INDENT ) {
103                       \$args[0] .= \$CGI::Pretty::LINEBREAK if \$args[0] !~ /\$CGI::Pretty::LINEBREAK\$/ && 0;
106   	              \$args[0] .= \$" if \$args[0] !~ /\$CGI::Pretty::LINEBREAK\$/ && 1;
117 		\@result = map { "\$tag\$_\$untag\$CGI::Pretty::LINEBREAK" }
124 		    CGI::Pretty::_prettyPrint( \\\$tmp );
125                     \$tag . \$CGI::Pretty::LINEBREAK .
126                     \$CGI::Pretty::INDENT . \$tmp . \$CGI::Pretty::LINEBREAK .
127                     \$untag . \$CGI::Pretty::LINEBREAK
130 	    local \$" = "" if \$CGI::Pretty::LINEBREAK || \$CGI::Pretty::INDENT;
139     return CGI::start_html( @_ ) . $CGI::Pretty::LINEBREAK;
143     return CGI::end_html( @_ ) . $CGI::Pretty::LINEBREAK;
153             $r->register_cleanup(\&CGI::Pretty::_reset_globals);
157             $r->pool->cleanup_register(\&CGI::Pretty::_reset_globals);
167     $CGI::Pretty::INDENT = "\t";
170     $CGI::Pretty::LINEBREAK = $/;
173     @CGI::Pretty::AS_IS = qw( a pre code script textarea td );
183 CGI::Pretty - module to produce nicely formatted HTML code
187     use CGI::Pretty qw( :html3 );
194 CGI::Pretty is a module that derives from CGI.  It's sole function is to
207 CGI::Pretty fixes this problem.  What it does is add a carriage
230     push @CGI::Pretty::AS_IS,qw(CODE XMP);
237     $CGI::Pretty::INDENT = "\t\t";
244     $CGI::Pretty::LINEBREAK = "\n\n";
251     $CGI::Pretty::INDENT = $CGI::Pretty::LINEBREAK = "";