-
Notifications
You must be signed in to change notification settings - Fork 46
/
Bailador.pm
95 lines (79 loc) · 2.05 KB
/
Bailador.pm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
module Bailador;
use Bailador::Request;
use Bailador::Response;
use Ratel;
use HTTP::Easy::PSGI;
my %routes;
%routes<GET> = [];
%routes<POST> = [];
my $current-request = Bailador::Request.new;
my $current-response = Bailador::Response.new;
my $template-engine = Ratel.new;
sub route_to_regex($route) {
$route.split('/').map({
my $r = $_;
if $_.substr(0, 1) eq ':' {
$r = q{(<-[\/\.]>+)};
}
$r
}).join("'/'");
}
multi parse_route(Str $route) {
my $r = route_to_regex($route);
return / ^ <_capture=$r> $ /
}
multi parse_route($route) {
# do nothing
$route
}
sub get(Pair $x) is export {
my $p = parse_route($x.key) => $x.value;
%routes<GET>.push: $p;
return $x;
}
sub post(Pair $x) is export {
my $p = parse_route($x.key) => $x.value;
%routes<POST>.push: $p;
return $x;
}
sub request is export { $current-request }
sub content_type(Str $type) is export {
$current-response.headers<Content-Type> = $type;
}
sub status(Int $code) is export {
$current-response.code = $code;
}
sub template(Str $tmpl, %params = {}) is export {
$template-engine.load("views/$tmpl");
return $template-engine.render(|%params);
}
sub dispatch($env) {
my $res = '';
$current-request.env = $env;
$current-response.code = 404;
$current-response.content = 'Not found';
$current-response.headers<Content-Type> = 'text/html';
for %routes{$env<REQUEST_METHOD>}.list -> $r {
next unless $r;
if $env<REQUEST_URI> ~~ $r.key {
$current-response.code = 200;
if $/ {
unless $/[0] { $/ = $/<_capture> }
$current-response.content = $r.value.(|$/.list);
} else {
$current-response.content = $r.value.();
}
}
}
return $current-response.psgi;
}
sub baile is export {
my $app = sub ($env) {
return dispatch($env);
my $res = dispatch($env);
}
given HTTP::Easy::PSGI.new(port => 3000) {
.app($app);
.run;
}
}