package CommitBit::CurrentUser;
use warnings;
use strict;
use base 'Jifty::CurrentUser';
sub password_is {
my $self = shift;
my $pass = shift;
return 1 if ( $self->user_object->__value('password') eq $pass );
return undef;
}
sub _init {
my $self = shift;
my %args = (@_);
if ( delete $args{'_bootstrap'} ) {
$self->is_bootstrap_user(1);
} elsif ( keys %args ) {
$self->user_object(
CommitBit::Model::User->new( current_user => $self ) );
$self->user_object->load_by_cols(%args);
}
$self->SUPER::_init(%args);
}
1;
syntax highlighted by Code2HTML, v. 0.9.1