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