view release on metacpan or  search on metacpan

FR/perlvar.pod  view on Meta::CPAN

        bar->baz($boon);
    }

Considérons ce qui se passe pendant l'exécution du bloc BEGIN. À ce
moment, le bloc BEGIN a déjà été compilé, mais le corps de foo() est
encore à compiler. Par conséquent, la nouvelle valeur de $^H ne sera
visible seulement que pendant que le corps de foo() est compilé.

La substitution du bloc BEGIN précédent parE<nbsp>:

    BEGIN { require strict; strict->import('vars') }

montre comment C<use strict 'vars'> est implémenté. Voici une version
conditionnelle du même pragma lexicalE<nbsp>:

    BEGIN { require strict; strict->import('vars') if $condition }

=item %^H

ATTENTIONE<nbsp>: Cette variable est disponible pour utilisation interne
uniquement. Sa disponibilité, son comportement et son contenu sont soumis à
changement sans avis.

Le hachage %^H fournit la même sémantique du traitement de portée lexicale
que $^H. Ceci le rend utile pour implémenter des pragmas de portée lexicale.