my $class=ref($proto)||­$proto;