package Identity;
use Moose;

subtype 'first_name_type',
  as 'Str';
  where {/^\S+$};

subtype 'last_name_type',
  as 'Str';
  where {/^\S+$};

subtype 'full_name_type',
  as 'Str',
  where {/^\S+ \S+$/};

coerce 'first_name_type',
  from 'full_name_type',
  via {(split(' '))[0]};

coerce 'last_name_type',
  from 'full_name_type',
  via {(split(' '))[1]};

has 'first_name' => (
                     isa => 'first_name_type',
                     coerce => 1,
                     lazy => 1,
                     default => sub {$_[0]->full_name},
                    );

has 'last_name'  => (
                     isa => 'last_name_type', 
                     coerce => 1, 
                     lazy => 1
                     default => sub {$_[0]->full_name},
                    );

has 'full_name'  => (
                     isa => 'full_name_type',
                     coerce => 1,
                     lazy => 1,
                     default => sub {$_[0]->first_name.' '.$_[0]->last_name},
                    );


##</code><code>##

has 'full_name'  => (
                     isa => 'full_name_type',
                     build_by => {
                                    A => 'first_name',
                                    B => 'last_name',
                                    with => 'A B',
                                   },