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

[Daniel de Oliveira Mantovani]

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';
with 'CatalystX::AuthenCookie';

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_r
egex_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;

On 22 July 2013 14:47, Renato Santos <renato.cron at gmail.com> wrote:
> 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>
>> =end disclaimer
>
>
>
>
> --
> Saravá,
> Renato CRON
> http://www.renatocron.com/blog/
> @renato_cron
>
> =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