Select Code to Download

sub document_if {
    my ($cond,$code) = @_;
...
        print "\n---\n";
    };
};

    document_if( 1 == 0, q{
        print "The sky has fallen down.\n";
    });

use strict;
use B::Deparse;
...
        print "\n---\n";
    };
};

    document_if( 1 == 0, sub{
        print "The sky has fallen down.\n";
    });