my $self= shift(@_);
    $self= tied(%$self)   if  tied(%$self);