use Perl

• Perl_(begin|check|init|end)av[] (Score:1)

  by jjore (6662)

  Your BEGIN, CHECK, INIT, and END blocks are present in the arrays Perl_(begin|check|init|end)av[]. You will need to set some variable like Perl_savebegin or somesuch to have anything to look at in Perl_beginav[].
  
  There might not be an array for UNITCHECK.
  
  Manip::END lets you muck with END blocks from perl-space. There's another one which does other blocks but I forget its name.
  • Re: (Score:2)

    by Ovid (2709)

    Aw, crap. My XS skills are week. However, the code itself doesn't look too difficult. I'll play with it. Right now it appears to work, but the code itself isn't too useful because of the 'naked' code reference:

    #!/usr/bin/perl -l
    
    use strict;
    use warnings;
    
    use Data::Dumper;
    use Manip::END;
    use Sub::Information;
    
    {
        package Foo;
    
        END { print 'end!' }
    }
    
    my $ends = Manip::END->new;
    print Dumper($ends);
    print $ends->[0]->();
    print inspect( $ends->[0] )->code;

    That produces:
    • Re:Perl_(begin|check|init|end)av[] (Score:1)

      by chromatic (983) on 2007.08.13 12:51 (#56943) Homepage Journal

      (Where does that '1' come from?)

      It's the return value of the print in the END block, isn't it?

      Reply to This

      Parent

      • Re: (Score:2)

        by Ovid (2709)

        D'oh!