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 |
- |
|
|