Select Code to Download

  package EmmisiveColor;

  sub new {
...
      my $self = shift;
      "emmisiveColor @$self"
  }

  sub simple_properties {
      my $self = shift;

...
         "  }\n" .
         "}\n";
  }