Detectando la destrucción global en Perl

Question

Me gustaría detectar si mi objeto está siendo DESTROY 'como parte de la destrucción global, e imprimir una advertencia (ya que eso claramente sería un error y conduciría a la pérdida de datos). La manera obvia de hacer eso parecería ser:

sub DESTROY { 
    my $self = shift; 
    # ⋮ 
    if (i_am_in_global_destruction()) { 
     warn "I survived until global destruction"; 
    } 
} 

pero he sido incapaz de encontrar una buena manera de detectar la destrucción global (en lugar de golpear a la normalidad refcount 0 destrucción).

Por "buen sentido", quiero decir que no esta, que aunque funciona en 5.10.1 y 5.8.8, probablemente rompe la segunda a alguien le da una mirada extraña:

sub DESTROY { 
    $in_gd = 0; 
    { 
     local $SIG{__WARN__} = sub { $_[0] =~ /during global destruction\.$/ and $in_gd = 1 }; 
     warn "look, a warning"; 
    } 
    if ($in_gd) { 
     warn "I survived until global destruction"; 
    } 
}' 

Answer 1

Hay un módulo de Devel::GlobalDestruction que usa un poco de XS para permitirte llegar directamente a la bandera de destrucción global.

Actualización: desde perl 5.14.0 hay una variable global ${^GLOBAL_PHASE} que se establece en "DESTRUCT" durante la destrucción global. En general, aún debe usar Devel :: GlobalDestruction, ya que funciona con Perls de nuevo a 5.6. Cuando se instala en un perl con ${^GLOBAL_PHASE}, utilizará la función incorporada y ni siquiera necesitará un compilador de C para compilar.

Answer 2

Una solución que es lo suficientemente buena para mí es establecer un indicador en un bloque END.

package Whatever; 
our $_IN_GLOBAL_DESTRUCTION = 0; 
END { 
    $_IN_GLOBAL_DESTRUCTION = 1; 
}