Programming-Idioms

Edit summary for version 393 by daxim:
New Perl implementation by user [daxim]

↷

2017-05-12, 12:10:42

2019-09-29, 08:54:51

Idiom #73 Create a factory

Create a factory named fact for any sub class of Parent and taking exactly one string str as constructor parameter.

Create a factory named fact for any sub class of Parent and taking exactly one string str as constructor parameter.

use Safe::Isa;

sub fact {
    my ($class, $str) = @_;
    return $class->new($str) if $class->$_isa('Parent');
}

http://p3rl.org/Safe::Isa

Next change ↷