ActiveAccount::disable
  {
    my ($self) = @_;
    bless $self, "DisabledAccount";
  }