From acb1f63bae13efce1bc6ade57868cff480538a56 Mon Sep 17 00:00:00 2001 From: Kharec Date: Thu, 18 Dec 2025 07:28:24 +0100 Subject: [PATCH] feat: add a dummy set/get in the main route to try redis --- lib/Urupam/App.pm | 35 ++++++++++++++++++++++++++++++++--- 1 file changed, 32 insertions(+), 3 deletions(-) diff --git a/lib/Urupam/App.pm b/lib/Urupam/App.pm index 7ac2b3c..168a266 100644 --- a/lib/Urupam/App.pm +++ b/lib/Urupam/App.pm @@ -1,16 +1,45 @@ package Urupam::App; use Mojo::Base 'Mojolicious'; -use Moose; +use Urupam::DB; sub startup { my $self = shift; + $self->helper( + db => sub { + my $c = shift; + $c->stash->{db} ||= Urupam::DB->new; + } + ); + my $r = $self->routes; $r->get('/')->to( cb => sub { - my $c = shift; - $c->render( text => 'Hello from urupam!' ); + my $c = shift; + my $tx = $c->render_later->tx; + my $db = $c->db; + + $db->set( 'test_key' => '123soleil' )->then( + sub { + $c->app->log->info('Value set: test_key => 123soleil'); + return $db->get('test_key'); + } + )->then( + sub { + my $value = shift; + $c->app->log->info("Value retrieved: $value"); + $c->render( text => "ok\nRetrieved value: $value" ); + undef $tx; + } + )->catch( + sub { + my $err = shift; + $c->app->log->error("DB error: $err"); + $c->render( text => "ok\nError: $err", status => 500 ); + undef $tx; + } + ); } ); }