Help for this page

Select Code to Download

Select or download this

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