sub mkBless($;$) {
    my $targ = shift;
    if (@_) {
      ${$targ} = shift unless blessed $targ;
    }
    $targ
  }

  sub RepoDB($;$) { my $p = shift; my $nam = shift;
    my $cpeid;
    die P "RepoDB: can't access Vdata w/o cpeid" unless 
            $cpeid=$p->cpeid and $cpeid =~ /^\d{8}$/;

    mkBless(\$p->{Vcpeid}{$cpeid}, RepoVData->new);
    mkBless(\$p->{Vcpeid}{$cpeid}{RepoDB}, RepoDB->new());
    mkBless(\$p->{Vcpeid}{$cpeid}{RepoDB}{$nam}, VR->new());