use constant  RepoNames     => qw(oss non-oss src-oss src-non-oss);
  use constant  ArchNames     => qw(noarch nosrc src x86_64);
  use constant  RepoMDFile    => 'repomd.xml';
  use constant  Wanted_Names  => {qw(susedata 1 appdata 1 other 1 
                                      filelists 1 primary 1 appdata-icons 1)};

  use constant  RType         => { map { $_ => $_ } @{[RepoNames]} };
  use constant  Archt         => { map { $_ => $_ } @{[ArchNames]} };

  sub Repo_valid($) { my $p = shift if HASH $_[0];
    ErV RType, shift
  }

  sub Arch_valid($) { my $p = shift if HASH $_[0];
    ErV Archt, shift;
  }

  our @EXPORT;
  use mem(@EXPORT = (qw(  RType Archt Repo_valid Arch_valid
                          RepoMDFile Wanted_Names ) ) );
  use Xporter;