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__