package Some_Class;
    our($CData1, $CData2);
    sub new {
        my $obclass = shift;
        return bless my $self = {
            ObData1 => "",
            ObData2 => "",
            CData1  => \$CData1,
            CData2  => \$CData2,
        } => (ref $obclass || $obclass);
    }

##</code><code>##

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