Opened by esskar at 2005-01-22 03:40
User since
2004-01-29
828 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-01-29
828 Artikel
BenutzerIn
Vielleicht gefaellt dir ja mein Catalyst.
Es ist zwar noch Beta aber bereits feature komplett und sehr stabil.
Catalyst basiert auf Maypole und ist daher besonders geeignet wenn du Class::DBI und TT2 benutzen willst....
Hier mal ein Beispiel:
Zum testen gibts sogar ein Kommandozeilen frontend:
Es ist zwar noch Beta aber bereits feature komplett und sehr stabil.
Catalyst basiert auf Maypole und ist daher besonders geeignet wenn du Class::DBI und TT2 benutzen willst....
Hier mal ein Beispiel:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
package MyApp;
use Catalyst;
MyApp->action(
_end => sub {
my ( $self, $c ) = @_;
$c->forward('MyApp::View::TT') unless $c->response->output;
},
'index.html' => sub {
my ( $self, $c ) = @_;
$c->stash->{template} = 'index.tt';
},
'hello.html' => sub {
my ( $self, $c ) = @_;
$c->response->output('Hello Catalyst');
},
'/^product[_]*(\d*).html$/' => sub {
my ( $self, $c ) = @_;
$c->stash->{template} = 'product.tt';
$c->stash->{product} = $c->req->snippets->[0];
}
);
1;
Zum testen gibts sogar ein Kommandozeilen frontend:
Code: (dl
)
perl -MCatalyst::Test=MyApp -e1 product_23.html