package MyScopeApp;

use strict;
use warnings;

# Exemple de portée globale (par défaut)
sub global_example {
    my $global_var = "Valeur globale initiale";
    print "[Global] Avant modification: $global_var\n";
    return 1;
}

# Utilisation de 'local' pour créer un scope local temporaire
sub local_example {
    # $temp_var est visible uniquement dans cette sous-routine
    local my $temp_var = "Valeur temporaire locale";
    print "[Local] Valeur temporaire: $temp_var\n";
    
    # Tentative d'écriture dans le scope global qui pourrait écraser quelque chose
    $global_var = "Définition locale (scope variable)"; # Attention: si $global_var n'existe pas, c'est un piège!
    print "[Local] Tentative d'écrasement de $global_var (potentiellement dangereux).\n";
    
    # Revertir le scope à sa valeur initiale en quittant la sous-routine
    # (Le 'local' en Perl doit souvent être géré avec des save/restore, mais pour cet exemple simple, nous montrons l'isolation.)
    return 1;
}

# Utilisation de 'our' pour gérer le package scope
sub our_example {
    our $our_var = "Valeur OUR du package";
    print "[OUR] Valeur actuelle du package: $our_var\n";
    
    # Modifier la variable au niveau du package
    $our_var = "Nouvelle valeur via OUR (scope package)";
    print "[OUR] Valeur modifiée: $our_var\n";
    
    # Récupérer la valeur modifiée par d'autres parties du code
    return 1;
}

# Appel des exemples pour démonstration
global_example();
local_example();
our_example();