package Flash::Types::Colour;
use Class::Struct;
struct
(
  with_alpha => '$',
	r => '$',
	g => '$',
	b => '$',
	a => '$'
);


sub rgba
{
  my $self = shift;
  
  $self->a(0xff) if ($self->a eq "");
  return ($self->a << 24) | ($self->r << 16) | ($self->g << 8) | $self->b;
   
  
}
1;