File: | lib/WWW/Google/Contacts/Type/Rel.pm |
Coverage: | 54.1% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package WWW::Google::Contacts::Type::Rel; | ||||||
2 | |||||||
3 | 2 2 2 | 15 6 19 | use Moose; | ||||
4 | 2 2 2 | 25 7 30 | use MooseX::Types::Moose qw( Str ); | ||||
5 | 2 2 2 | 22 6 18 | use WWW::Google::Contacts::Meta::Attribute::Trait::XmlField; | ||||
6 | |||||||
7 | extends 'WWW::Google::Contacts::Type::Base'; | ||||||
8 | |||||||
9 | 2 2 2 | 19 7 24 | use constant SCHEME => 'http://schemas.google.com/g/2005'; | ||||
10 | |||||||
11 | has name => ( | ||||||
12 | isa => Str, | ||||||
13 | is => 'ro', | ||||||
14 | lazy_build => 1, | ||||||
15 | ); | ||||||
16 | |||||||
17 | has uri => ( | ||||||
18 | isa => Str, | ||||||
19 | is => 'ro', | ||||||
20 | traits => [ 'XmlField' ], | ||||||
21 | xml_key => 'rel', | ||||||
22 | predicate => 'has_uri', | ||||||
23 | lazy_build => 1, | ||||||
24 | ); | ||||||
25 | |||||||
26 | sub _build_name { | ||||||
27 | 0 | my $self = shift; | |||||
28 | 0 | die "No URI" unless $self->uri; | |||||
29 | 0 | unless ( $self->uri =~ m{\#(.+)$} ) { | |||||
30 | 0 | die "Can't parse uri: " . $self->uri; | |||||
31 | } | ||||||
32 | 0 | return $1; | |||||
33 | } | ||||||
34 | |||||||
35 | sub _build_uri { | ||||||
36 | 0 | my $self = shift; | |||||
37 | 0 | return sprintf("%s#%s", SCHEME, $self->name); | |||||
38 | } | ||||||
39 | |||||||
40 | sub to_xml_hashref { | ||||||
41 | 0 | 0 | my $self = shift; | ||||
42 | 0 | return $self->uri; | |||||
43 | } | ||||||
44 | |||||||
45 | 2 2 2 | 22 6 17 | no Moose; | ||||
46 | __PACKAGE__->meta->make_immutable; | ||||||
47 | 1; |