example.pl

module MyApp;

use Faz::Request;
use Faz::URI;
use Faz::Application;
use Faz::Controller;
use Faz::Action::Root;
use Faz::Action::Chained;
use Faz::Action::Public;

my $app = Faz::Application.new(:dispatcher(Faz::Dispatcher.new()));
my $ctrl = Faz::Controller.new();

my $root = Faz::Action::Chained.new( :parent(0),
                                     :controller($ctrl),
                                     :private-name('(root)'),
                                     :regex(/^ /),
                                     :begin-closure({ say "root - begin" }),
                                     :execute-closure({ say "root - execute " }),
                                     :finish-closure({ say "root - finish" }) );
$app.register-action($root);

my $blog = Faz::Action::Chained.new( :parent($root),
                                     :controller($ctrl),
                                     :private-name('(root)/blog/*'),
                                     :regex(/ \/blog\/(\w+) /),
                                     :begin-closure(-> $name { say "blog $name - begin " }),
                                     :execute-closure(-> $name { say "blog $name - execute " }),
                                     :finish-closure(-> $name { say "blog $name - finish" }) );
$app.register-action($blog);

my $index = Faz::Action::Public.new( :parent($root),
                                      :controller($ctrl),
                                      :private-name('(root)/blog/*'),
                                      :regex(/ \/ $/),
                                      :begin-closure({ say "index - begin " }),
                                      :execute-closure({ say "index - execute " }),
                                      :finish-closure({ say "index - finish" }) );
$app.register-action($index);
my $viewblog1 = Faz::Action::Public.new( :parent($blog),
                                         :controller($ctrl),
                                         :private-name('(root)/blog/*/'),
                                         :regex(/  \/? $/),
                                         :begin-closure({ say "viewblog1 - begin" }),
                                         :execute-closure({ say "viewblog1 - execute" }),
                                         :finish-closure({ say "viewblog1 - finish" }) );
$app.register-action($viewblog1);
my $viewblog = Faz::Action::Public.new( :parent($blog),
                                        :controller($ctrl),
                                        :private-name('(root)/blog/*/'),
                                        :regex(/ \/ (\w+) \/? $/),
                                        :begin-closure(-> $name { say "viewblog $name - begin" }),
                                        :execute-closure( -> $name { say "viewblog $name " ~ $*request.params<test> ~ " - execute" }),
                                        :finish-closure(-> $name { say "viewblog $name - finish" }) );
$app.register-action($viewblog);



my $uri;
my $request;
my $response = 1;

$uri = Faz::URI.new(:path('/blog/faz'));
$request = Faz::Request.new(:uri($uri), :params({ :test<"ok!"> }) );
$app.handle($request,$response);

$uri = Faz::URI.new(:path('/blog/faz/bla'));
$request = Faz::Request.new(:uri($uri), :params({ :test<"ok!"> }) );
$app.handle($request,$response);

$uri = Faz::URI.new(:path(''));
$request = Faz::Request.new(:uri($uri), :params({ :test<"ok!"> }) );
$app.handle($request,$response);

1;