#!/usr/bin/perl

package My::Person;

use strict;
use warnings;
use Class::InsideOut qw[public readonly private register id];

# declare the attributes
readonly  given_name   => my %given_name;
readonly  surname      => my %surname;

# object constructor
sub new {
   my $self = register( shift );
   $given_name{ id $self } = shift;
   $surname   { id $self } = shift;
   $self
}

package main;

use strict;
use warnings;

my $person = My::Person->new( 'neil', 'watson' );
print 'Name is ', $person->given_name();