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