Help for this page
for my $child ( $sub->children ) { $child->start->add_content($caller) if ref $child eq "PPI::Structure::Block"; }
my @all_subs = qw (sub1 sub2); for my $sub (@all_subs) { ... print "Calling '$sub' in file: $0\n"; }; }
www.com | www.net | www.org
No recent polls found