Définition

Un objet est une structure en Perl, tableau ou hash, qui est créé (instancié) d'une manière spéciale par la fonction bless. Le travail de bless est de créer l'environnement, la closure, dans lequel les objets (variables) et les méthodes (fonctions) travaillent.

1. Exemple 3-1. Création d'un objet

       $objref = new Doc( Author => 'N.Walsh', Type => 'DOCTYPE' );
    

   Le constructeur a créé une référence à l'objet Doc. Le constructeur est lui même une référence à une sub qui peut être appelée directement:

       $objref = Doc->new( Author => 'N.Walsh', Type => 'DOCTYPE' );
       
       use Math::Complex;  # toutes les référence de ce module sont chargées
       $z = i;             # en particulier le token 'i' est réservé!
       $z1 = $z*$z;	# $z1 contient la valeur '-1'!
       $z2 = cplx( 1, 1 );	# crée un complexe avec la méthode de classe 'cplx'
       $z3->display_format( 'cartesian' ); # appel d'une méthode objet
       print "z3 = $z3\n"; # affiche z3 au format cartesien
   
       #---------------------------------------------------------------------
   
       use Tk;             # un exemple utilisant le module GUI 'Tk'
       $mw = MainWindow->new();
       $button = $mw->Button( -text    => "Welcome!",
                              -command => sub { print "Salut" } );
       $button->pack; 
    

   On voit comment utiliser des objets déclarés ainsi que les méthodes associées. Dans l'exemple des complexes, 'i' est une variable de classe (globale).