package X10::Config; use constant +{ qw{ TYPE 0 NAME 1 ACTION 2 } }; use namespace::clean; # "undefine" TYPE/NAME...outside of this scope format outputFormatGroup = @<<<<<<<< @<<<<<<<<<<<<<<<<<<<< @<<<< $_[TYPE], $_[NAME], $_[ACTION] . sub printConfigGroup { use IO::Handle; OUTPUT_HANDLE->format_write('outputFormatGroup'); } #### printConfigGroup( $struct->type, $struct->name, $struct->hu );