• [^] # Re: Chouette sujet

    Posté par . En réponse au journal Le tourbillon mystérieux des mondiaux de natation. Évalué à 2. 

    $EDITOR SayLeBien.pm
    # SayLeBien.pm
package SayLeBien;
use v5.14;
use strict;
use warnings;
sub new {
 my ($class,$self) = @_;
 $self->{praise} = "Perl, say le Bien!" unless $self->{praise};
 bless $self,$class;
}
sub tell_it_how_it_is {
 my $self = shift;
 say $self->{praise};
}
sub set_praise {
 my $self = shift;
 $self->{praise} = shift;
}
1; # End of SayLeBien
    perl -I. -MSayLeBien -e 'SayLeBien->new->tell_it_how_it_is'