package CGI::Carp::DebugScreen::HTML::Template; use strict; use warnings; use HTML::Template; our $VERSION = '0.15'; my $DebugTemplate =<<'EOT'; Debug Screen


EOT my $ErrorTemplate =<<'EOT'; An unexpected error has been detected

An unexpected error has been detected

Sorry for inconvenience.

EOT sub as_html { my ($pkg, %options) = @_; $options{error_tmpl} ||= $ErrorTemplate; $options{debug_tmpl} ||= $DebugTemplate; my $tmpl = $options{debug} ? $options{debug_tmpl} : $options{error_tmpl}; my $t = HTML::Template->new( scalarref => \$tmpl, die_on_bad_params => 0, ); $t->param(%options); return $t->output; } 1; __END__ =head1 NAME CGI::Carp::DebugScreen::HTML::Template - CGI::Carp::DebugScreen Renderer with HTML::Template =head1 SYNOPSIS use CGI::Carp::DebugScreen ( engine => 'HTML::Template', # CGI::Carp::DebugScreen::HTML::Template # will be called internally ); =head1 DESCRIPTION One of the ready-made view (renderer) classes for L. =head1 METHOD =head2 as_html will be called internally from L. =head1 SEE ALSO L, L =head1 AUTHOR Kenichi Ishigaki, Eishigaki@cpan.orgE =head1 COPYRIGHT AND LICENSE Copyright (C) 2005-2006 by Kenichi Ishigaki This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut