Browse Source

Mojolicious (Perl) app

Pedro Figueiredo 12 years ago
parent
commit
df2845b73b
2 changed files with 34 additions and 0 deletions
  1. 3 0
      mojolicious/README.mdown
  2. 31 0
      mojolicious/app.pl

+ 3 - 0
mojolicious/README.mdown

@@ -0,0 +1,3 @@
+Start with
+
+    ./app.pl daemon

+ 31 - 0
mojolicious/app.pl

@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+use Mojolicious::Lite;
+use Mojolicious::Plugin::Database;
+
+plugin 'database', {
+    dsn      => 'dbi:mysql:dbname=test',
+    username => 'root',
+    password => ''
+};
+
+get '/json' => sub {
+    my $self = shift;
+    $self->render( json => { message => 'Hello, world!' } );
+};
+
+get '/db' => sub {
+    my $self = shift;
+    my $queries = $self->param('queries') || 1;
+    my @response;
+    my $sth = $self->db->prepare( 'SELECT randomnumber FROM world WHERE id = ?' );
+    for ( 1 .. $queries ) {
+        my $id = int rand 10000 + 1;
+        my $res = $sth->execute( $id );
+        if ( my $row = $sth->fetchrow_arrayref ) {
+            push @response, { id => $id, randomNumber => $row->[0] };
+        }
+    }
+    $self->render( json => \@response );
+};
+
+app->start;