Kharec/urupam
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat: new route architecture

Browse Source
This commit is contained in:
Sandro CURY CAZZANIGA
2025-12-24 18:45:54 +01:00
parent a67a6214d1
commit 7c967b179e
1 changed files with 56 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
lib/Urupam/App.pm
View File

@@ -31,15 +31,37 @@ sub startup {
);
my $r = $self->routes;
my $api = $r->under('/api');
$api->post('/shorten')->to(
$r->get('/health')->to(
cb => sub {
my $c = shift;
$c->render_later;
$c->db->ping->then(
sub {
$c->render( json => { status => 'ok' } );
}
)->catch(
sub {
my $err = shift;
$c->app->log->error("Health check DB error: $err");
$c->render(
json => { status => 'error', error => 'Database connection failed' },
status => 503
);
}
);
}
);
my $api_v1 = $r->under('/api/v1');
$api_v1->post('/urls')->to(
cb => sub {
my $c = shift;
bless $c, 'Urupam::API';
$c->shorten;
}
);
$api->get('/url')->to(
$api_v1->get('/urls/:short_code')->to(
cb => sub {
my $c = shift;
bless $c, 'Urupam::API';
@@ -47,37 +69,50 @@ sub startup {
}
);
$r->get('/')->to(
$r->get('/:short_code')->to(
cb => sub {
my $c = shift;
my $tx = $c->render_later->tx;
my $db = $c->db;
$c->render_later;
my $short_code = $c->param('short_code') // '';
my $url_service = $c->url_service;
my $validator = $c->validator;
$db->set( 'test_key' => '123soleil' )->then(
sub {
$c->app->log->info('Value set: test_key => 123soleil');
return $db->get('test_key');
unless ( $short_code
&& $validator->validate_short_code($short_code) )
{
$c->render(
json => { error => 'Invalid short code format' },
status => 400
);
return;
}
)->then(
$url_service->get_original_url($short_code)->then(
sub {
my $value = shift;
$c->app->log->info("Value retrieved: $value");
$c->render( json => { status => 'ok', value => $value } );
undef $tx;
my $original_url = shift;
if ($original_url) {
$c->redirect_to($original_url);
}
else {
$c->render(
json => { error => 'Short code not found' },
status => 404
);
}
}
)->catch(
sub {
my $err = shift;
$c->app->log->error("DB error: $err");
$c->app->log->error("Redirect lookup error: $err");
$c->render(
json => { status => 'error', message => "$err" },
json => { error => 'Internal server error' },
status => 500
);
undef $tx;
}
);
}
);
}
1;