Mouse import.

ImportMe.pm

package ImportMe;

use Mouse;

my @imports;
sub import{
	my $class = shift;
	my %args  = @_;
	my $cb = sub {
		my $self = shift;
		@{$self}{keys %args} = values %args;
	};
	push @imports, $cb;
	if($class->meta->name->can('BUILD')){
		# after builde
	}else{
		*BUILD = sub{
			(shift @imports)->(@_);
		};
	}
};

has 'test' => (is => 'rw');

1;