Merge branch 'templates'

Bailador · Jan 5, 2012 · bd30419 · bd30419
2 parents f6de046 + d8574ae
commit bd30419
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 2 deletions.
diff --git a/examples/app.pl b/examples/app.pl
@@ -3,11 +3,11 @@
 # simple cases
 get '/' => sub {
     "hello world"
-};
+}
 
 get '/about' => sub {
     "about me"
-};
+}
 
 get '/hello/:name' => sub ($name) {
     "Hello $name!"
@@ -27,4 +27,9 @@
     "junctions are cool"
 }
 
+# templates!
+get / ^ '/template/' (.+) $ / => sub ($x) {
+    template 'tmpl.tt', { name => $x }
+}
+
 baile;
diff --git a/examples/views/tmpl.tt b/examples/views/tmpl.tt
@@ -0,0 +1,8 @@
+<html>
+    <head>
+        <title>A greeting for [%! name %]</title>
+    </head>
+    <body>
+        <h1>Hello [%! name %]!</h1>
+    </body>
+</html>
diff --git a/lib/Bailador.pm b/lib/Bailador.pm
@@ -1,6 +1,7 @@
 module Bailador;
 use Bailador::Request;
 use Bailador::Response;
+use Ratel;
 use HTTP::Easy::PSGI;
 
 my %routes;
@@ -9,6 +10,7 @@ my %routes;
 
 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({
@@ -52,6 +54,11 @@ 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 = '';