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]

Wow, thanks, this is a nice point to start. But I need to avoid that the END blocks that I have called at runtime won't be called on global destruction. At least this B code have a way to find the right END block in the list for a package, than I can overwrite them with a null END block.

Many thanks.

Graciliano M. P.
"Creativity is the expression of the liberty".

Just to end the node, here's a XS function that I made that return a reference to the CODE of the END blocks:

void
get_end_sub( 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 ) );
        }
      }
    }
[download]

And you can use in this way:

  my @end_subs = get_end_sub( 'Package::Foo' ) ;
  my $sub = $end_subs[0] ;
  &$sub() ;
[download]

Graciliano M. P.
"Creativity is the expression of the liberty".

I'm not aware of any easy way to do so, and in general I don't think this is something perl necessarily wants to (or can - see below) make too easy.

Based on a quick look, the relevant code is in perl.c:Perl_destruct():

    if(PL_exit_flags & PERL_EXIT_DESTRUCT_END) {
        ...
        if (PL_endav && !PL_minus_c)
            call_list(PL_scopestack_ix, PL_endav);
        ...
    }
[download]

Hugo

Surely you can put whatever actions you need done at END time into a subroutine and call that subroutine manually whenever you like (in addition to from within an END block)

I'm not sure what you mean by "and to do things right I need to call END". If this thought occurs to you, it's a sign of design error on your part and you need to rethink your design IMHO

We can't call END, since BEGIN, CHECK, INIT & END are not subroutine, are speciall blocks. We can declare them as subroutine just as a style, but in Perl the sub will doesn't exists in the symbol table, it will be in a speciall list inside Perl, that is called on destruction.

What I wan't is to call this END blocks at runtime, END blocks defined by other modules, users, etc...

Graciliano M. P.
"Creativity is the expression of the liberty".

sub end {
    # Put here what you'd normally put in END {...}
}
END {end}
[download]

Abigail