sub BUILD {
	my $self = shift;
	my $meta = $self->meta;
	print("BUILD called for " . __PACKAGE__ . "\n");
	no strict;
	foreach my $build_attribute ($meta->get_all_attributes) {
		my $build_attname = $build_attribute->name;
		print("Creating builder for attribute [" . $build_attname . "]\n");
		if (!defined *{__PACKAGE__ . '::_build_' . $build_attname}) {
			*{__PACKAGE__ . '::_build_' . $build_attname} = sub {
				my $self = shift;
				my $meta = $self->meta;
				my $attribute = $meta->find_attribute_by_name($build_attname);
				if (!defined $attribute) { Carp::confess("Error: Can't find attribute [$build_attname]\n"); }
				my $type_name = $attribute->type_constraint->name;
				#if ($attribute->type_constraint->is_a_type_of("ArrayRef[Any]")) { return []; }
				if ($type_name =~ /^ArrayRef/) { return []; }
				#elsif ($attribute->type_constraint->is_a_type_of("HashRef[Any]")) { return {}; }
				elsif ($type_name =~ /^HashRef/) { return []; }
				elsif ($attribute->type_constraint->equals("Str")) { return ""; }
				elsif ($attribute->type_constraint->is_a_type_of("Num")) { return 0; }
				else { return undef };
			};
		} 
	}
	use strict;
}