Finished slides & exercises for section 3on basic attributes.
[gitmo/moose-presentations.git] / moose-class / exercises / answers / 02-roles / Employee.pm
index 6c301fc..3860493 100644 (file)
@@ -4,14 +4,14 @@ use Moose;
 
 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;