sub selftest(@){
   my $self = _self(@_);
   print Dumper(@_);
}

sub _self(\@){
   print Dumper(@_);
   if(ref($_[0]->[0]) && $_[0]->[0]->_me() eq 'DVALID'){
      return shift(@{ $_[0] });
   }else{
      return;
   }
}