Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Merge branch 'master' of https://github.com/leejo/cgi-alternatives

Conflicts:
	.gitignore
	Makefile.PL
	README
	lib/CGI/Alternatives.pm
	t/001_compiles_pod.t
  • Loading branch information...
commit dd5005e282c7f3f6c649934a81f32db92d34b0e2 2 parents 01b3485 + 44881ec
@leejo authored
View
4 Changes
@@ -0,0 +1,4 @@
+Revision history for CGI::Alternatives
+
+0.01 Ven 23 mai 2014 19:49:01 CEST
+ * First release, let's make a start on this
View
2  README
@@ -1,5 +1,5 @@
NAME
- CGI::Alternatives - Documentation for alternative solutions to CGI.pm
+ CGI::Alternatives - documentation for alternative solutions to CGI.pm
VERSION
0.01
View
0  examples/catalyst.pl
No changes.
View
6 examples/cgi.pl
@@ -0,0 +1,6 @@
+#!perl
+
+use strict;
+use warnings;
+
+use CGI qw( :standard form -utf8 );
View
0  examples/dancer2.pl
No changes.
View
13 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;
View
18 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);
Please sign in to comment.
Something went wrong with that request. Please try again.