You may have multiple "END" blocks within a file--they will
execute in reverse order of definition; that is: last in, first out (L
+IFO).
[download]

I'm pretty sure what "package" the end blocks are defined in does not matter. They are executed purely in the reverse order of definition, as the documentation says.

Does this answer your question?

Let's split it up into two files, then, here's SomeModule.pm:

    # SomeModule.pm
    package SomeModule;
    END { print "End of SomeModule\n"; }
    1;
[download]

And here's a test script test.pl:

    # test.pl
    use SomeModule;
    
    END { print "End of main\n"; }
[download]

Any way to jump in after SomeModule's END block?

Yes, and Zaxo has it right. If you want one end block to execute after another, it must be defined before the other. The packages or file separation are insignificant.

Define main's END block before using the module to reverse their order,

END { print 'End of main.', $/; }
use SomeModule;
# ...
__END__
End of SomeModule
End of main
[download]

The only way to change this END block is to do some perlhack, building a XS module. I have worked on that to can call END block at runtime, and to undef the END blocks of a package that I already have called:

XS

void
get_end_subs( pkg )
char *    pkg
  PREINIT:
    CV *cv_end ;
  PPCODE:
    if ( PL_endav ) {
      long i ;
      SV **svp = av_fetch(PL_endav , 0 , FALSE) ;
      long lng = av_len( PL_endav ) ;
      EXTEND(SP, lng + 1 ) ;
      for( i = 0 ; i <= lng ; ++i ) {
        cv_end = (CV *) svp[i] ;
        if ( !strcmp( HvNAME(CvSTASH(cv_end)) , pkg) ) {
          PUSHs( newRV_inc( cv_end ) );
        }
      }
    }


void
undef_end_subs( pkg )
char *    pkg
  PREINIT:
    CV *cv_end ;
    CV *cv_null ;
  PPCODE:
    if ( PL_endav ) {
      long i ;
      SV **svp = av_fetch(PL_endav , 0 , FALSE) ;
      long lng = av_len( PL_endav ) ;
      cv_null = get_cv("Safe::World::NULL_END_SUB" , TRUE) ;
      for( i = 0 ; i <= lng ; ++i ) {
        cv_end = (CV *) svp[i] ;
        if ( !strcmp( HvNAME(CvSTASH(cv_end)) , pkg) ) {
          cv_undef( cv_end ) ;
          svp[i] = cv_null ;
          SvREFCNT_inc( cv_null ) ;
        }
      }
    }
[download]

And here's a example of use:

  my $packname = 'foo::bar' ;

  foreach my $end_i ( get_end_subs($packname) ) {
    eval{ &$end_i() if $end_i ; } ;
  }

  undef_end_subs($packname) ;
[download]

Note that PL_endav is a AV, so, you can build a XS function that return it as a normal Perl ARRAY, and do all your changes with Perl code, but you also will need a function that get informations about the values in this array to know if it's the right END block (CODE).

use B;

sub B::exec_ENDs {
  my $pkg = caller;

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

{
  package foo;

  sub pretend_to_leave {
    B->exec_ENDs();
    print "I'll go get my coat ...\n";
  }

  END { print "... another END block\n"   }
  END { print "foo: this will be followed by " }
}

foo->pretend_to_leave();

END { print "main: Right, I'm outta here\n" }

__output__

foo: this will be followed by ... another END block
I'll go get my coat ...
main: Right, I'm outta here
foo: this will be followed by ... another END block
[download]