package Extended;
sub new {
  my $class = shift;
  my $closure = Base->new;
  $closure->(CELLULAR => undef);
  $closure->(EMAIL    => undef);
  bless $closure, $class;
}