Bonus: Accessor Methods Example Accessor Methods instead of manipulating private variables directly sub colour { my $self = shift; $self->{_colour} } sub set_colour { my $self = shift; $self->{colour} = shift; } Automate this with Class::MethodMaker package MyClass; use Class::MethodMaker [ scalar => [qw/ colour /], new => [qw/ new /], ];