Re^3: Moose and default values

[choroba]

Probably you can use it outside Moose, too.

[tobyink]

Indeed; it has no ties to Moose. It's simply a function that takes a list and returns a (possibly smaller) list. While it's handy to use it with Moose/Mouse/Moo constructors, it can be used with any functions that take a list of key-value pairs that you want to filter out undefs from.

[morgon]

It's nice (and only 10 lines of code :-=).

But say I now wanted not only undefs but everything that is false (e.g. also an empty string) to trigger the default?

Does Moose not have any mechanics for that?

[tobyink]

Maybe something along the lines of:

around BUILDARGS => sub {
  my $orig   = shift;
  my $self   = shift;
  my $params = $self->$orig(@_);
  $params->{$_} || delete $params->{$_}
    for qw/ foo bar /;
  return $params;
};

This will discard false parameters for the "foo" and "bar" attributes.