package constant;

sub import
{
    shift;
    die if @_ % 2;              # probably a mistake
    my $caller = caller;
    while (my ($k, $v) = splice @_, 0, 2) {
        *{"$caller\::$k"} = sub () { $v };
    }
}