use strict;
use warnings;

# Modulul strict impune o serie de restricții care să ajute la realizarea unui program
# care să fie mai puțin predispus la erori. De ex. se pot declara variabile folosind
# cuvântul cheie "my". Acesta restricționează domeniul de aplicare al variabilei la local.
# Se localizează toate variabilele. Acest mecanism face codul mai lizibil și mai puțin predispus la erori.
# Dacă o variabilă nu este declarată folosind "my", aceasta este creată și tratată drept global.
# Acest lucru este bine de evitat. Se recomandă întotdeauna reducerea sferei de "vizibilitate"
# a variabilelor la porțiunea de cod în care acestea sunt necesare.

# Modulul warnings, introdus de la versiunea 5.6 ajută la identificarea greșelilor de tastare,
# introduce un avertisment ori de câte ori vede ceva în neregulă în instrucțiunile programului.
# Acest modul este de un real ajutor în identificarea rapidă a unor inadvertențe scăpate în codul programului.

# Notă: Cel mai important aspect de subliniat aici ar fi faptul că "use strict" anulează execuția
# programului dacă găsește erori. Prin contrast "use warnings" nu oferă decât avertismente,
# acestea nu vor anula execuția programului.

#=pod

my $var_globala = 2;
my $var_locala = 4;

sub procedura {
  my $var_locala += 6;
  $var_globala += 10;
}

print '$var_globala'," are valoarea $var_globala\n";
print '$var_locala'," are valoarea $var_locala\n";
print "\nSe executa procedura care modifica valoarea variabilelor\n";
print "Dupa aceasta, variabilele au urmatoarele valori:\n\n";
procedura;
print '$var_globala'," are valoarea $var_globala\n";
print '$var_locala'," are valoarea $var_locala\n";

#=cut

=pod

my $var_globala = 2;
my $var_locala = 4;

sub procedura {
  my $var_locala += 6;
  my $var_globala += 10;
}

print '$var_globala'," are valoarea $var_globala\n";
print '$var_locala'," are valoarea $var_locala\n";
print "\nSe executa procedura care modifica valoarea variabilelor\n";
print "Dupa aceasta, variabilele au urmatoarele valori:\n\n";
procedura;
print '$var_globala'," are valoarea $var_globala\n";
print '$var_locala'," are valoarea $var_locala\n";

=cut