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

package SCSite::PageChildren;

use Moo::Role;

requires '_page_set_class';
requires '_top_dir';
requires '_my_path';

sub children {
  my ($self, %args) = @_;
  if (my $at = delete $args{at_depth}) {
    @args{qw(min_depth max_depth)} = ($at, $at);
  }
  $self->_page_set_class->new(
    top_dir => $self->_top_dir,
    base_dir => $self->_my_path,
    max_depth => 1,
    %args,
  );
}

1;
Commit	Line	Data
cbb06a72	1	package SCSite::PageChildren;
	2
	3	use Moo::Role;
	4
	5	requires '_page_set_class';
	6	requires '_top_dir';
	7	requires '_my_path';
	8
	9	sub children {
	10	my ($self, %args) = @_;
	11	if (my $at = delete $args{at_depth}) {
	12	@args{qw(min_depth max_depth)} = ($at, $at);
	13	}
	14	$self->_page_set_class->new(
	15	top_dir => $self->_top_dir,
	16	base_dir => $self->_my_path,
	17	max_depth => 1,
	18	%args,
	19	);
	20	}
	21
	22	1;