Select Code to Download

## In Widget
sub make_color_widget {
...
  my $self = shift;
  return ( (ref $self) =~ m{^Widget::(.*)} )[0];
}

$ perl -I . -MWidget -de 0

...
0  'red'
  DB<4> x $blue->my_color
0  'blue'