sub store {
my ($self) = @_;
my ( $uuid, $uuidstring );
$self->client_id($self->_generate_unused_uuid('client_id'))
unless $self->client_id;
$self->secret($self->_generate_unused_uuid('secret'))
-