/usr/share/perl5/Module/Faker.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 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 | package Module::Faker;
# ABSTRACT: build fake dists for testing CPAN tools
$Module::Faker::VERSION = '0.017';
use 5.008;
use Moose 0.33;
use Module::Faker::Dist;
use File::Next ();
#pod =head1 SYNOPSIS
#pod
#pod Module::Faker->make_fakes({
#pod source => './dir-of-specs',
#pod dest => './will-contain-tarballs',
#pod });
#pod
#pod =head2 DESCRIPTION
#pod
#pod Module::Faker is a tool for building fake CPAN modules and, perhaps more
#pod importantly, fake CPAN distributions. These are useful for running tools that
#pod operate against CPAN distributions without having to use real CPAN
#pod distributions. This is much more useful when testing an entire CPAN instance,
#pod rather than a single distribution, for which see L<CPAN::Faker|CPAN::Faker>.
#pod
#pod =method make_fakes
#pod
#pod Module::Faker->make_fakes(\%arg);
#pod
#pod This method creates a new Module::Faker and builds archives in its destination
#pod directory for every dist-describing file in its source directory. See the
#pod L</new> method below.
#pod
#pod =method new
#pod
#pod my $faker = Module::Faker->new(\%arg);
#pod
#pod This create the new Module::Faker. All arguments may be accessed later by
#pod methods of the same name. Valid arguments are:
#pod
#pod source - the directory in which to find source files
#pod dest - the directory in which to construct dist archives
#pod
#pod dist_class - the class used to fake dists; default: Module::Faker::Dist
#pod
#pod =cut
has source => (is => 'ro', required => 1);
has dest => (is => 'ro', required => 1);
has dist_class => (
is => 'ro',
isa => 'Str',
required => 1,
default => sub { 'Module::Faker::Dist' },
);
sub BUILD {
my ($self) = @_;
for (qw(source dest)) {
my $dir = $self->$_;
Carp::croak "$_ directory does not exist" unless -e $dir;
Carp::croak "$_ directory is not a directory" unless -d $dir;
Carp::croak "$_ directory is not readable" unless -r $dir;
}
Carp::croak "$_ directory is not writeable" unless -w $self->dest;
}
sub make_fakes {
my ($class, $arg) = @_;
my $self = ref $class ? $class : $class->new($arg);
my $iter = File::Next::files($self->source);
while (my $file = $iter->()) {
my $dist = $self->dist_class->from_file($file);
$dist->make_archive({ dir => $self->dest });
}
}
no Moose;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Module::Faker - build fake dists for testing CPAN tools
=head1 VERSION
version 0.017
=head1 SYNOPSIS
Module::Faker->make_fakes({
source => './dir-of-specs',
dest => './will-contain-tarballs',
});
=head2 DESCRIPTION
Module::Faker is a tool for building fake CPAN modules and, perhaps more
importantly, fake CPAN distributions. These are useful for running tools that
operate against CPAN distributions without having to use real CPAN
distributions. This is much more useful when testing an entire CPAN instance,
rather than a single distribution, for which see L<CPAN::Faker|CPAN::Faker>.
=head1 METHODS
=head2 make_fakes
Module::Faker->make_fakes(\%arg);
This method creates a new Module::Faker and builds archives in its destination
directory for every dist-describing file in its source directory. See the
L</new> method below.
=head2 new
my $faker = Module::Faker->new(\%arg);
This create the new Module::Faker. All arguments may be accessed later by
methods of the same name. Valid arguments are:
source - the directory in which to find source files
dest - the directory in which to construct dist archives
dist_class - the class used to fake dists; default: Module::Faker::Dist
=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
|