As one of the Perl::Critic developers, I say don't do this. This is a Bad Idea. My hard drive is going down and I want to commit just to back up and you're going to block me from doing it? Source control is there to save your state; if the state is bad, you can always go back a revision. More here.