11 default => sub { BankAccount->new },
12 handles => [ 'deposit', 'withdraw' ],
17 predicate => 'has_title',
18 clearer => 'clear_title',
21 has first_name => ( is => 'rw' );
23 has last_name => ( is => 'rw' );
28 $self->account->owner($self);
34 my $title = join q{ }, $self->first_name, $self->last_name;
35 $title .= q[ (] . $self->title . q[)]
41 sub as_string { $_[0]->full_name }
45 __PACKAGE__->meta->make_immutable;