package TestApp::CurrentUser;
use warnings;
use strict;
use base qw/Jifty::CurrentUser/;
use TestApp::Model::User;
sub _init {
my $self = shift;
my %args = (@_);
if ( delete $args{'_bootstrap'} ) {
$self->is_bootstrap_user(1);
} elsif (keys %args) {
$self->user_object(TestApp::Model::User->new(current_user => $self));
$self->user_object->load_by_cols(%args);
# tasty users are superusers
if ( $self->user_object->tasty == 1 ) {
$self->is_superuser(1);
}
}
$self->SUPER::_init(%args);
}
sub current_user_can {
return 1;
}
1;