5 use namespace::clean -except => "meta";
7 has [qw(first_name last_name)] => (
14 $self->first_name . " " . $self->last_name;
17 override BUILDARGS => sub {
18 my ( $self, @args ) = @_;
20 if ( @args == 1 and ref $args[0] eq 'ARRAY' ) {
21 my %p; @p{qw(first_name last_name)} = @{ $args[0] };
28 __PACKAGE__->meta->make_immutable;