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