sub children {
	my $self = shift;
	@_ ? $self->{_children} = shift :
	$self->{_children};
}