Select Code to Download

package Tie::NumRange;

...
sub FETCH { $_[0][0] }

1;

use Tie::NumRange;
my ($r,$g,$b);
...
$b -= 150;  # fine, is now 105
$g -= 150;  # fine, is now 50
$r -= 150;  # set to 0