File: datafaker

package info (click to toggle)
libdata-faker-perl 0.07-2
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 156 kB
  • ctags: 18
  • sloc: perl: 1,957; makefile: 44
file content (24 lines) | stat: -rwxr-xr-x 500 bytes parent folder | download | duplicates (5)
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