skeleton example scripts

leejo · May 25, 2014 · 44881ec · 44881ec
1 parent b0baf5a
commit 44881ec
Show file tree

Hide file tree

Showing 5 changed files with 37 additions and 0 deletions.
diff --git a/examples/catalyst.pl b/examples/catalyst.pl
diff --git a/examples/cgi.pl b/examples/cgi.pl
@@ -0,0 +1,6 @@
+#!perl
+
+use strict;
+use warnings;
+
+use CGI qw( :standard form -utf8 ); 
diff --git a/examples/dancer2.pl b/examples/dancer2.pl
diff --git a/examples/mojolicious_lite.pl b/examples/mojolicious_lite.pl
@@ -0,0 +1,13 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Mojolicious::Lite;
+
+get '/' => sub {
+	my $self = shift;
+	$self->render( text => "Hello World" );
+};
+
+app->start;
diff --git a/examples/psgi.pl b/examples/psgi.pl
@@ -0,0 +1,18 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Plack::Request;
+
+my $app = sub {
+    my $env = shift;
+    my $req = Plack::Request->new($env);
+    my $params = $req->parameters;
+    return [ 200,
+		[ "Content-Type" => "text/plain" ],
+		[ map { sprintf( "%s = %s\n",$_ => $params->get($_) ) } $params->keys ]
+	];
+};
+
+Plack::Handler::CGI->new->run($app);