/usr/share/doc/libdata-faker-perl/examples/datafaker is in libdata-faker-perl 0.10-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | #!/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
|