Perl – Factory Pattern

Pas de Bullshit : je suis une fabrique, tu me donnes des paramètres, je te donne de beaux objets associés.

#!/usr/bin/perl -w

package MyFactory;

    sub new {
        my $self          = shift;
        my $type          = shift;
        my $class         = "MyTest::$type";

        return $class->new(@_);
    }
1;

package MyTest::Repeat;

sub new {
    my $class    = shift;
    my $self     = {
        text     => shift,
        repeat   => shift,
    };
    return bless $self, $class;
}

sub display {
    my $self = shift;
    print ($self->{text} x $self->{repeat});
}
1;

package MyTest::Stamp;

    sub new {
        my $class    = shift;
        my $text = shift;
        return bless \$text, $class;
    }

    sub display {
        my $text     = shift;
        my $stamp    = localtime();
        print "$stamp $$text";
    }
1;

package main;
 use strict;

my $text_r = MyFactory->new("Repeat", "Hello\n", 3);
$text_r->display();
my $text_stamp = MyFactory->new("Stamp", "Bye-bye\n");
$text_stamp->display();

>./test.pl
Hello
Hello
Hello
Wed Jul 16 10:16:32 2008 Bye-bye

Autres articles susceptibles de vous intéresser :

• 13 octobre 2008 -- Perl – Singleton Pattern
• 23 septembre 2008 -- Créer des liens SSH avec Firefox 3
• 1 septembre 2008 -- Perl – Dates, Times et Timezones
• 20 mai 2008 -- Perl – Promo sur les accesseurs : 2 pour le prix d’un
• 19 mai 2008 -- Perl – Contrôle de Filehandle non bloquant