CGI::Builder::Test - Adds some testing methods to your build

CGI-Builder documentation Contained in the CGI-Builder distribution.

Index

Code Index:

NAME

Top

CGI::Builder::Test - Adds some testing methods to your build

SYNOPSIS

Top

  use CGI::Builder
  qw| CGI::Builder::Test
    |;

DESCRIPTION

Top

This module adds just a couple of very basics methods used for debugging.

METHODS

Top

dump()

    print STDERR $webapp->dump();

The dump() method returns a chunk of text which contains all the environment and CGI form data of the request, formatted for human readability. Useful for outputting to STDERR.

dump_html()

    my $output = $webapp->dump_html();

The dump_html() method returns a chunk of text which contains all the environment and CGI form data of the request, formatted for human readability via a web browser. Useful for outputting to a browser.

OVERRIDDEN CGI::Builder Methods

Top

die_handler

This method is overridden in order to add the dump of the object to the error message.

SUPPORT

Top

See "SUPPORT" in CGI::Builder.

AUTHOR and COPYRIGHT

Top

© 2004 by Domizio Demichelis.

All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as perl itself.

CGI-Builder documentation Contained in the CGI-Builder distribution. 
use strict ;

# This file uses the "Perlish" coding style
# please read http://perl.4pro.net/perlish_coding_style.html

; package CGI::Builder::Test

; $Carp::Internal{+__PACKAGE__}++
             
; sub dump
   { my ($s, @args) = @_
   ; my $page_content  = $s->page_content
   ; $page_content .= sprintf qq(\nPage name: '%s'\n)
                               , $s->page_name
   ; $page_content .= "\nQuery Parameters:\n"
   ; foreach my $p ( sort $s->cgi->param() )
      { my $data_str      = "'"
                          . join "', '" , $s->cgi_>param($p)
                          . "'"
      ; $page_content .= "\t$p => $data_str\n"
      }
   ; $page_content .= "\nQuery Environment:\n"
   ; foreach my $k ( sort keys %ENV )
      { $page_content .= "\t$k => '".$ENV{$k}."'\n"
      }
   ; $s->page_content($page_content)
   }

; sub dump_html
   { my $s = shift
   ; my $c = ref $s
   ; my $page_content = $s->page_content
   ; $page_content    = "<HTML><HEAD><title>$c Dump</title></HEAD><BODY>"
   ; $page_content   .= sprintf qq(<P><B>Page name:</B> %s</P>\n)
                               , $s->page_name
   ; $page_content   .= "<P><B>\nQuery Parameters:</B><BR>\n<OL>\n"
   ; foreach my $p ( sort $s->cgi->param() )
      { my $data_str      = "'"
                          . join "', '" , $s->cgi->param($p)
                          . "'"
      ; $page_content .= "<LI> $p => $data_str\n"
      }
   ; $page_content    .= "</OL>\n</P>\n";
   ; $page_content    .= "<P><B>\nQuery Environment:</B><BR>\n<OL>\n"
   ; foreach my $ek ( sort keys %ENV )
      { $page_content .= "<LI> <B>$ek</B> => ".$ENV{$ek}."\n"
      }
   ; $page_content    .= "</OL>\n</P>\n</BODY></HTML>\n";
   ; $s->page_content($page_content)  
   }
   
; sub die_handler
   { my $s = shift
   ; require Data::Dumper
   ; die sprintf qq(Fatal error in phase %s for page "%s": %s\n%s)
               , $CGI::Builder::Const::phase[$s->PHASE]
               , $s->page_name
               , $_[0]
               , Data::Dumper::Dumper($s)
   }
   
; 1

__END__