Re: Is possible to force the execution of a END block at runtime, without need to start global destruction?

If you've got a recent enough version of perl (5.7+ IIRC) then you can use some B magic to access END blocks e.g

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]

So there I've created a subroutine (that I've snuck into B) that will execute the END blocks for the current package.

HTH

_________ broquaint

Comment on Re: Is possible to force the execution of a END block at runtime, without need to start global destruction? Download Code

Replies are listed 'Best First'.
Re: Re: Is possible to force the execution of a END block at runtime, without need to start global destruction? by gmpassos (Priest) on May 21, 2004 at 04:41 UTC
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".	[reply]
Re: Re: Is possible to force the execution of a END block at runtime, without need to start global destruction? by gmpassos (Priest) on May 23, 2004 at 02:40 UTC
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".	[reply] [d/l] [select]


Welcome to the Monastery
	PerlMonks