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

[Renato Santos]

No caso, eu não tinha reparado.

o modulo não precisa ir no qw//.

Coloque o "with 'CatalystX::AuthenCookie';" depois do use Catalyst qw/ ...
/. assim o moose vai importar¹ as funções desse CatalystX junto com o
object do Catalyst.


¹
http://search.cpan.org/dist/Moose/lib/Moose/Manual/Roles.pod#WHAT_IS_A_ROLE?


On Mon, Jul 22, 2013 at 2:43 PM, Ricardo Alcantara <
alcantarafox at yahoo.com.br> wrote:

> Seria isso?
>
> package Admin;
> use Moose;
> use namespace::autoclean;
>
> use Catalyst::Runtime 5.80;
>
> # Set flags and add plugins for the application.
> #
> # Note that ORDERING IS IMPORTANT here as plugins are initialized in order,
> # therefore you almost certainly want to keep ConfigLoader at the head of
> the
> # list if you're using it.
> #
> #         -Debug: activates the debug mode for very useful log messages
> #   ConfigLoader: will load the configuration from a Config::General file
> in the
> #                 application's home directory
> # Static::Simple: will serve static files from the application's root
> #                 directory
>
> use Catalyst qw/
>     -Debug
>     ConfigLoader
>     Static::Simple
> /;
>
> extends 'Catalyst';
>
> our $VERSION = '0.01';
>
> # Configure the application.
> #
> # Note that settings in admin.conf (or other external
> # configuration file that you set up manually) take precedence
> # over this when using ConfigLoader. Thus configuration
> # details given here can function as a default configuration,
> # with an external configuration file acting as an override for
> # local deployment.
>
> __PACKAGE__->config(
>     name => 'Admin',
>     # Disable deprecated behavior needed by old applications
>     disable_component_resolution_**regex_fallback => 1,
>     enable_catalyst_header => 1, # Send X-Catalyst header
> );
>
> # Start the application
> __PACKAGE__->setup();
> =encoding utf8
>
> =head1 NAME
>
> Admin - Catalyst based application
>
> =head1 SYNOPSIS
>
>     script/admin_server.pl
>
> =head1 DESCRIPTION
>
> [enter your description here]
>
> =head1 SEE ALSO
>
> L<Admin::Controller::Root>, L<Catalyst>
>
> =head1 AUTHOR
>
> Ricardo,,,
>
> =head1 LICENSE
>
> This library is free software. You can redistribute it and/or modify
> it under the same terms as Perl itself.
>
> =cut
>
> 1;
>
>
> =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<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> >
> =end disclaimer
>



-- 
Saravá,
Renato CRON
http://www.renatocron.com/blog/
@renato_cron <http://twitter.com/#!/renato_cron>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20130722/5811aa4f/attachment-0001.html>