6 has $_ => (is => 'ro') for qw(title description keywords body created path);
8 has "_$_" => (is => 'ro', init_arg => $_) for qw(page_set);
12 my $ps = $self->_page_set;
14 top_dir => $ps->base_dir,
15 base_dir => io->dir($ps->base_dir)->catdir($self->path),