Catalyst on Debian

abril 28, 2009

Instalando Catalyst

aptitude install libcatalyst-view-tt-perl libcatalyst-modules-perl libcatalyst-modules-extra-perl libcatalyst-perl

Criando projeto

catalyst.pl teste

cd teste/

Acessando

script/teste_server.pl

http://localhost:3000/

Criando Controller

script/teste_create.pl controller Site

Editando Controller

vim lib/teste/Controller/Site.pm

Adicione a linha:

sub hello :Local {
my ( $self, $c ) = @_;

$c->res->body(‘Hello World’);
}

Acessando a URL:

script/teste_server.pl

http://localhost:3000/site/hello

A View

script/teste_create.pl view TT TT

Adicione  ao arquivo Root.pm

vim lib/teste/Controller/Root.pm

sub index :Private {
my ( $self, $c ) = @_;
$c->stash->{app_name} = ‘teste’;
$c->stash->{template} = ‘index.tt’;
}

Comente a linha:

sub end : ActionClass(‘RenderView’) {}

e adicione:

sub end :Private {
my ( $self, $c ) = @_;

$c->forward(‘teste::View::TT’);
}

Crie o arquivo index.tt

vim root/index.tt

com o conteúdo:

<h1> Bem vindo ao [% app_name %] </h1>

<hr>

Acesse a url:

script/teste_server.pl

http://localhost:3000/

TDD ( http://en.wikipedia.org/wiki/Test-driven_development)

simples teste dentro do diretório do projeto:

prove –lib lib  t t/01app.t

testando o controller

CATALYST_DEBUG=0 prove –lib lib  t t/controller_Site.t

Mais sobre testes: http://search.cpan.org/dist/Catalyst-Manual/lib/Catalyst/Manual/Tutorial/Testing.pod

Métodos com Atributos são Ações …. Divirtam-se!

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: