Select Code to Download

# object constructor
sub new {
...
   $surname   { id $self } = shift;
   $self
}

#!/usr/bin/perl

package My::Person;
...

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