4 use Time::Local qw(timelocal);
7 has $_ => (is => 'ro') for qw(
8 title subtitle description keywords body created path
13 ? scalar localtime timelocal
14 map +(@{$_}[0..3], $_->[4]-1, $_->[5]-1900),
15 [ reverse split '\D+', $_[0]->created ]
19 has "_$_" => (is => 'ro', init_arg => $_) for qw(page_set);
22 my ($self, %args) = @_;
23 if (my $at = delete $args{at_depth}) {
24 @args{qw(min_depth max_depth)} = ($at, $at);
26 my $ps = $self->_page_set;
28 top_dir => $ps->base_dir,
29 base_dir => io->dir($ps->base_dir)->catdir($self->path),