subtitle handling, prettified dates. bugfixes and better errors

[scpubgit/SCS.git] / lib / SCSite / Page.pm

package SCSite::Page;

use IO::All;
use Time::Local qw(timelocal);
use Moo;

has $_ => (is => 'ro') for qw(
  title subtitle description keywords body created path
);

sub published_at {
  $_[0]->created
    ? scalar localtime timelocal
        map +(@{$_}[0..3], $_->[4]-1, $_->[5]-1900),
          [ reverse split '\D+', $_[0]->created ]
    : ''
}

has "_$_" => (is => 'ro', init_arg => $_) for qw(page_set);

sub children {
  my ($self, %args) = @_;
  if (my $at = delete $args{at_depth}) {
    @args{qw(min_depth max_depth)} = ($at, $at);
  }
  my $ps = $self->_page_set;
  (ref $ps)->new(
    top_dir => $ps->base_dir,
    base_dir => io->dir($ps->base_dir)->catdir($self->path),
    max_depth => 1,
    %args,
  );
}

1;