File: | lib/WWW/Google/Contacts/Type/UserDefined.pm |
Coverage: | 100.0% |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package WWW::Google::Contacts::Type::UserDefined; | ||||||
2 | |||||||
3 | 12 12 12 | 93 38 98 | use Moose; | ||||
4 | 12 12 12 | 141 38 109 | use MooseX::Types::Moose qw( Str ); | ||||
5 | 12 12 12 | 128 38 95 | use WWW::Google::Contacts::Meta::Attribute::Trait::XmlField; | ||||
6 | |||||||
7 | extends 'WWW::Google::Contacts::Type::Base'; | ||||||
8 | |||||||
9 | has key => ( | ||||||
10 | isa => Str, | ||||||
11 | is => 'rw', | ||||||
12 | traits => [ 'XmlField' ], | ||||||
13 | xml_key => 'key', | ||||||
14 | predicate => 'has_key', | ||||||
15 | required => 1, | ||||||
16 | ); | ||||||
17 | |||||||
18 | has value => ( | ||||||
19 | isa => Str, | ||||||
20 | is => 'rw', | ||||||
21 | traits => [ 'XmlField' ], | ||||||
22 | xml_key => 'value', | ||||||
23 | predicate => 'has_value', | ||||||
24 | required => 1, | ||||||
25 | ); | ||||||
26 | |||||||
27 | 12 12 12 | 114 36 89 | no Moose; | ||||
28 | __PACKAGE__->meta->make_immutable; | ||||||
29 | 1; |