5 with 'Printable', 'HasAccount';
9 predicate => 'has_title',
10 clearer => 'clear_title',
26 if ( @_ == 1 && 'ARRAY' eq ref $_[0] ) {
28 first_name => $_[0]->[0],
29 last_name => $_[0]->[1],
33 return $class->SUPER::BUILDARGS(@_);
40 my $title = join q{ }, $self->first_name, $self->last_name;
41 $title .= q[ (] . $self->title . q[)]
47 sub as_string { $_[0]->full_name }
51 __PACKAGE__->meta->make_immutable;