/usr/share/perl5/Module/Faker/Module.pm is in libmodule-faker-perl 0.017-1.
This file is owned by root:root, with mode 0o644.
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 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 | package Module::Faker::Module;
# ABSTRACT: a faked module
$Module::Faker::Module::VERSION = '0.017';
use Moose;
with 'Module::Faker::Appendix';
use Module::Faker::Package;
has filename => (
is => 'ro',
isa => 'Str',
required => 1,
);
has packages => (
is => 'ro',
isa => 'ArrayRef[Module::Faker::Package]',
required => 1,
auto_deref => 1,
);
sub as_string {
my ($self) = @_;
my $string = '';
for my $pkg ($self->packages) {
$string .= sprintf "package %s;\n", $pkg->name;
$string .= sprintf "our \$VERSION = '%s';\n", $pkg->version
if defined $pkg->version;
if (defined $pkg->abstract) {
$string .= sprintf "\n=head1 NAME\n\n%s - %s\n\n=cut\n\n",
$pkg->name, $pkg->abstract
}
}
$string .= "1\n";
}
no Moose;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Module::Faker::Module - a faked module
=head1 VERSION
version 0.017
=head1 AUTHOR
Ricardo Signes <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2008 by Ricardo Signes.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|