perl-PerlX-Maybe

Moose-Klassen (und einige andere Klassen) unterscheiden zwischen einem Attribut, das nicht gesetzt ist, und einem Attribut, das auf undef gesetzt ist. Die Übergabe von Konstruktor- Argumenten wie folgt: my $bob = Person->new( name => $name, age => $age, ); Kann dazu führen, dass die Attribute 'name' und 'age' möglicherweise auf undef gesetzt werden (wenn die entsprechenden Variablen '$name' und '$age' nicht definiert sind), was die Typbeschränkungen der Klasse Person verletzen kann. (Hinweis: Wenn Sie der _Autor_ der betreffenden Klasse sind, können Sie dies mit MooseX::UndefTolerant lösen. Einige von uns sind jedoch gezwungen, nicht UndefTolerant-Klassen von Drittanbietern zu verwenden.) Um sicherzustellen, dass der Konstruktor von Person überhaupt keinen Namen oder kein Alter setzt, wenn sie undefiniert sind, wird oft unschön aussehender Code wie dieser verwendet: my $bob = Person->new( defined $name ? (name => $name) : (), defined $age ? (age => $age) : (), ); oder: my $bob = Person->new( (name => $name) x!!(defined $name), (age => $age) x!!(defined $age), ); Eine etwas elegantere Lösung ist die Funktion 'maybe'.