package modul_exemplu_functii;
# Numele modulului trebuie să coincidă cu numele fișierului modul_exemplu_functii.pm
# Acest program se constituie într-un exemplu demonstrativ pentru realizarea unui modul perl
# care conține trei funcții: deseneaza_1, deseneaza_2 și aduna. Acest exemplu este cel mai simplu
# mod de implementare care asigură funcționalitatea modului.

require Exporter;

our @ISA           = qw(Exporter);
our @EXPORT        = qw(deseneaza_1 deseneaza_2 aduna);
our @EXPORT_OK     = qw();
our %EXPORT_TAGS   = ();
our $VERSION       = 0.1;

sub deseneaza_1
{
  my $caracter = shift || "-";
  my $lungime = shift || "40";
  return($caracter x $lungime),"\n";
}

sub deseneaza_2
{
  %argumente = @_;
  my $caracter = $argumente{model} || "-";
  my $lungime = $argumente{dim} || 40;
  return($caracter x $lungime),"\n";
}

sub aduna
{
  my $index = $#_;
  my $i;
  my $finala;
  for ($i=0; $i<=$index; $i++)
	{
	$finala += $_[$i];
	}
  return $finala;
}

1;