persona.pm

package persona;

sub new {
    my $class = shift;
    my $self = {};
    bless $self,$class;
    return $self;
}

sub setName {
    my ($self,$n) = @_;
    $self->{NOMBRE} = $n;
}

sub getName {
    my $self = shift;
    #$self->borraNombre();
    if ($self->{NOMBRE}) {
        return $self->{NOMBRE};
    } else
    {
        return "Sin sombre";
    }
}

sub borraNombre {
    my $self = shift;
    if ($self->{NOMBRE})
    {
        $self->{NOMBRE} = "Borre el nombre";
    }
}
sub destruye
{
   my $self=shift;
   delete ($self->{NOMBRE});
}
1;