package Foo::Types::Library;

use Data::Dumper;
use MooseX::Types -declare => [
   qw/
      GooglePrimaryEmail
      WWWGoogleContactsTypeEmail
   /
];

use MooseX::Types::Email qw/EmailAddress/;


# WWWGoogleContactsTypeEmail
class_type WWWGoogleContactsTypeEmail, {
    class   => 'WWW::Google::Contacts::Type::Email',
};



# GooglePrimaryEmail
subtype GooglePrimaryEmail,
    as      EmailAddress,
    message {
        'validation failed for: '. Dumper $_;
    };
   
    
coerce GooglePrimaryEmail,
    from    ArrayRef[WWWGoogleContactsTypeEmail],
    via     {
        my $p   = (grep { $_->{primary} } @$_)[0];
        $p      = $p ? $p->{value} : @$_->[0]{value};
        return $p;
    };