File: synopsis.pl

package info (click to toggle)
libdata-fake-perl 0.006-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 324 kB
  • sloc: perl: 987; makefile: 7
file content (20 lines) | stat: -rw-r--r-- 455 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
use 5.008001;
use strict;
use warnings;

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

my $hero_factory = fake_hash(
    {
        name      => fake_name(),
        battlecry => fake_sentences(1),
        birthday  => fake_past_datetime("%Y-%m-%d"),
        friends   => fake_array( fake_int( 2, 4 ), fake_name() ),
        gender    => fake_pick(qw/Male Female Other/),
    }
);

my $hero = $hero_factory->();

print Dumper($hero) . "\n";