package Ogre::ColourValue; use strict; use warnings; # xxx: this should be in XS, but I can't get it to work use overload '==' => \&eq_xs, '!=' => \&ne_xs, ; 1; __END__ =head1 NAME Ogre::ColourValue =head1 SYNOPSIS use Ogre; use Ogre::ColourValue; # (for now see examples/README.txt) =head1 DESCRIPTION See the online API documentation at L B this Perl binding is currently I and subject to API changes. =head1 CLASS METHODS =head2 Ogre::ColourValue->new($red=1, $green=1, $blue=1, $alpha=1) I =over =item $red=1 : Real =item $green=1 : Real =item $blue=1 : Real =item $alpha=1 : Real =back I =over =item ColourValue * =back =head2 Ogre::ColourValue->DESTROY() This method is called automatically; don't call it yourself. =head2 \&eq_xs This is an operator overload method; don't call it yourself. =head1 INSTANCE METHODS =head2 $obj->saturate() I =over =item void =back =head2 $obj->setHSB($hue, $saturation, $brightness) I =over =item $hue : Real =item $saturation : Real =item $brightness : Real =back I =over =item void =back =head2 $obj->r() I =over =item Real =back =head2 $obj->g() I =over =item Real =back =head2 $obj->b() I =over =item Real =back =head2 $obj->a() I =over =item Real =back =head1 AUTHOR Scott Lanning Eslanning@cpan.orgE For licensing information, see README.txt . =cut