Acme-Colour
view release on metacpan or search on metacpan
examples/acme_colour.pl view on Meta::CPAN
1234567891011121314#!perl
use
strict;
use
warnings;
use
Acme::Colour;
# light
my
$c
= Acme::Colour->new(
"black"
);
$c
->add(
"red"
);
# $c->colour now red
$c
->add(
"green"
);
# $c->colour now yellow
"Light: black + red + green = "
.
$c
->colour .
"\n"
;
# pigment
$c
= Acme::Colour->new(
"white"
);
( run in 0.408 second using v1.01-cache-2.11-cpan-1dc43b0fbd2 )