use warnings; use strict; package Jifty::Plugin::AuthLDAPOnly::CurrentUser; use base qw/Jifty::CurrentUser Jifty::Plugin::AuthLDAPOnly/; =head2 new PARAMHASH Instantiate a new current user object, loading the user by paramhash: my $item = Jifty::Plugin::AuthLDAPOnly::Model::Item->new( Jifty::Plugin::AuthCASOnly::CurrentUser->new(email => 'user@LDAP.user')); if you give the param _bootstrap => 1 your object will be marked as a bootstrap user. You can use that to do an endrun around acls. =cut sub _init { my $self = shift; my %args = (@_); my $AuthLDAPUserClass = $self->AuthLDAPUserClass; if (delete $args{'_bootstrap'} ) { $self->is_bootstrap_user(1); } elsif (keys %args) { $self->user_object($AuthLDAPUserClass->new(current_user => $self)); $self->user_object->load_by_cols(%args); } $self->SUPER::_init(%args); } 1;