|
Lines 430-435
sub _gen_type {
Link Here
|
| 430 |
decimal => \&_gen_real, |
430 |
decimal => \&_gen_real, |
| 431 |
double_precision => \&_gen_real, |
431 |
double_precision => \&_gen_real, |
| 432 |
|
432 |
|
|
|
433 |
time => \&_gen_time, |
| 433 |
timestamp => \&_gen_datetime, |
434 |
timestamp => \&_gen_datetime, |
| 434 |
datetime => \&_gen_datetime, |
435 |
datetime => \&_gen_datetime, |
| 435 |
date => \&_gen_date, |
436 |
date => \&_gen_date, |
|
Lines 493-498
sub _gen_datetime {
Link Here
|
| 493 |
return $self->schema->storage->datetime_parser->format_datetime(DateTime->now()); |
494 |
return $self->schema->storage->datetime_parser->format_datetime(DateTime->now()); |
| 494 |
} |
495 |
} |
| 495 |
|
496 |
|
|
|
497 |
sub _gen_time { |
| 498 |
my ($self, $params) = @_; |
| 499 |
return $self->schema->storage->datetime_parser->format_time(DateTime->now()); |
| 500 |
} |
| 501 |
|
| 496 |
sub _gen_text { |
502 |
sub _gen_text { |
| 497 |
my ($self, $params) = @_; |
503 |
my ($self, $params) = @_; |
| 498 |
# From perldoc String::Random |
504 |
# From perldoc String::Random |
| 499 |
- |
|
|