Select Code to Download

    $p->{Vcpeid}{$cpeid} = RepoVData->new() unless blessed $p->{Vcpeid
+}{$cpeid};
    $p->{Vcpeid}{$cpeid}{RepoDB} = RepoDB->new() unless;
    $p->{Vcpeid}{$cpeid}{RepoDB}->{$nam} = VR->new()

  sub mkBless($;$) {
    my $targ = shift;
...
    mkBless(\$p->{Vcpeid}{$cpeid}, RepoVData->new);
    mkBless(\$p->{Vcpeid}{$cpeid}{RepoDB}, RepoDB->new());
    mkBless(\$p->{Vcpeid}{$cpeid}{RepoDB}{$nam}, VR->new());

  sub mkBless($;$) {
    my $targ = shift;
...
    }
    $obj
  }