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 < [email protected]> 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: [email protected] > 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>
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
