Catalyst Framework Perl - (parte 2)

Configurar view
Entre no seu terminal e digite:

$ cd MyApp
$ script/myapp_create.pl view TT TT

Vai ter um retorno parecido com esse:

exists "/home/user/sites/MyApp/script/../lib/MyApp/View"
exists "/home/user/sites/MyApp/script/../t"
created "/home/user/sites/MyApp/script/../lib/MyApp/View/TT.pm"
created "/home/user/sites/MyApp/script/../t/view_TT.t"


Na primeira parte desse artigo, criamos o controller Welcome, agora vamos criar um controller chamado "Exemplo", para isso digite no seu terminal:

$ script/myapp_create.pl controller Exemplo

Vai ter um retorno parecido com esse:

exists "/home/user/sites/MyApp/script/../lib/MyApp/Controller"
exists "/home/user/sites/MyApp/script/../t"
created "/home/user/sites/MyApp/script/../lib/MyApp/Controller/Exemplo.pm"
created "/home/user/sites/MyApp/script/../t/controller_Exemplo.t"


Antes de começar a explicar o funcionamento, por padrão, o módulo 'Catalyst::View::TT' usa a extensão 'tt' para os templates, mas tem pessoas que gosta de salvar os templates com a extensão 'htm' ou 'html'. Para mudar a extensão, vá no diretório 'view' da sua aplicação e abra o arquivo 'TT.pm', você verá um código parecido a esse:

package MyApp::View::TT;

use strict;
use warnings;

use base 'Catalyst::View::TT';

__PACKAGE__->config(
TEMPLATE_EXTENSION => '.tt',
render_die => 1,
);

Para alterar a extensão, mude o valor do parâmetro 'TEMPLATE_EXTENSION', exemplo: EMPLATE_EXTENSION => '.html'.

Abra o 'controller' Exemplo, você verá um código parecido a esse:

sub index :Path :Args(0) {
my ( $self, $c ) = @_;

$c->response->body('Matched MyApp::Controller::Exemplo in Exemplo.');
}

Altere esse código por isso:

sub index :Path :Args(0) {
my ( $self, $c ) = @_;

# array cores
my @cores = qw/Azul Vermelho Verde Amarelo Preto Cinza/;

# hash numeros
my %numeros = (
um => 1,
dois => 2,
tres => 3,
quatro => 4,
cinco => 5
);

# enviar escalar nome para o template
$c->stash->{nome} = 'Lucas';

# enviar array cores para o template
$c->stash->{cores} = \@cores;

# enviar hash numeros para o template
$c->stash->{numeros} = \%numeros;

# nome do arquivo, se mudou a extensão altere, ex: 'index.htm'
$c->stash->{template} = 'index.tt';

# formato da view
$c->forward('View::TT');
}

-----------------------------------------------------------------------------

Fonte: www.vivaolinux.com.br

Catalyst Framework Perl (parte 1)

Configurar view


Instalação
1. Primeiro veja se você tem Perl instalado na sua máquina, no Linux vem por padrão na maioria das distribuições, no Windows você pode instalar o Strawberry, que pode ser baixado no site oficial strawberryperl.com.

2. Para instalar o Catalyst, entre no terminal ou prompt de comando. Depois digite:

$ cpan Catalyst::Runtime Catalyst::Devel

A instalação demora de 5 a 20 minutos, dependendo de sua conexão com a internet.

3. Agora vamos instalar o módulo Template Toolkit no Catalyst, para instalar digite:

$ cpan Catalyst::View::TT

A instalação do desse módulo é rápido.

4. Agora vamos instalar o JSON no Catatalyst, para instalar digite:

$ cpan Catalyst::View::JSON

5. Vamos instalar um módulo importante, que é o DBIx::Class, esse é o principal ORM em Perl, com ele seus problemas com SQL vão se acabar :), vamos instalar os módulos para usarmos o DBIx::Class com Catalyst, então para instalar digite:

$ cpan Catalyst::Model::DBIC::Schema DBIx::Class::Schema::Loader

A instalação pode levar alguns minutos.

Esses são os principais módulos para você criar uma aplicação usando o Framework Catalyst, futuramente com o avanço dos artigos que eu criarei sobre Catalyst, vamos instalar outros módulos, mais isso é o menos que importa, o intuito desse artigo é mostrar como se usa o Framework Catalyst

Fonte: www.vivaolinux.com.br