package My::OtherModule;
    [...]
    sub import {
        msg(400)   if ! $valid;
        [....]
    }