sub Populate{
...
  $self->ConfigSpecs( -infile => [ qw/METHOD infile INFILE]);
  $self->{ _configX } = [];
...
}