Select Code to Download

$obj->color(undef);

  my $code = sub {
    my $self = shift;
    $self->{$attribute} = shift if @_;
    $self->{$attribute};
  }