#!perl
use strict;
use warnings;
# PODNAME: cpanfaker

use CPAN::Faker;
use Getopt::Long::Descriptive;

my ($opt, $usage) = describe_options(
  'cpanfaker %o',
  [ 'source|s=s', "the source of the distribution description files",
                  { required => 1 } ],
  [ 'dest|d=s',   "the directory in which to build the fake CPAN",
                  { required => 1 } ],
  [ 'url|u=s',    "the base URL from which the files will be used"   ],
);

my $faker = CPAN::Faker->new({
  source => $opt->source,
  dest   => $opt->dest,
  (defined $opt->url ? (url => $opt->url) : ()),
});

$faker->make_cpan;

__END__

=pod

=head1 NAME

cpanfaker

=head1 VERSION

version 0.009

=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