1package Pod::ProjectDocs::Config;
2use strict;
3use warnings;
4
5use base qw/Class::Accessor::Fast/;
6
7use Readonly;
8
9__PACKAGE__->mk_accessors(qw/
10    title
11    desc
12    charset
13    verbose
14    index
15    outroot
16    libroot
17    forcegen
18    lang
19    except
20/);
21
22Readonly my $DEFAULT_TITLE   => qq/MyProject's Libraries/;
23Readonly my $DEFAULT_DESC    => qq/manuals and libraries/;
24Readonly my $DEFAULT_CHARSET => qq/UTF-8/;
25Readonly my $DEFAULT_LANG    => qq/en/;
26
27sub new {
28    my $class = shift;
29    my $self  = bless { }, $class;
30    $self->_init(@_);
31    return $self;
32}
33
34sub _init {
35    my($self, %args) = @_;
36    $self->title   ( $args{title}   || $DEFAULT_TITLE   );
37    $self->desc    ( $args{desc}    || $DEFAULT_DESC    );
38    $self->charset ( $args{charset} || $DEFAULT_CHARSET );
39    $self->lang    ( $args{lang}    || $DEFAULT_LANG    );
40    $self->verbose ( $args{verbose}                     );
41    $self->index   ( $args{index}                       );
42    $self->outroot ( $args{outroot}                     );
43    $self->libroot ( $args{libroot}                     );
44    $self->forcegen( $args{forcegen}                    );
45    $self->except  ( $args{except}                      );
46}
47
481;
49__END__
50
51