use strict;
use B::Deparse;
my $deparse = B::Deparse->new("-p", "-sC");

sub document_if {
    my ($cond,$code) = @_;
    if ($cond) { 
        $code->()
    } else {
        print "Not executing:\n";
        print $deparse->coderef2text($code);
        print "\n---\n";
    };
};