yko/debug-demo.psgi

## debug-demo.psgi
#!/usr/bin/env perl
use strict;
use warnings;
use Plack::Builder;

my $body = join '', <DATA>;

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

    # Do whatever you want, but return PSGI-compatible response
    # see http://search.cpan.org/~miyagawa/PSGI/PSGI.pod

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

builder {
    # Precious debug info. Right on your page!
    enable 'Debug';

    # Make Plack middleware render some static for you
    enable "Static",
      path => qr{\.(?:js|css|jpe?g|gif|ico|png|html?|swf|txt)$},
      root => './htdocs';

    # Let Plack care about length header
    enable "ContentLength";

    $app;
}

__DATA__
<!doctype html>
<html>

<head>
 <title>Few words about Plack and PSGI</title>
</head>

<body>
 <h1>Hello World!</h1>
</body>

</html>
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use Plack::Builder;

	my $body = join '', <DATA>;

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

	# Do whatever you want, but return PSGI-compatible response
	# see http://search.cpan.org/~miyagawa/PSGI/PSGI.pod

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

	builder {
	# Precious debug info. Right on your page!
	enable 'Debug';

	# Make Plack middleware render some static for you
	enable "Static",
	path => qr{\.(?:js\|css\|jpe?g\|gif\|ico\|png\|html?\|swf\|txt)$},
	root => './htdocs';

	# Let Plack care about length header
	enable "ContentLength";

	$app;
	}

	__DATA__
	<!doctype html>
	<html>

	<head>
	<title>Few words about Plack and PSGI</title>
	</head>

	<body>
	<h1>Hello World!</h1>
	</body>

	</html>