|
Lines 467-472
sub _gen_type {
Link Here
|
| 467 |
decimal => \&_gen_real, |
467 |
decimal => \&_gen_real, |
| 468 |
double_precision => \&_gen_real, |
468 |
double_precision => \&_gen_real, |
| 469 |
|
469 |
|
|
|
470 |
time => \&_gen_time, |
| 470 |
timestamp => \&_gen_datetime, |
471 |
timestamp => \&_gen_datetime, |
| 471 |
datetime => \&_gen_datetime, |
472 |
datetime => \&_gen_datetime, |
| 472 |
date => \&_gen_date, |
473 |
date => \&_gen_date, |
|
Lines 536-541
sub _gen_datetime {
Link Here
|
| 536 |
return $self->schema->storage->datetime_parser->format_datetime(dt_from_string); |
537 |
return $self->schema->storage->datetime_parser->format_datetime(dt_from_string); |
| 537 |
} |
538 |
} |
| 538 |
|
539 |
|
|
|
540 |
sub _gen_time { |
| 541 |
my ( $self, $params ) = @_; |
| 542 |
return $self->schema->storage->datetime_parser->format_time(dt_from_string); |
| 543 |
} |
| 544 |
|
| 539 |
sub _gen_text { |
545 |
sub _gen_text { |
| 540 |
my ($self, $params) = @_; |
546 |
my ($self, $params) = @_; |
| 541 |
# From perldoc String::Random |
547 |
# From perldoc String::Random |
| 542 |
- |
|
|