#!/usr/bin/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", { default  => 0 } ],
);

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

__END__

=pod

=encoding UTF-8

=head1 NAME

module-faker - wrapper around Module::Faker

=head1 SYNOPSIS

B<module-faker> [B<-s|--src> STR] [B<-d|--dest> STR] [B<-p|--author-dir>]

=head1 OPTIONS

=over

=item B<-s> STR, B<--src> STR

source directory

=item B<-d> STR, B<--dest> STR

destination directory

=item B<-p>, B<--author-dir>

write dists into A/U/AUTHOR dirs

=back

=head1 VERSION

version 0.022

=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
