diff --git a/bin/urupam b/bin/urupam new file mode 100755 index 0000000..ba13d64 --- /dev/null +++ b/bin/urupam @@ -0,0 +1,12 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +use FindBin; +use lib "$FindBin::Bin/../lib"; + +use Urupam::App; + +my $app = Urupam::App->new(); + +$app->start(); diff --git a/lib/Urupam/App.pm b/lib/Urupam/App.pm new file mode 100644 index 0000000..7ac2b3c --- /dev/null +++ b/lib/Urupam/App.pm @@ -0,0 +1,19 @@ +package Urupam::App; + +use Mojo::Base 'Mojolicious'; +use Moose; + +sub startup { + my $self = shift; + + my $r = $self->routes; + $r->get('/')->to( + cb => sub { + my $c = shift; + $c->render( text => 'Hello from urupam!' ); + } + ); +} + +1; +