1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/perl -w
use Data::Faker;
use Getopt::Long;
my $faker = Data::Faker->new();
my $help = 0;
my @methods = $faker->methods;
my @todo = ();
GetOptions(
'help|h' => sub { print <DATA> },
'datatypes' => sub { print join("\n",@methods) },
);
unless(@ARGV) { print <DATA>; exit; }
print join(' ',map { $faker->$_() } @ARGV)."\n";
__END__
Usage: datafaker [options] datatypes...
Available Options:
--help Show help information
--datatypes List the available datatypes
|
