package Identity;

sub init_first_last
{
    my ($c, $first, $last) = @_;
    die unless $first =~ /^\S+$/ && $last =~ /^\S+$/;
    bless { first => $first, last => $last }, $c;
}

sub init_fullname
{
    my $c = shift;
    my ($first, $last) = split ' ', shift;
    init_first_last $c, $first, $last;
}

sub fullname
{
    join ' ', @{$_[0]}{qw(first last)};
}

sub first
{
    shift->{first};
}

sub last
{
    shift->{last};
}