#!/usr/bin/perl -w

use strict;
use warnings;

our $VERSION = '0.50';    # VERSION

use Getopt::Long;
use Pod::Usage;
use Pod::ProjectDocs;

my (
    $out,   $lib,     $title,    $lang,         $desc,
    $index, $verbose, $forcegen, $nosourcecode, $except
);
my $help = @ARGV == 0;

my %opt = (
    'help|?'        => \$help,
    'out|o=s'       => \$out,
    'lib|l=s@'      => \$lib,
    'except|e=s@'   => \$except,
    'title|t=s'     => \$title,
    'desc|d=s'      => \$desc,
    'index!'        => \$index,
    'verbose|v'     => \$verbose,
    'forcegen!'     => \$forcegen,
    'nosourcecode!' => \$nosourcecode,
    'lang=s'        => \$lang,
);

GetOptions(%opt);

pod2usage(1) if $help;

my $p = Pod::ProjectDocs->new(
    outroot      => $out,
    libroot      => $lib,
    except       => $except,
    title        => $title,
    desc         => $desc,
    index        => $index,
    verbose      => $verbose,
    forcegen     => $forcegen,
    nosourcecode => $nosourcecode,
    lang         => $lang,
);
$p->gen();

=head1 NAME

pod2projdocs - generates CPAN like project documents from pod.

=head1 SYNOPSIS

pod2projdocs [options]

 Options:
    -help        display this help and exist
    -out         directory path that you want to generate documents into
    -lib         your project's library-root-directory path
    -title       your project's title
    -desc        your project's description
    -noindex     don't create index for all generated pages
    -forcegen    generate documents each time, ignoring last modified timestamp
    -lang        set this language as xml:lang (default 'en')
    -except      the files matches this regex won't be parsed

 You can set each option with their first character,
 for example, you can write -o instead of -out.

 And you can generate documents from multiple library directories.

  pod2projdocs -o /path/to/outputdir -l /path/to/lib1 -l /path/to/lib2

=head1 DESCRIPTION

generates CPAN like project documents from pod.

=head1 SEE ALSO

L<Pod::ProjectDocs>

=head1 AUTHOR

Lyo Kato E<lt>lyo.kato@gmail.comE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2005 Lyo Kato. All rights reserved.

This library is free software. You can redistribute it and/or modify it under
the same terms as perl itself.

=cut
