# pass a module name
# returns list or count of coderefs for unrun INITs in the given module
# empty list/undef if something goes wrong
sub get_inits_for_module {
   use 5.008001;
   use B;
   my $mod = shift;
   eval {
      map $_->object_2svref,
         grep $_->GV->STASH->NAME eq $mod,
            B::init_av->ARRAY
   }
}