Developer's Lab

By Diogo Pinto - DiØ

Creating Objects in Perl

É possível trabalhar com objetos em Perl, não muito semelhantes como encontrado linguagens como Java, C++ e outras, o conceito de orientação à objetos em Perl, são resumidamente representados por Hash e Bless.

Uma Classe, é representada como um Pacote, utilizando a palavra chave package para criá-la:

1
 package Pessoa;

Quando um Pacote está no mesmo arquivo, é necessário um pacote principal:

1
package main;

Método Construtor é feito através da palavra chave new:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
package Pessoa;

sub new
{
  my $this = shift;
  my $class = ref($this) || $this;

  my $self = {
      nome => shift,
      ano_nasc => shift
  };

  return bless $self, $class;
}

Comments