/usr/share/perl5/Module/Faker.pm is in libmodule-faker-perl 0.16-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 | package Module::Faker;
{
$Module::Faker::VERSION = '0.016';
}
use 5.008;
use Moose 0.33;
# ABSTRACT: build fake dists for testing CPAN tools
use Module::Faker::Dist;
use File::Next ();
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
=head1 NAME
Module::Faker - build fake dists for testing CPAN tools
=head1 VERSION
version 0.016
=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
|