package EmmisiveColor;

  sub new {
      my $pkg = shift;
      return bless [ @_ ], $pkg;
  }

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