|
Lines 49-56
sub store {
Link Here
|
| 49 |
|
49 |
|
| 50 |
my ( $uuid, $uuidstring ); |
50 |
my ( $uuid, $uuidstring ); |
| 51 |
|
51 |
|
| 52 |
$self->client_id($self->_generate_unused_uuid('client_id')); |
52 |
$self->client_id($self->_generate_unused_uuid('client_id')) |
| 53 |
$self->secret($self->_generate_unused_uuid('secret')); |
53 |
unless $self->client_id; |
|
|
54 |
$self->secret($self->_generate_unused_uuid('secret')) |
| 55 |
unless $self->secret; |
| 54 |
|
56 |
|
| 55 |
return $self->SUPER::store(); |
57 |
return $self->SUPER::store(); |
| 56 |
} |
58 |
} |
| 57 |
- |
|
|