Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Analyzing Perl Code

by nitin1704 (Sexton)
on Sep 18, 2012 at 14:39 UTC ( #994294=perlmeditation: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    for my $child ( $sub->children ) {
     if ref $child eq "PPI::Structure::Block";
  2. or download this
    my @all_subs = qw (sub1 sub2);
    for my $sub (@all_subs) {
     wrap $sub, pre => sub {
     print "Calling '$sub' in file: $0\n";