package Ex::Improved;
use strict;
use warnings;
use parent 'Ex::Parent';

# This "improved" class lets callers get/set Food too!

sub getFood {
	my $self = shift;
	return $self->{food} // undef;
}

sub setFood {
	my $self = shift;
	$self->{food} = shift or return 0;
	return 1;
}

1;