Name : perl-PerlX-Maybe
| |
Version : 1.202
| Vendor : obs://build_opensuse_org/devel:languages:perl
|
Release : 150600.5.1
| Date : 2024-03-13 21:52:12
|
Group : Unspecified
| Source RPM : perl-PerlX-Maybe-1.202-150600.5.1.src.rpm
|
Size : 0.05 MB
| |
Packager : https://www_suse_com/
| |
Summary : return a pair only if they are both defined
|
Description :
Moose classes (and some other classes) distinguish between an attribute being unset and the attribute being set to undef. Supplying a constructor arguments like this:
my $bob = Person->new( name => $name, age => $age, );
Will result in the \'name\' and \'age\' attributes possibly being set to undef (if the corresponding \'$name\' and \'$age\' variables are not defined), which may violate the Person class\' type constraints.
(Note: if you are the _author_ of the class in question, you can solve this using MooseX::UndefTolerant. However, some of us are stuck using non-UndefTolerant classes written by third parties.)
To ensure that the Person constructor does not try to set a name or age at all when they are undefined, ugly looking code like this is often used:
my $bob = Person->new( defined $name ? (name => $name) : (), defined $age ? (age => $age) : (), );
or:
my $bob = Person->new( (name => $name) x!!(defined $name), (age => $age) x!!(defined $age), );
A slightly more elegant solution is the \'maybe\' function.
|
RPM found in directory: /packages/linux-pbone/ftp5.gwdg.de/pub/opensuse/repositories/devel:/languages:/perl/SLE_15_SP6/noarch |