sub dump_consts_in_current_package {
    no strict 'refs';
    printf "%s => %s\n", $_, join ', ', $_->()
      foreach grep $_ =~ ('^' . __PACKAGE__ . '::'), keys %constant::declared;
  }