package Constraints::Rule; use strict; use warnings; use Constraints::Variable; sub make { my $V = Constraints::Variable->new('Q', 'abc'); $V->useit('Q'); $::Q = $V; } 1;