Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Tree: 886dde7be8
Fetching contributors…

Cannot retrieve contributors at this time

38 lines (28 sloc) 0.81 kB
use v6;
use Test;
plan 3;
class C::Root {
method foo { 'foo: ' ~ $^d }
method index { 'index' }
class C::User {
method show { 'show user'}
method index { 'index of users' }
use Routes;
given my $r = controllers => {Root =>, User =>} ) {
.connect: [:controller, :action];
.connect: [:controller];
.connect: [:action, /^ \d $/];
is $r.dispatch(['foo', 3]),
'foo: 3',
'Connect call action on the default (Root) controller';
is $r.dispatch(['user', 'show']),
'show user',
'Connect to selected controller and action';
# TOFIX: %!argh cleared by .clear now, and this is remove defaults.
is $r.dispatch(['user']),
'index user',
'Connect to selected controller, call default(index) action';
# vim:ft=perl6
Jump to Line
Something went wrong with that request. Please try again.