Help for this page
if ( $range > 500 ) { WAT_OP(); ... { complete_tree_op(); }
my @action_tree = ( { test => sub { $_[0] >= 300 && $_[0] <= 400 }, action => sub { print "GUDNITES\n"; CORE::exit(0 +) } }, { test => sub { $_[0] >= 425 && $_[0] <= 500 }, ... { $_->{test}->($signal) && $_->{action}->() for @action_tree; }
www.com | www.net | www.org
No recent polls found