package MyClass;
use Class::Std;

# Create storage for object attributes...
my %connnectionInfo : ATTR;

# Handle initialization of objects of this class...
sub BUILD {
  my ($self, $obj_ID, $arg_ref) = @_;

  $connnectionInfo{$obj_ID} = $arg_ref;
}