Yet Another CPAN Grep

Jifty-Plugin-OpenID ( Y/YV/YVESAGO/Jifty-Plugin-OpenID-1.02.tar.gz, YVESAGO, 2010; MetaCPAN )

Jifty-Plugin-OpenID/lib/Jifty/Plugin/OpenID.pm ( view source; MetaCPAN )

on server response.

=head3 ax_mapping

mapping of recieve values with your application fields in json format.

=cut

__PACKAGE__->mk_accessors(qw(ax_mapping ax_values ax_param));

sub init {
    my $

Jifty-Plugin-OpenID ( Y/YV/YVESAGO/Jifty-Plugin-OpenID-1.02.tar.gz, YVESAGO, 2010; MetaCPAN )

Jifty-Plugin-OpenID/lib/Jifty/Plugin/OpenID/Action/AuthenticateOpenID.pm ( view source; MetaCPAN )

action

Creates local user if non-existant and redirects to OpenID auth URL

=cut

use Jifty::JSON qw /jsonToObj/;

sub take_action {
    my $self   = shift;
    my $openid = $self->argument_value('op

            delayed_return => 1
                    );
    Jifty->web->session->set(ax_mapping => jsonToObj($ax_mapping));
    Jifty->web->session->set(ax_values => $ax_values);
    $ax_param = '&'.$a