hiroyukim · May 5, 2011 06:25
diff --git a/dump_env.psgi b/dump_env.psgi
 use strict;
 use warnings;
 use Data::Dumper;

 my $app = sub {
    my $env = shift;

    my $dump = '<html><body><h1>dump env</h1><table style="font-size:normal;">'; 
    $dump .= 
        join("\n",
            map  { 
                '<tr><td style="background-color:#cccccc;">' 
                . $_ 
                . '</td><td>' 
                . $env->{$_} 
                . '</td></tr>' 
            }
            sort { $a cmp $b } keys %$env
        );
    $dump .= '</table></body></html>'; 

    [200,['Content-Type' => 'text/html'],[$dump]];
 };
	use strict;
	use warnings;
	use Data::Dumper;

	my $app = sub {
	my $env = shift;

	my $dump = '<html><body><h1>dump env</h1><table style="font-size:normal;">';
	$dump .=
	join("\n",
	map {
	'<tr><td style="background-color:#cccccc;">'
	. $_
	. '</td><td>'
	. $env->{$_}
	. '</td></tr>'
	}
	sort { $a cmp $b } keys %$env
	);
	$dump .= '</table></body></html>';

	[200,['Content-Type' => 'text/html'],[$dump]];
	};