Select Code to Download

    package Some_Class;
    our($CData1, $CData2);
...
            CData2  => \$CData2,
        } => (ref $obclass || $obclass);
    }

sub new {
  my $class = shift;
  return bless my $self = {}, (ref $class || $class);
}