Load templates relatively to the script location

examples/pastebin.pl

@@ -1,13 +1,14 @@
 use lib 'lib';
 
 use Bailador;
+Bailador::import;
 
 unless 'data'.IO ~~ :d {
     mkdir 'data'
 }
 
 get '/' => sub {
-    template 'examples/views/index.tt'
+    template 'index.tt'
 }
 
 post '/new_paste' => sub {

lib/Bailador.pm

@@ -9,6 +9,11 @@ module Bailador;
 
 my $app = Bailador::App.current;
 
+our sub import {
+    my $file = callframe(1).file;
+    $app.location = $file.substr(0, $file.rindex('/'));
+}
+
 sub route_to_regex($route) {
     $route.split('/').map({
         my $r = $_;

lib/Bailador/App.pm

@@ -4,13 +4,14 @@ use Template::Mojo;
 
 class Bailador::App {
     has %.routes  = { GET => [], 'POST' => [] };
+    has $.location is rw;
     has Bailador::Context  $.context  = Bailador::Context.new;
     has Template::Mojo     $!template; # type object
 
     method request  { $.context.request  }
     method response { $.context.response }
     method template(Str $tmpl, @params) {
-        $!template.new(slurp $tmpl).render(|@params);
+        $!template.new(slurp "$!location/views/$tmpl").render(|@params);
     }
 
     my $current = Bailador::App.new;

t/04-templates.t

@@ -1,9 +1,10 @@
 use Test;
 use Bailador;
+Bailador::import;
 use Bailador::Test;
 
 plan 1;
 
-get '/' => sub { template 't/templates/simple.tt', 'bar' }
+get '/' => sub { template 'simple.tt', 'bar' }
 
 response-content-is 'GET', '/', "a happy bar\n";