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

sub configx {
  # get configX on configure;
  # return configX on cget;
}