my $checked;

tie $checked
    => 'Tie::Constrained', sub { defined $_[0] }, $INIT_VALUE;