Yet Another CPAN Grep

Jedi-Plugin-Auth ( C/CE/CELOGEEK/Jedi-Plugin-Auth-0.01.tar.gz, CELOGEEK, 2014; MetaCPAN )

Jedi-Plugin-Auth/lib/Jedi/Plugin/Auth/Role.pm ( view source; MetaCPAN )

ex/;
use Data::UUID;
use Path::Class;
use Jedi::Plugin::Auth::DB;
use DBIx::Class::Migration;
use JSON;

my $uuid_generator = Data::UUID->new;

# connect / create / prepare db
sub _prepare_database {


    return {
        user  => $user->user,
        uuid  => $user->uuid,
        info  => decode_json( $user->info ),
        roles => [ map { $_->name } $user->roles->all() ],
    };
}

use Moo::Rol

 ),
                uuid     => $uuid_generator->create_str(),
                info     => encode_json( $params{info} ),
            }
        );
        1;
        };

    $user->set_roles( [ map { {