Select Code to Download

sub creatCatalogGroup {
   my ($self, $key) = @_;
...
  (exists $self->{$key}) ? return $self->{$key} :
        return Push2PsH($self, $key, CatalogGroup->new());
}

my $CatalogGroup = $GroupSystem->creatCatalogGroup('02');