dtrace probe for phase change

gistfile1.pl

kaitain% cat test.pl 
#!/usr/bin/env perl
use 5.14.0;
package Class {
    sub new { bless {} }
    sub DESTROY { say "Bye at ${^GLOBAL_PHASE} time" }
};

BEGIN { Class->new }
Class->new;



kaitain% perl test.pl 
Bye at START time
Bye at RUN time



kaitain% cat begin-destroy.d 
#!/usr/sbin/dtrace -qZs

:perl::phase-change
{
    self->phase = copyinstr(arg0);
}

:perl::phase-change
/copyinstr(arg0) == "RUN"/
{
    self->started = 1;
}

:perl::sub-entry
/!self->started && copyinstr(arg0) == "DESTROY"/
{
    printf("%s::%s called at %s time\n", copyinstr(arg3), copyinstr(arg0), self->phase);
}




kaitain% sudo ./begin-destroy.d &
[1] 49504



kaitain% perl test.pl 
Bye at START time
Bye at RUN time



kaitain% Class::DESTROY called at START time