Construccion

Ahora podemos construir objetos de esas clases::

  DB<4> x $a = Tutu->new(nombre=>'Juan', apellidos=>[qw(Gonzalez Hernandez)])
0  Tutu=ARRAY(0x84eb024)
   0  'Juan'
   1  ARRAY(0x8474e5c)
      0  'Gonzalez'
      1  'Hernandez'
  DB<5> x $b = Foo->new(a=>[1..3], s=>'hola', h=>{x=>1, y=>2}, c=>$a)
0  Foo=HASH(0x850524c)
   'Foo::a' => ARRAY(0x84eb4e0)
      0  1
      1  2
      2  3
   'Foo::c' => Tutu=ARRAY(0x84eb024)
      0  'Juan'
      1  ARRAY(0x8474e5c)
         0  'Gonzalez'
         1  'Hernandez'
   'Foo::h' => HASH(0x851bed0)
      'x' => 1
      'y' => 2
   'Foo::s' => 'hola'