Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Making my own control flow structure

by Corion (Patriarch)
on Oct 09, 2006 at 12:25 UTC ( [id://577154] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub document_if {
        my ($cond,$code) = @_;
    ...
            print "\n---\n";
        };
    };
    
  2. or download this
        document_if( 1 == 0, q{
            print "The sky has fallen down.\n";
        });
    
  3. or download this
    use strict;
    use B::Deparse;
    ...
            print "\n---\n";
        };
    };
    
  4. or download this
        document_if( 1 == 0, sub{
            print "The sky has fallen down.\n";
        });