my $inst_count = 0;
  sub get_inst_count { $inst_count }
  sub _incr_inst_count { ++$inst_count }
  sub _decr_inst_count { --$inst_count }