Select Code to Download

package Identity;
use Moose;
...
                     default => sub {$_[0]->first_name.' '.$_[0]->last
+_name},
                    );

has 'full_name'  => (
                     isa => 'full_name_type',
...
                                    B => 'last_name',
                                    with => 'A B',
                                   },