[SP-pm] Duvida como usar CatalystX::AuthenCookie

Daniel de Oliveira Mantovani daniel.oliveira.mantovani at gmail.com
Mon Jul 22 10:33:03 PDT 2013


Na synopsis mostra como usar:

package MyApp;

use Moose;
extends 'Catalyst';
with 'CatalystX::AuthenCookie';

package MyApp::Controller;

use Moose;
BEGIN { extends 'Catalyst::Controller' }

sub login {
    my $self = shift;
    my $c    = shift;

    $c->set_authen_cookie( value => { user_id => 1234 } );
}

sub _check_login {
    my $self = shift;
    my $c    = shift;

    my $value = $c->authen_cookie_value();

    print $value->{user_id};
}

sub logout {
    my $self = shift;
    my $c    = shift;

    $c->unset_authen_cookie();
}




BTW, dentro do core da sua aplicacao coloque apenas "AuthenCookie"
dentro do "qw//;". Cola o core da sua app que eu te ensino a usar.


2013/7/22 Daniel de Oliveira Mantovani <daniel.oliveira.mantovani at gmail.com>:
> Ricardo, dentro do pacote existe um pasta chamada "t". Nessa pasta
> ficam os testes, provavelmente existe algum exemplo la.
>
> 2013/7/22 Ricardo Alcantara <alcantarafox at yahoo.com.br>:
>> Eu tentei colocar nessa lista também, porem não soube o que colocar. Tentei
>> 'CatalystX::AuthenCookie', 'AuthenCookie' e 'authen_cookie' porem sem
>> sucesso e como no site do metacpan ele não fala nada para colocar achei que
>> não precisaria. Sabe qual parâmetro preciso colocar para carregar esse
>> modulo?
>>
>> =begin disclaimer
>>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>> SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>
>
>
> --
>
> -dom
>
> --
>
> IBM - Business Analytics Optimization Consultant
> Daniel Mantovani +5511 8538-9897
> XOXO



-- 

-dom

--

IBM - Business Analytics Optimization Consultant
Daniel Mantovani +5511 8538-9897
XOXO


More information about the SaoPaulo-pm mailing list