|
Lines 367-372
sub _gen_type {
Link Here
|
| 367 |
decimal => \&_gen_real, |
367 |
decimal => \&_gen_real, |
| 368 |
double_precision => \&_gen_real, |
368 |
double_precision => \&_gen_real, |
| 369 |
|
369 |
|
|
|
370 |
time => \&_gen_time, |
| 370 |
timestamp => \&_gen_datetime, |
371 |
timestamp => \&_gen_datetime, |
| 371 |
datetime => \&_gen_datetime, |
372 |
datetime => \&_gen_datetime, |
| 372 |
date => \&_gen_date, |
373 |
date => \&_gen_date, |
|
Lines 430-435
sub _gen_datetime {
Link Here
|
| 430 |
return $self->schema->storage->datetime_parser->format_datetime(DateTime->now()); |
431 |
return $self->schema->storage->datetime_parser->format_datetime(DateTime->now()); |
| 431 |
} |
432 |
} |
| 432 |
|
433 |
|
|
|
434 |
sub _gen_time { |
| 435 |
my ($self, $params) = @_; |
| 436 |
return $self->schema->storage->datetime_parser->format_time(DateTime->now()); |
| 437 |
} |
| 438 |
|
| 433 |
sub _gen_text { |
439 |
sub _gen_text { |
| 434 |
my ($self, $params) = @_; |
440 |
my ($self, $params) = @_; |
| 435 |
# From perldoc String::Random |
441 |
# From perldoc String::Random |
| 436 |
- |
|
|