#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	$this->super(@_) || $this->croak("super failed");

	# New builders start off with new (and empty) portfolios and shortcuts.
	foreach my $field (qw(portfolio shortcuts)) {
		unless ($this->defines($field)) {
			$this->create(owner => $this, id => $field, 
				      parent => $this->parent->$field);
		}
	}
	
	return $this;
}
