ce sera tres facile en Perl6, un peu comme en Ruby:
http://search.cpan.org/~lpalmer/Pe [...] Classes.pm
(mais je te deconseil d'utiliser ce firltre Perl 5 pour tes programmes, car il peut merder, mais c'est plutot pour pouvoir se faire une idée en Perl5 de ce à koi ressemblera la syntax objet de Perl6)
mais en Perl 5 rien ne t'empeche de créer plusieurs packages à l'interieur du meme script:
Code :
- package Choucroute;
- use strict;
- sub new {
- my $class = shift;
- my $self = {
- garnie => 1,
- avec_saucisses => 1,
- _pas_tres_fraiche => 1, # variable privée!
- @_
- }
- bless $self, $class
- }
- package main; # un peu comme le main d'un programme C
- my $chroucroute_sans_saucisses = Choucroute->new(avec_saucisses => 0);
|
Message édité par pospos le 08-01-2004 à 14:38:29