This file is indexed.

/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