extends 'Person';
-has position => ( is => 'rw' );
-has salary => ( is => 'rw' );
-has ssn => ( is => 'ro' );
+has title => ( is => 'rw' );
+has salary => ( is => 'rw' );
+has ssn => ( is => 'ro' );
override full_name => sub {
my $self = shift;
- return super() . q[ (] . $self->position . q[)];
+ return super() . q[ (] . $self->title . q[)];
};
no Moose;