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