perlでmysqlのDATETIME型に入るダミーデータ

Data::Fakerをそのまま使おうとしても、Data::Faker::DateTime::sqldate()ってのはあるんだけど、これDATE型でそのままだとDATETIMEではないので一工夫居るっぽい。

package MyApp::DummyData;
use strict;
use warnings;

use base qw(Data::Faker);
use Data::Faker::DateTime;
__PACKAGE__->register_plugin(
    mysql_datetime => sub { Data::Faker::DateTime::timestr('%F %T') },
);

my $faker = Data::Faker->new();
my $created_at = $faker->mysql_datetime();
...

Data::Faker::DateTime::timestr()で任意のフォーマットを作成できるのでいい感じ。
Data::UUIDとかも使ってテスト用のダミーデータを良いものにしていきたい。

参考: http://www2u.biglobe.ne.jp/MAS/perl/waza/strftime.html