The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Pod::ProjectDocs::Config;
use strict;
use warnings;

use base qw/Class::Accessor::Fast/;

use Readonly;

__PACKAGE__->mk_accessors(qw/
    title
    desc
    charset
    verbose
    index
    outroot
    libroot
    forcegen
    lang
    except
/);

Readonly my $DEFAULT_TITLE   => qq/MyProject's Libraries/;
Readonly my $DEFAULT_DESC    => qq/manuals and libraries/;
Readonly my $DEFAULT_CHARSET => qq/UTF-8/;
Readonly my $DEFAULT_LANG    => qq/en/;

sub new {
    my $class = shift;
    my $self  = bless { }, $class;
    $self->_init(@_);
    return $self;
}

sub _init {
    my($self, %args) = @_;
    $self->title   ( $args{title}   || $DEFAULT_TITLE   );
    $self->desc    ( $args{desc}    || $DEFAULT_DESC    );
    $self->charset ( $args{charset} || $DEFAULT_CHARSET );
    $self->lang    ( $args{lang}    || $DEFAULT_LANG    );
    $self->verbose ( $args{verbose}                     );
    $self->index   ( $args{index}                       );
    $self->outroot ( $args{outroot}                     );
    $self->libroot ( $args{libroot}                     );
    $self->forcegen( $args{forcegen}                    );
    $self->except  ( $args{except}                      );
}

1;
__END__