my ($class, $config, $app, $realm) = @_;
$class = ref $class || $class;
+ warn "MEEP\n\n";
+
my $self = {
_config => $config,
_app => $app,
username => $sub,
password => $user->password,
role => $user->role,
+ active => $user->active,
});
foreach my $t (@{ $user->traditions }) {
$realm->delete_user({ username => $user->id });
+
return $new_user;
}