catalyst.pl Greet;
cd Greet
scripts/greet_create.pl view TT TT
scripts/greet_create.pl controller Greeting
echo "[% greeting %]" > root/greeting.tt
####
sub default : Private {
my ( $self, $c ) = @_;
$c->forward('say');
}
sub say : Local {
my ( $self, $c ) = @_;
$c->stash->{greeting} = join q{, }, @{ $c->req->args() };
$c->stash->{template} = q{greeting.tt};
$c->forward('Greet::V::TT');
}
####
1. scripts/greet_test.pl /
-> Congratulations, Greet is on Catalyst!
2. scripts/greet_test.pl /greeting/say/hello/world
-> hello, world
3. scripts/greet_test.pl /greeting/hello/world
-> greeting, hello, world
4. scripts/greet_test.pl /hi/there/greeting/say/hello/world
-> hi, there, greeting, say, hello, world