package testpkg;

BEGIN { warn "in BEGIN\n" }

{
  no warnings;

  INIT {
    return if $INIT_DONE++;
    warn "in INIT\n";
  }
}

{
  use B;

  $_->object_2svref->() for grep {
    $_->GV->STASH->NAME eq __PACKAGE__
  } B::init_av->ARRAY;
}

1;