CGI::Carp::DebugScreen::TT - CGI::Carp::DebugScreen Renderer with Template Toolkit

CGI-Carp-DebugScreen documentation Contained in the CGI-Carp-DebugScreen distribution.

Index

Code Index:

NAME

Top

CGI::Carp::DebugScreen::TT - CGI::Carp::DebugScreen Renderer with Template Toolkit

SYNOPSIS

Top

  use CGI::Carp::DebugScreen (
    engine => 'TT',  # CGI::Carp::DebugScreen::TT will be called internally
  );

DESCRIPTION

Top

One of the ready-made view (renderer) classes for CGI::Carp::DebugScreen.

METHOD

Top

as_html

will be called internally from CGI::Carp::DebugScreen.

SEE ALSO

Top

CGI::Carp::DebugScreen, Template

AUTHOR

Top

Kenichi Ishigaki, <ishigaki@cpan.org>

COPYRIGHT AND LICENSE

Top

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.

CGI-Carp-DebugScreen documentation Contained in the CGI-Carp-DebugScreen distribution. 
package CGI::Carp::DebugScreen::TT;

use strict;
use warnings;
use Template;

our $VERSION = '0.15';

my $DebugTemplate =<<'EOT';
<html>
<head>
<title>Debug Screen</title>
[%- IF style %]
[%- style %]
[%- END %]
</head>
<body>
<a name="top"></a>
<div id="page">
<h1>[% error_at | html %]</h1>
[%- IF show_raw_error %]
<pre class="raw_error">[% raw_error %]</pre>
[%- ELSE %]
<div class="box">
[%- error_message %]
</div>
[%- END %]
[%- BLOCK navi %]
<div class="navi">
[<a href="#top">top</a>]
[<a href="#stacktraces">stacktraces</a>]
[%- IF watchlist.0 %]
[<a href="#watch">watchlist</a>]
[%- END %]
[%- IF modules.0 %]
[<a href="#modules">modules</a>]
[%- END %]
[%- IF environment.0 %]
[<a href="#environment">environment</a>]
[%- END %]
</div>
[%- END %]
[%- INCLUDE navi %]
<div class="box">
<h2><a name="stacktraces">Stacktraces</a></h2>
<ul id="stacktraces">
[%- FOREACH stacktrace = stacktraces %]
<li>[% stacktrace.caller | html %] LINE : [% stacktrace.line %]</li>
<table class="code">
[%- FOREACH context = stacktrace.context %]
[%- IF context.hit %]<tr class="hit">[% ELSE %]<tr>[% END %]
<td class="num">[% context.no | html %]:</td><td>[% context.line | html %]</td>
</tr>
[%- END %]
</table>
[%- END %]
</ul>
</div>
[%- IF watchlist.0 %]
[%- INCLUDE navi %]
<div class="box">
<h2><a name="watch">Watch List</a></h2>
<ul id="watch">
[%- FOREACH watch = watchlist %]
<li>
<b>[% watch.key | html %]</b>
<div class="scrollable">
[%- watch.value %]
</div>
</li>
[%- END %]
</ul>
</div>
[%- END %]
[%- IF modules.0 %]
[%- INCLUDE navi %]
<div class="box">
<h2><a name="modules">Included Modules</a></h2>
<ul id="modules">
[%- FOREACH module = modules %]
<li>[% module.package | html %] ([% module.file | html %])</li>
[%- END %]
</ul>
</div>
[%- END %]
[%- IF environment.0 %]
[%- INCLUDE navi %]
<div class="box">
<h2><a name="environment">Environmental Variables</a></h2>
<table id="environment">
[%- FOREACH env = environment %]
<tr>
<td>[% env.key | html %]</td><td><div class="scrollable">[% env.value | html %]</div><//td>
</tr>
[%- END %]
</table>
</div>
[%- END %]
<p class="footer">CGI::Carp::DebugScreen [% version %]. Output via [% view %]</p>
</div>
</body>
</html>
EOT

my $ErrorTemplate =<<'EOT';
<html>
<head>
<title>An unexpected error has been detected</title>
[%- IF style %]
[%- style %]
[%- END %]
</head>
<body>
<div id="page">
<h1>An unexpected error has been detected</h1>
<p>Sorry for inconvenience.</p>
</div>
</body>
</html>
EOT

sub _escape {
  my $str = shift;

  $str =~ s/&/&amp;/g;
  $str =~ s/>/&gt;/g;
  $str =~ s/</&lt;/g;
  $str =~ s/"/&quot;/g;

  $str;
}

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 = Template->new(
    FILTERS => { html => sub { _escape(@_) } }
  );

  my $html;
  $t->process(\$tmpl, \%options, \$html) or $html = $t->error();

  return $html;
}

1;

__END__