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