#!perl
use v5.14.0;
use warnings;
# PODNAME: module-faker

use Getopt::Long::Descriptive;
use Module::Faker;

my ($opt, $desc) = describe_options(
  '%c %o',
  [ 'src|s=s',      "source directory",                 { required => 1 } ],
  [ 'dest|d=s',     "destination directory",            { required => 1 } ],
  [ 'author-dir|p', "write dists into A/U/AUTHOR dirs", { required => 1 } ],
);

Module::Faker->make_fakes({
  source => $opt->src,
  dest   => $opt->dest,
  author_prefix => $opt->author_dir,
});

__END__

=pod

=encoding UTF-8

=head1 NAME

module-faker

=head1 VERSION

version 0.020

=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