File Coverage

blib/lib/WWW/Google/Contacts/Type/Relation.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package WWW::Google::Contacts::Type::Relation;
{
    $WWW::Google::Contacts::Type::Relation::VERSION = '0.38';
}

use Moose;
use MooseX::Types::Moose qw( Str );
use WWW::Google::Contacts::InternalTypes qw( Rel );
use WWW::Google::Contacts::Meta::Attribute::Trait::XmlField;

extends 'WWW::Google::Contacts::Type::Base';

with 'WWW::Google::Contacts::Roles::HasTypeAndLabel' => {
    valid_types => [
        qw(
          assistant brother child domestic-partner father friend manager
          mother parent partner referred-by relative sister spouse
          )
    ],
    default_type => '',
};

has value => (
    isa       => Str,
    is        => 'rw',
    traits    => ['XmlField'],
    xml_key   => 'content',
    predicate => 'has_value',
    required  => 1,
);

# 'rel' XML key must not have contain a full url, only the value
before to_xml_hashref => sub {
    my $self = shift;
    my $type = $self->type->uri;
    $type =~ s{^.*\#}{};
    $self->type->uri($type);
};

no Moose;
__PACKAGE__->meta->make_immutable;
1;
__END__