From: Sebastian Riedel Date: Wed, 2 Nov 2005 00:54:38 +0000 (+0000) Subject: Added JavaScript to debug screen, to show and hide specific dumps X-Git-Tag: 5.7099_04~1057 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=c6ef5e69c5192516590db9aa162c29f3424cc033 Added JavaScript to debug screen, to show and hide specific dumps --- diff --git a/Changes b/Changes index b3f4150..32b5904 100644 --- a/Changes +++ b/Changes @@ -1,6 +1,7 @@ Tis file documents the revision history for Perl extension Catalyst. 5.50 + - Added JavaScript to debug screen to show and hide specific dumps - Added _DISPATCH, _BEGIN, _AUTO, _ACTION and _END actions - Added multi process external FastCGI support (see myapp_fastcgi.pl -help) (Sam Vilain) diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm index 2c39782..40d4281 100644 --- a/lib/Catalyst/Engine.pm +++ b/lib/Catalyst/Engine.pm @@ -118,13 +118,27 @@ sub finalize_error { my $res = encode_entities Dumper $c->res; my $stash = encode_entities Dumper $c->stash; - $infos = join( - "\n", "
", - map { - sprintf "%s
\n
%s
", $_->[0], - encode_entities( Dumper $_->[1] ) - } $c->dump_these - ); + my @infos; + my $i = 0; + warn "BAAR"; + for my $dump ( $c->dump_these ) { + warn "FOOO"; + my $name = $dump->[0]; + my $value = encode_entities( Dumper $dump->[1] ); + push @infos, sprintf <<"EOF", $name, $value; +
+ + %s + +
+
+
+ 
%s
+
+EOF + $i++; + } + $infos = join "\n", @infos; } else { $title = $name; @@ -147,6 +161,18 @@ sub finalize_error { $title +