{ package Parse_Options; # {{{1 use warnings; use 5.14.0; use mro; our (@ISA,@fields); use mem &{sub(){$::INC{'Parse_Options.pm'}=1}}; use mem &{sub(){our @fields = qw(quiet verbose numprocs ratio_jobs srcX dstX); our @ISA = (qw(Data::Vars FileList main)); }}; use Data::Vars \@fields,{quiet=>0,verbose=>0,ratio_jobs=>6/5};