| Graphics-Primitive documentation | Contained in the Graphics-Primitive distribution. |
Graphics::Primitive::Paint::Solid - Solid patch of color
Graphics::Primitive::Paint::Solid represents a solid color.
use Graphics::Primitive::Paint::Solid; my $solid = Graphics::Primitive::Solid->new; $solid->color(Graphics::Color::RGB->new(red => 1, green => 0, blue => 0));
Creates a new Graphics::Primitive::Solid
Get/Set the color of this solid
Cory Watson <gphat@cpan.org>
Copyright 2008-2010 by Cory G Watson.
You can redistribute and/or modify this code under the same terms as Perl itself.
| Graphics-Primitive documentation | Contained in the Graphics-Primitive distribution. |
package Graphics::Primitive::Paint::Solid; use Moose; use MooseX::Storage; extends 'Graphics::Primitive::Paint'; with qw(MooseX::Clone); with Storage (format => 'JSON', io => 'File'); has color => ( isa => 'Graphics::Color', is => 'rw', traits => [qw(Clone)] ); __PACKAGE__->meta->make_immutable; no Moose; 1;