File Coverage

blib/lib/WWW/Google/Contacts/Type/UserDefined.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package WWW::Google::Contacts::Type::UserDefined;
2             {
3             $WWW::Google::Contacts::Type::UserDefined::VERSION = '0.39';
4             }
5              
6 19     19   344 use Moose;
  19         37  
  19         185  
7 19     19   128982 use MooseX::Types::Moose qw( Str );
  19         49  
  19         233  
8 19     19   102895 use WWW::Google::Contacts::Meta::Attribute::Trait::XmlField;
  19         47  
  19         1903  
9              
10             extends 'WWW::Google::Contacts::Type::Base';
11              
12             has key => (
13             isa => Str,
14             is => 'rw',
15             traits => ['XmlField'],
16             xml_key => 'key',
17             predicate => 'has_key',
18             required => 1,
19             );
20              
21             has value => (
22             isa => Str,
23             is => 'rw',
24             traits => ['XmlField'],
25             xml_key => 'value',
26             predicate => 'has_value',
27             required => 1,
28             );
29              
30 19     19   112 no Moose;
  19         39  
  19         117  
31             __PACKAGE__->meta->make_immutable;
32             1;
33             __END__