package Child;
use Moose;
extends 'Parent';

has 'knuisje' => (
	is => 'rw', 
	isa => 'Str',
	lazy_build => 1,
);

{
    my $meta = __PACKAGE__->meta;
    foreach my $attribute ($meta->get_attribute_list) {
    	$meta->add_method(
    	    '_build_' . $attribute, 
    	    sub {
        		my $self = shift;
        		my $fropsel = $meta->get_attribute($attribute);
        		if ($fropsel->type_constraint->name =~ /^Str/) { return ""; }
        	}
    	);
    }
}

1;