view release on metacpan or  search on metacpan

lib/Mojolicious/Plugin/ContextAuth/DB/Role.pm  view on Meta::CPAN

    my $error;
    try {
        $self->dbh->db->insert( corbac_roles => \%params);
    } 
    catch {
        $self->error( 'Invalid parameter' );
        $error = $_;
    };

    return if $error;

    my $role = $self->load( $params{role_id} );
    return $role;
}

sub delete ($self, $id = $self->role_id) {
    $self->error('');
    
    if ( !$id ) {
        $self->error( "Need role id" );
        return;
    }

    if ( ref $id ) {
        $self->error( "Invalid role id" );
        return;
    }

    my $error;
    my $result;

    try {
        my $tx = $self->dbh->db->begin;

        $self->dbh->db->delete(
            corbac_role_permissions => { role_id => $id },
        );

        $self->dbh->db->delete(
            corbac_user_context_roles => { role_id => $id }
        );

        $result = $self->dbh->db->delete(
            corbac_roles => {
                role_id => $id,
            }
        );

        $tx->commit;
    }
    catch {
        $self->error( "Cannot delete role: " . $_ );
        $error = 1;
    };

    return if $error;
    return $result->rows;
}

sub update ($self, @params) {
    $self->error('');
    
    my $id = @params % 2 ? shift @params : $self->role_id;
    my %to_update = @params;

    if ( exists $to_update{role_name} && (
        length $to_update{role_name} > 255 ||
        length $to_update{role_name} < 3 )
    ) {
        $self->error( 'Invalid parameter' );
        return;
    }

    delete $to_update{role_id};

    my $result;
    my $error;
    try {
        $result = $self->dbh->db->update(
            corbac_roles => \%to_update,
            { role_id => $id }
        );
    }
    catch {
        $self->error( 'Invalid parameter' );
        $error = $_;
    };

    return if $error;

    if ( !$result->rows ) {
        $self->error( 'No role updated' );
        return;
    }

    return $self->load( $id );
}

sub search ($self, %params) {
    $self->error('');

    my $error;
    my @role_ids;

    try {
        my $result = $self->dbh->db->select(
            corbac_roles => ['role_id'] => \%params,
        );

        while ( my $next = $result->hash ) {
            push @role_ids, $next->{role_id};
        }
    }
    catch {
        $self->error('Cannot search for roles');
        $error = $_;
    };

    return if $error;
    return @role_ids;