Ejemplo

A continuación veamos un código que, siguiendo las recomendaciones establecidas, separa el proceso de iniciación, organiza los parámetros del constructor según un ''hash'' y provee valores por defecto.

 1	package Biblio::Doc;
 2	use strict;
 3	use vars('$AUTOLOAD');
 4	
 5	# Separamos inicialización de construcción 
 6	
 7	{
 8	  my $_count = 0;
 9	  sub get_count { $_count }
10	  sub _incr_count { $_count++ }
11	  sub _decr_count { $_count-- }
12	}
13

Casiano Rodríguez León
Licencia de Creative Commons
Principios de Programación Imperativa, Funcional y Orientada a Objetos Una Introducción en Perl/Una Introducción a Perl
por Casiano Rodríguez León is licensed under a Creative Commons Reconocimiento 3.0 Unported License.

Permissions beyond the scope of this license may be available at http://campusvirtual.ull.es/ocw/course/view.php?id=43.
2012-06-19