sub test {
      my ($self, $inp_hash_ref, ....) = @_ ;
      if ( ref($self) !~ /__PACKAGE__/ ) {
              $inp_hash_ref = $self ;
              .......
      }
}
.....