Classe :: Struct em Perl

Class :: Struct concede acesso a uma sub-rotina intitulada struct.

Usar esta sub-rotina é uma maneira prática de obter uma estrutura de dados abençoada em Perl.

A ideia é que a estrutura de dados receba um nome de classe, bem como uma lista de chaves hash e respectivos sigilos.

Acho que essa sub-rotina é lisa como seda. Esta é uma adição útil ao cinto de utilidades do programador Modern Perl.

use Class::Struct;

struct Person {
    name => '$',
    age => '$',
    peers => '@',
};

my $p = Person->new();
$p->name("Jason Smythe");
$p->age(13);
$p->peers( ["Wilbur", "Ralph", "Fred"] ) ;

# or this way
@{$p->peers} = ("Wilbur", "Ralph", "Fred");

printf "At age %d, %s's first friend is %s.n", $p->age, $p->name, $p->peers(0);