lib/CGI/Pretty.pm

1 package CGI::Pretty;
11 use CGI ();
13 $CGI::Pretty::VERSION = '1.08';
14 $CGI::DefaultClass = __PACKAGE__;
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;
46     my($self,@p) = CGI::self_or_CGI(@_);
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;
75                      (substr(ref($_[0]),0,3) eq "CGI" ||
76                     UNIVERSAL::isa($_[0],"CGI")));
85             return "<\L$1\E\$attr>\$CGI::Pretty::LINEBREAK";} !;
88             return "<\L/$1\E>\$CGI::Pretty::LINEBREAK"; } !;
91 	    return ( \$CGI::XHTML ? "<\L$tagname\E\$attr />" : "<\L$tagname\E\$attr>" ) .
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;
150     if ($CGI::MOD_PERL) {
151         if ($CGI::MOD_PERL == 1) {
153             $r->register_cleanup(\&CGI::Pretty::_reset_globals);
157             $r->pool->cleanup_register(\&CGI::Pretty::_reset_globals);
160     $class->_reset_globals if $CGI::PERLEX;
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
195 allow users of CGI to output nicely formatted HTML code.
197 When using the CGI module, the following code:
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";
248 If you decide you want to use the regular CGI indenting, you can easily do
251     $CGI::Pretty::INDENT = $CGI::Pretty::LINEBREAK = "";
260 Lincoln Stein <lstein@cshl.org> for incorporation into the CGI.pm
274 L<CGI>