4 use Time::Local qw(timelocal);
7 with 'SCSite::PageChildren';
9 has $_ => (is => 'ro') for qw(
10 title subtitle description keywords body created path
15 ? scalar localtime timelocal
16 map +(@{$_}[0..3], $_->[4]-1, $_->[5]-1900),
17 [ reverse split '\D+', $_[0]->created ]
21 has "_$_" => (is => 'ro', init_arg => $_) for qw(page_set);
23 sub _page_set_class { ref($_[0]->_page_set) }
24 sub _top_dir { $_[0]->_page_set->top_dir }
25 sub _my_path { io->dir($_[0]->_top_dir)->catdir($_[0]->path) }