sub load {
	my $self = shift;
	return unless $self->{_loaded};
	# load lazy object
	$self->{_loaded}=1;
};