Data::Fake SYNOPSIS

gistfile1.pl

    use Data::Fake qw/Core Names Text Dates/;

    my $hero_factory = fake_hash(
        {
            name      => fake_name(),
            battlecry => fake_sentences(1),
            birthday  => fake_past_date("%Y-%m-%d"),
            friends   => fake_var_array( 3, 6, fake_name() ),
            gender    => fake_choice(qw/Male Female Other/),
        }
    );

    my $hero = $hero_factory->();
    
#    {
#          'friends' => [
#                         'Finley Graeme Santos',
#                         'Malaysia Selena Alvarez',
#                         'Valeria Amya Herrera',
#                         'Danica Anabel Stark'
#                       ],
#          'birthday' => '1975-06-22',
#          'battlecry' => 'Alias cumque officia molestias.',
#          'gender' => 'Other',
#          'name' => 'Gavyn Oscar Chavez'
#    };