sub new {
        my $class = shift;
        my $obj = $class->SUPER::new( "AuthorizeNet"  );
		# rebless or do whatever with $obj
        return $obj;
    }