use Tie::Constrained 'detaint';
tie my $trusty, 'Tie::Constrained' , sub {
    &condition && &detaint;
};