package MooseX::NestedPackage;
use Moose;
use Moose::Util;
extends 'Moose::Meta::Attribute';

has 'class' => (is=> 'ro',isa=> 'Str');

after 'attach_to_class' => sub {
    my ($attr, $class) = @_;
    my $name = $attr->name;  # 'eyes'
	my $class_name = $attr->{isa};  # 'Eyes'
	my $class_code = $attr->class;  # all the antlers
	my $parent = $class->{package};  # 'Body'
	my $parent_lc = lc($parent);        #'body'
	$attr->{trigger} = sub { 
		my $self = shift;
		$self->$name->$parent_lc($self);
	};
	my $code = qq{
		package $class_name;
		use Moose;
		$class_code;
		has '$parent_lc' => (is=> 'rw',isa=> '$parent',weak_ref=> 1); 
	};
	eval $code; $@ && die qq{ $@:\n$code };
	## default is not needed 
	$attr->{default} = sub{ $class_name->new() };
	## cos defaults should go directly in each nested attribute
	$attr->{lazy} = 0;  ## lazy stopped working outside due to a missing default
};