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 = "$c Dump"
; $page_content .= sprintf qq(Page name: %s
\n)
, $s->page_name
; $page_content .= "\nQuery Parameters:
\n
\n"
; foreach my $p ( sort $s->cgi->param() )
{ my $data_str = "'"
. join "', '" , $s->cgi->param($p)
. "'"
; $page_content .= "- $p => $data_str\n"
}
; $page_content .= "
\n\n";
; $page_content .= "\nQuery Environment:
\n
\n"
; foreach my $ek ( sort keys %ENV )
{ $page_content .= "- $ek => ".$ENV{$ek}."\n"
}
; $page_content .= "
\n\n\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__
=pod
=head1 NAME
CGI::Builder::Test - Adds some testing methods to your build
=head1 SYNOPSIS
use CGI::Builder
qw| CGI::Builder::Test
|;
=head1 DESCRIPTION
This module adds just a couple of very basics methods used for debugging.
=head1 METHODS
=head2 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.
=head2 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.
=head1 OVERRIDDEN CGI::Builder Methods
=head2 die_handler
This method is overridden in order to add the dump of the object to the error message.
=head1 SUPPORT
See L.
=head1 AUTHOR and COPYRIGHT
© 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.
=cut