Changeset 24589 for lang/perl/CGI-Carp-DebugScreen/trunk

Timestamp:

11/22/08 03:26:31 (5 years ago)

Author:

charsbar

Message:

CGI-Carp-DebugScreen?: further refactoring; 0.15 -> CPAN

Location:

lang/perl/CGI-Carp-DebugScreen/trunk

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• README (modified) (2 diffs)
• lib/CGI/Carp/DebugScreen.pm (modified) (16 diffs)
• lib/CGI/Carp/DebugScreen/DefaultView.pm (modified) (8 diffs)
• lib/CGI/Carp/DebugScreen/Dumper.pm (modified) (2 diffs)
• lib/CGI/Carp/DebugScreen/HTML/Template.pm (modified) (8 diffs)
• lib/CGI/Carp/DebugScreen/TT.pm (modified) (8 diffs)
• t/10_view.t (added)

lang/perl/CGI-Carp-DebugScreen/trunk/Changes

@@ -1 +1 @@
 Revision history for CGI::Carp::DebugScreen
 
-0.15  2008/11/** (not yet released but will be soon)
-  - major cosmetic changes
-  - now accepts any renderer with "as_html" method
+0.15  2008/11/22
+  - major refactoring; internals are changed a lot
+  - now accepts any engine/view with "as_html" method
   - some of the name of the options are changed and
     waiting for deprecation. If you have used a custom
-    renderer, see the sources and find "XXX"s.
+    view, see the sources and find "XXX"s.
+  - added some tests
 
 0.14  2007/05/27

lang/perl/CGI-Carp-DebugScreen/trunk/MANIFEST

@@ -9 +9 @@
 README
 t/00_load.t
+t/10_view.t
 t/20_dumper.t
 t/99_pod.t

lang/perl/CGI-Carp-DebugScreen/trunk/README

@@ -4 +4 @@
 CGI::Carp::DebugScreen provides decent debug/error screens for Web
 applications via CGI::Carp's set_message() function. You don't need
-to care $SIG{__DIE__} anymore. Just die or croak to get the right
+to care $SIG{__DIE__} anymore. Just die or croak to get the right 
 thing. You can customize those screens as well.
 
@@ -22 +22 @@
   CGI::Carp
 
-COPYRIGHT AND LICENSE
+COPYRIGHT AND LICENCE
 
-Copyright (C) 2005-2008 by Kenichi Ishigaki
+Copyright (C) 2005-2006 by Kenichi Ishigaki
 
 This library is free software; you can redistribute it and/or modify

lang/perl/CGI-Carp-DebugScreen/trunk/lib/CGI/Carp/DebugScreen.pm

@@ -11 +11 @@
   my $MyDebug = 0;
   CGI::Carp::set_message(
-    sub { __PACKAGE__->_show(@_) }
+    sub { __PACKAGE__->_output(@_) }
   ) unless $MyDebug;
 }
@@ -17 +17 @@
 $Carp::Verbose = 1;   # for stacktraces
 
-my $Debug  = 1;
-my $Engine = 'DefaultView';
-my $ShowLines = 3;
-my $ShowMod;
-my $ShowEnv;
-my $ShowRawError;
-my $IgnoreOverload;
-my $DebugTemplate;
-my $ErrorTemplate;
-my $WatchList = {};
-
-my $Style =<<'EOS';
+sub _default_stylesheet {
+  return <<'EOS';
 <style type="text/css">
 <!--
@@ -36 +26 @@
     color: #000;
     background-color: #f60;
-    margin: 0;
-    padding: 0;
+    margin: 0px;
+    padding: 0px;
   }
   :link, :link:hover, :visited, :visited:hover {
@@ -76 +66 @@
     font-size: .8em;
     line-height: 120%;
-    font-family: "Courier New", Courier, monospace;
+    font-family: 'Courier New', Courier, monospace;
     background-color: #fc9;
     color: #333;
@@ -95 +85 @@
   table.code td.num {
     width: 4em;
-    text-align: right;
+    text-align:right
   }
   table.watch {
@@ -124 +114 @@
     font-size: .8em;
     line-height: 120%;
-    font-family: "Courier New", Courier, monospace;
+    font-family: 'Courier New', Courier, monospace;
     overflow: auto;
   }
@@ -137 +127 @@
     margin: 0 1em;
     font-size: .8em;
-    text-align: right;
-  }
-
+    text-align:right;
+  }
 -->
 </style>
 EOS
+}
+
+my %Options;
+my %Mapping = (
+  debug           => qr/^d(?:ebug)?$/,
+  engine          => qr/^e(?:ngine)?$/,
+  show_lines      => qr/^l(?:ines)?$/,
+  show_mod        => qr/^m(?:od(?:ules)?)?$/,
+  show_env        => qr/^env(?:ironment)?$/,
+  show_raw_error  => qr/^raw(?:_error)?$/,
+  ignore_overload => qr/^(?:ignore_)?overload$/,
+  debug_template  => qr/^d(?:ebug_)?t(?:emplate)?$/,
+  error_template  => qr/^e(?:rror_)?t(?:emplate)?$/,
+  style           => qr/^s(?:tyle)?$/,
+);
 
 sub import {
-  my $pkg = shift;
-  my %options = @_;
+  my ($class, %options) = @_;
+
+  %Options = (
+    debug           => 1,
+    engine          => 'DefaultView',
+    show_lines      => 3,
+    show_mod        => 0,
+    show_env        => 0,
+    show_raw_error  => 0,
+    ignore_overload => 0,
+    debug_template  => '',
+    error_template  => '',
+    style           => _default_stylesheet(),
+    watchlist       => {},
+  );
 
   while(my ($key, $value) = each %options) {
     next unless defined $value;
-    $key = lc $key;
-    $Debug          = $value if $key =~ /^d(?:ebug)?$/;
-    $Engine         = $value if $key =~ /^e(?:ngine)?$/;
-    $ShowLines      = $value if $key =~ /^l(?:ines)?$/;
-    $ShowMod        = $value if $key =~ /^m(?:od(?:ules)?)?$/;
-    $ShowEnv        = $value if $key =~ /^env(?:ironment)?$/;
-    $ShowRawError   = $value if $key =~ /^raw(?:_error)?$/;
-    $IgnoreOverload = $value if $key =~ /^(?:ignore_)?overload$/;
-    $DebugTemplate  = $value if $key =~ /^d(?:ebug_)?t(?:emplate)?$/;
-    $ErrorTemplate  = $value if $key =~ /^e(?:rror_)?t(?:emplate)?$/;
-    $Style          = $value if $key =~ /^s(?:tyle)?$/;
-  }
-}
-
-sub debug              { shift; $Debug = shift; }
-sub set_debug_template { shift; $DebugTemplate = shift; }
-sub set_error_template { shift; $ErrorTemplate = shift; }
-sub set_style          { shift; $Style = shift; }
-sub show_modules       { shift; $ShowMod = shift; }
-sub show_environment   { shift; $ShowEnv = shift; }
-sub show_raw_error     { shift; $ShowRawError = shift; }
-sub ignore_overload    { shift; $IgnoreOverload = shift; }
+    foreach my $canonkey ( keys %Mapping ) {
+      if ( $key =~ $Mapping{$canonkey} ) {
+        $Options{$canonkey} = $value;
+        last;
+      }
+    }
+  }
+}
+
+sub debug              { shift; $Options{debug}           = shift; }
+sub set_debug_template { shift; $Options{debug_template}  = shift; }
+sub set_error_template { shift; $Options{error_template}  = shift; }
+sub set_style          { shift; $Options{style}           = shift; }
+sub show_modules       { shift; $Options{show_mod}        = shift; }
+sub show_environment   { shift; $Options{show_env}        = shift; }
+sub show_raw_error     { shift; $Options{show_raw_error}  = shift; }
+sub ignore_overload    { shift; $Options{ignore_overload} = shift; }
 
 sub add_watchlist      {
-  my ($pkg, %hash) = @_;
+  my ($class, %hash) = @_;
   foreach my $key (keys %hash) {
-    $WatchList->{$key} = $hash{$key};
-  }
-}
-
-sub _show {
-  my ($pkg, $raw_error) = @_;
+    $Options{watchlist}->{$key} = $hash{$key};
+  }
+}
+
+sub _get_stacktraces {
+  my ($class, $raw_error) = @_;
 
   my $first_message = '';
   my $no_more_first;
+
   my @stacktraces = grep {
-      my $caller = $_->{caller} || '';
-      (
-        $caller eq '' or                  # ignore undefined caller;
-        $caller eq $INC{'Carp.pm'} or     # ignore Carp;
-        $caller eq $INC{'CGI/Carp.pm'}    # ignore CGI::Carp;
-      ) ? 0 : 1;
-    }
-    map {
-      my $line = $_;
-      my ($message, $caller, $line_no) = $line =~ /^(?:\s*)(.*?)(?: called)? at (\S+) line (.+)$/;
-      $first_message .= "$line<br>" if !defined $message && !$no_more_first;
-      $no_more_first = 1 if defined $message;
-      $first_message = $message unless $first_message;
-      $caller  ||= '';
-      $line_no ||= 0;
-      my $context = _get_context($caller, $line_no);
-      +{
-         message  => $message,
-         caller   => $caller,
-         line     => $line_no,
-         context  => $context,
-
-         # XXX: will be deprecated next time
-         contents => $context,
-       }
-    } split(/\n/, $raw_error);
-
-  my $error_at = $stacktraces[$#stacktraces]->{caller};
-
-  my @modules = ();
-  @modules = map {
+    my $caller = $_->{caller} || '';
+    (
+      $caller eq '' or                  # ignore undefined caller;
+      $caller eq $INC{'Carp.pm'} or     # ignore Carp;
+      $caller eq $INC{'CGI/Carp.pm'}    # ignore CGI::Carp;
+    ) ? 0 : 1;
+  }
+  map {
+    my $line = $_;
+    my ($message, $caller, $line_no) = $line =~ /^(?:\s*)(.*?)(?: called)? at (\S+) line (.+)$/;
+    $first_message .= "$line<br>" if !defined $message && !$no_more_first;
+    $no_more_first = 1 if defined $message;
+    $first_message = $message unless $first_message;
+    $caller  ||= '';
+    $line_no ||= 0;
+    my $context = $class->_get_context($caller, $line_no);
+    +{
+       message  => $message,
+       caller   => $caller,
+       line     => $line_no,
+       context  => $context,
+
+       # XXX: will be deprecated next time
+       contents => $context,
+    };
+  } split(/\n/, $raw_error);
+
+  my $error_at      = $stacktraces[$#stacktraces]->{caller};
+  my $error_message = $first_message.' at '.$stacktraces[0]->{caller}.' line '.$stacktraces[0]->{line};
+
+  return ( $error_at, $error_message, @stacktraces );
+}
+
+sub _get_context {
+  my ($class, $file, $line_no) = @_;
+
+  return unless $file && -f $file;
+
+  my @context;
+  if (open my $fh, '<', $file) {
+    my $ct = 0;
+    while(my $line = <$fh>) {
+      $ct++;
+      next if $ct < $line_no - $Options{show_lines};
+      last if $ct > $line_no + $Options{show_lines};
+      push @context, {
+        no   => $ct,
+        line => $line,
+        hit  => ($ct == $line_no),
+      };
+    }
+  }
+  \@context;
+}
+
+sub _get_modules {
+  my ($class, $flag) = @_;
+
+  return unless $flag;
+
+  return map {
     my $key = $_;
     (my $package = $key) =~ s|/|::|g;
@@ -223 +266 @@
       file    => $INC{$key},
     }
-  } sort {$a cmp $b} keys %INC if $ShowMod;
-
-  my @environment = ();
-  @environment = map {
+  } sort {$a cmp $b} keys %INC;
+}
+
+sub _get_env {
+  my ($class, $flag) = @_;
+
+  return unless $flag;
+
+  return map {
     +{
       key   => $_,
       value => $ENV{$_},
     }
-  } sort {$a cmp $b} keys %ENV if $ShowEnv;
-
-  my @watchlist = ();
-  if (%{ $WatchList }) {
+  } sort {$a cmp $b} keys %ENV;
+}
+
+sub _get_watchlist {
+  my ($class, $href, $overload) = @_;
+
+  my @list;
+  if (%{ $href }) {
     require CGI::Carp::DebugScreen::Dumper;
-    CGI::Carp::DebugScreen::Dumper->ignore_overload($IgnoreOverload);
-    foreach my $key (sort {$a cmp $b} keys %{ $WatchList }) {
-      my $dump = CGI::Carp::DebugScreen::Dumper->dump(
-                   $WatchList->{$key}
-                 );
-      push @watchlist, {
+    CGI::Carp::DebugScreen::Dumper->ignore_overload($overload);
+    foreach my $key (sort {$a cmp $b} keys %{ $href }) {
+      my $dump = CGI::Carp::DebugScreen::Dumper->dump($href->{$key});
+      push @list, {
         key   => $key,
         value => $dump,
@@ -250 +300 @@
     }
   }
-
-  my ($renderer_class, $renderer);
-  if ( ref $Engine && $Engine->can('as_html') ) {
-    $renderer_class = ref $Engine;
-    $renderer = $Engine;
+  return @list;
+}
+
+sub _load_view {
+  my ($class, $engine) = @_;
+
+  my ($view_class, $view);
+  if ( ref $engine && $engine->can('as_html') ) {
+    $view_class = ref $engine;
+    $view       = $engine;
   }
   else {
-    $Engine = 'TT' if lc $Engine eq 'template'; # engine alias
-
-    $renderer_class =
-      ( $Engine =~ s/^\+// ) ? $Engine : __PACKAGE__.'::'.$Engine;
-
-    eval "require $renderer_class";
+    # engine alias
+    $engine = 'TT' if lc $engine eq 'template';
+
+    $view_class = ( $engine =~ s/^\+// ) ? $engine : __PACKAGE__.'::'.$engine;
+
+    eval "require $view_class";
     if ($@) {
       require CGI::Carp::DebugScreen::DefaultView;
-      $renderer_class = 'CGI::Carp::DebugScreen::DefaultView';
-    }
-    $renderer = $renderer_class;
-  }
-
-  my $error_message = $first_message.' at '.$stacktraces[0]->{caller}.' line '.$stacktraces[0]->{line};
-
-  my $html = $renderer->as_html(
+      $view_class = 'CGI::Carp::DebugScreen::DefaultView';
+    }
+    $view = $view_class;
+  }
+  return ( $view_class, $view );
+}
+
+sub _render {
+  my ($class, $raw_error) = @_;
+
+  my ($error_at, $error_message, @stacktraces) = $class->_get_stacktraces($raw_error);
+
+  my @modules     = $class->_get_modules($Options{show_mod});
+  my @environment = $class->_get_env($Options{show_env});
+  my @watchlist   = $class->_get_watchlist(
+    $Options{watchlist},
+    $Options{ignore_overload},
+  );
+
+  my ($view_class, $view) = $class->_load_view($Options{engine});
+
+  return $view->as_html(
     version        => $VERSION,
-    debug          => $Debug,
-    debug_template => $DebugTemplate,
-    error_template => $ErrorTemplate,
-    renderer_class => $renderer_class,
-    style          => $Style,
+    debug          => $Options{debug},
+    debug_template => $Options{debug_template},
+    error_template => $Options{error_template},
+    view           => $view_class,
+    style          => $Options{style},
     error_at       => $error_at,
     error_message  => $error_message,
     raw_error      => $raw_error,
-    show_raw_error => $ShowRawError,
+    show_raw_error => $Options{show_raw_error},
     stacktraces    => \@stacktraces,
     modules        => \@modules,
@@ -289 +358 @@
 
     # XXX: will be deprecated next time
-    view           => $renderer_class,
-    debug_tmpl     => $DebugTemplate,
-    error_tmpl     => $ErrorTemplate,
+    debug_tmpl     => $Options{debug_template},
+    error_tmpl     => $Options{error_template},
     traces         => \@stacktraces,
   );
+}
+
+sub _output {
+  my ($class, $raw_error) = @_;
+
+  my $html = $class->_render($raw_error);
 
   # shamelessly stolen from CGI::Carp
@@ -329 +403 @@
 }
 
-sub _get_context {
-  my ($file, $line_no) = @_;
-
-  return unless $file && -f $file;
-
-  my @context;
-  if (open my $fh, '<', $file) {
-    my $ct = 0;
-    while(my $line = <$fh>) {
-      $ct++;
-      next if $ct < $line_no - $ShowLines;
-      last if $ct > $line_no + $ShowLines;
-      push @context, {
-        no   => $ct,
-        line => $line,
-        hit  => ($ct == $line_no),
-      };
-    }
-  }
-  \@context;
-}
-
 1;
 
@@ -361 +413 @@
 =head1 SYNOPSIS
 
+  use strict;
+  use warnings;
   use Carp;
-  use CGI::Carp::DebugScreen (
-    debug       => $ENV{Debug},
-    engine      => 'HTML::Template',
-    lines       => 5,
-    modules     => 1,
-    environment => 1,
-    overload    => 1,
-    raw_error   => 0,
-  );
+  use CGI::Carp::DebugScreen ( debug => $ENV{Debug} );
+  use CGI;
+
+  my $query = CGI->new;
 
   croak "let's see";
@@ -376 +425 @@
 =head1 DESCRIPTION
 
-CGI::Carp qw/fatalsToBrowser/ is very useful for debugging. But the error screen it provides is a bit too plain; something you don't want to see, and you don't want your boss and colleagues and users to see. You might know CGI::Carp has a wonderful set_message() function but, you don't want to repeat yourself, right?
+C<CGI::Carp qw/fatalsToBrowser/> is very useful for debugging. But the error screen it provides is a bit too plain; something you don't want to see, and you don't want your boss and colleagues and users to see. You might know CGI::Carp has a wonderful C<set_message()> function but, you don't want to repeat yourself, right?
 
 Hence this module.
 
-This module calls CGI::Carp qw/fatalsToBrowser/ and set_message() function internally. If something dies or croaks, this confesses stack traces, included modules (optional), environmental variables (optional, too) in a more decent way.
+This module calls C<CGI::Carp qw/fatalsToBrowser/> and C<set_message()> function internally. If something dies or croaks, this confesses stack traces, included modules (optional), environmental variables (optional, too) in a more decent way.
 
 When you finish debugging, set debug option to false (via some environmental variable, for example). Then, more limited, less informative error screen appears when dies or croaks. If something goes wrong and your users might see the screen, they only know something has happened. They'll never know where your modules are and they'll never see the awkward 500 Internal Server Error -- hopefully.
@@ -411 +460 @@
 =head2 engine (or e)
 
-Sets the name of a rendering class. Default value is C<DefaultView>, which uses no template engines. C<HTML::Template> and C<TT> are also available. As of 0.15, you can pass any class with a prepending C<+> or any object with C<as_html> method, which should take a hash of options and returns an HTML string. Your rendering class/object doesn't need to use all of the options naturally.
+Sets the base name of a view class. Default value is C<DefaultView>, which uses no template engines. C<HTML::Template> and C<TT> are also available. As of 0.15, you can pass any class with a prepending C<+> or any object with C<as_html> method, which should take a hash of options and returns an HTML string. Your rendering class/object doesn't need to use all of the options naturally.
 
 The options are:
@@ -429 +478 @@
 the ones you specified while loading (or via methods).
 
-=item renderer_class
-
-the actual class name of the renderer.
+=item view_class
+
+the actual class name of the view (i.e. renderer).
 
 =item error_at, error_message
@@ -553 +602 @@
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2005-2008 by Kenichi Ishigaki
-
-This library is free software; you can redistribute it and/or
+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.
 

lang/perl/CGI-Carp-DebugScreen/trunk/lib/CGI/Carp/DebugScreen/DefaultView.pm

@@ -62 +62 @@
 
   my $html =<<"EOT";
-<!DOCTYPE html>
 <html>
 <head>
@@ -91 +90 @@
   $html .=<<"EOT";
 <div class="box">
-<h2><a name="stacktraces">Stack Traces</a></h2>
+<h2><a name="stacktraces">Stacktraces</a></h2>
 <ul id="stacktraces">
 EOT
@@ -145 +144 @@
       $html .=<<"EOT";
 <li>
-<strong>$key</strong><br>
+<b>$key</b><br>
 <div class="scrollable">
 $table
@@ -205 +204 @@
   }
 
-  my $version  = _escape($options{version});
-  my $renderer = _escape($options{renderer_class});
-
-  $html .=<<"EOT";
-<p class="footer">CGI::Carp::DebugScreen $version. Output via $renderer</p>
+  my $version = _escape($options{version});
+  my $view    = _escape($options{view});
+
+  $html .=<<"EOT";
+<p class="footer">CGI::Carp::DebugScreen $version. Output via $view</p>
 </div>
 </body>
@@ -226 +225 @@
 
   my $html =<<"EOT";
-<!DOCTYPE html>
 <html>
 <head>
@@ -235 +233 @@
 <div id="page">
 <h1>An unexpected error has been detected</h1>
-<p>Sorry for the inconvenience.</p>
+<p>Sorry for inconvenience.</p>
 </div>
 </body>
@@ -262 +260 @@
 =head1 DESCRIPTION
 
-One of the ready-made renderers for L<CGI::Carp::DebugScreen>.
+One of the ready-made view (renderer) classes for L<CGI::Carp::DebugScreen>.
 
 Note that this doesn't support template overriding.
@@ -282 +280 @@
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2005-2008 by Kenichi Ishigaki
+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.

lang/perl/CGI-Carp-DebugScreen/trunk/lib/CGI/Carp/DebugScreen/Dumper.pm

@@ -134 +134 @@
 =head1 TODO
 
-I'm afraid that this module should have another (and shorter) name and stand alone. The dumps() method should take array, hash, or multiple variables.
+I'm afraid that this module should have another (and shorter) name and stand alone. The dumps() method should take array, hash, or multiple variables. 
 
 =head1 SEE ALSO
@@ -146 +146 @@
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2006-2008 by Kenichi Ishigaki
+Copyright (C) 2006 by Kenichi Ishigaki
 
 This library is free software; you can redistribute it and/or modify it

lang/perl/CGI-Carp-DebugScreen/trunk/lib/CGI/Carp/DebugScreen/HTML/Template.pm

@@ -8 +8 @@
 
 my $DebugTemplate =<<'EOT';
-<!DOCTYPE html>
 <html>
 <head>
@@ -29 +28 @@
 <div class="navi">[<a href="#top">top</a>] [<a href="#stacktraces">stacktraces</a>]<TMPL_IF NAME="watchlist"> [<a href="#watch">watchlist</a>]</TMPL_IF><TMPL_IF NAME="modules"> [<a href="#modules">modules</a>]</TMPL_IF><TMPL_IF NAME="environment"> [<a href="#environment">environment</a>]</TMPL_IF></div>
 <div class="box">
-<h2><a name="stacktraces">Stack Traces</a></h2>
+<h2><a name="stacktraces">Stacktraces</a></h2>
 <ul id="stacktraces">
 <TMPL_LOOP NAME="stacktraces">
@@ -50 +49 @@
 <TMPL_LOOP NAME="watchlist">
 <li>
-<strong><TMPL_VAR NAME="key" ESCAPE=HTML></strong>
+<b><TMPL_VAR NAME="key" ESCAPE=HTML></b>
 <div class="scrollable">
 <TMPL_VAR NAME="value">
@@ -83 +82 @@
 </div>
 </TMPL_IF>
-<p class="footer">CGI::Carp::DebugScreen <TMPL_VAR NAME="version" ESCAPE=HTML>. Output via <TMPL_VAR NAME="renderer_class" ESCAPE=HTML></p>
+<p class="footer">CGI::Carp::DebugScreen <TMPL_VAR NAME="version" ESCAPE=HTML>. Output via <TMPL_VAR NAME="view" ESCAPE=HTML></p>
 </div>
 </body>
@@ -90 +89 @@
 
 my $ErrorTemplate =<<'EOT';
-<!DOCTYPE html>
 <html>
 <head>
@@ -101 +99 @@
 <div id="page">
 <h1>An unexpected error has been detected</h1>
-<p>Sorry for the inconvenience.</p>
+<p>Sorry for inconvenience.</p>
 </div>
 </body>
@@ -142 +140 @@
 =head1 DESCRIPTION
 
-One of the ready-made renderers for L<CGI::Carp::DebugScreen>.
+One of the ready-made view (renderer) classes for L<CGI::Carp::DebugScreen>.
 
 =head1 METHOD
@@ -160 +158 @@
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2005-2008 by Kenichi Ishigaki
+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.

lang/perl/CGI-Carp-DebugScreen/trunk/lib/CGI/Carp/DebugScreen/TT.pm

@@ -8 +8 @@
 
 my $DebugTemplate =<<'EOT';
-<!DOCTYPE html>
 <html>
 <head>
@@ -44 +43 @@
 [%- INCLUDE navi %]
 <div class="box">
-<h2><a name="stacktraces">Stack Traces</a></h2>
+<h2><a name="stacktraces">Stacktraces</a></h2>
 <ul id="stacktraces">
 [%- FOREACH stacktrace = stacktraces %]
@@ -65 +64 @@
 [%- FOREACH watch = watchlist %]
 <li>
-<strong>[% watch.key | html %]</strong>
+<b>[% watch.key | html %]</b>
 <div class="scrollable">
 [%- watch.value %]
@@ -98 +97 @@
 </div>
 [%- END %]
-<p class="footer">CGI::Carp::DebugScreen [% version %]. Output via [% renderer_class %]</p>
+<p class="footer">CGI::Carp::DebugScreen [% version %]. Output via [% view %]</p>
 </div>
 </body>
@@ -105 +104 @@
 
 my $ErrorTemplate =<<'EOT';
-<!DOCTYPE html>
 <html>
 <head>
@@ -116 +114 @@
 <div id="page">
 <h1>An unexpected error has been detected</h1>
-<p>Sorry for the inconvenience.</p>
+<p>Sorry for inconvenience.</p>
 </div>
 </body>
@@ -167 +165 @@
 =head1 DESCRIPTION
 
-One of the ready-made renderers for L<CGI::Carp::DebugScreen>.
+One of the ready-made view (renderer) classes for L<CGI::Carp::DebugScreen>.
 
 =head1 METHOD
@@ -185 +183 @@
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2005-2008 by Kenichi Ishigaki
+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.