File Coverage

blib/lib/WWW/Google/Contacts/Type/ExternalId.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package WWW::Google::Contacts::Type::ExternalId;
2             {
3             $WWW::Google::Contacts::Type::ExternalId::VERSION = '0.39';
4             }
5              
6 19     19   145 use Moose;
  19         42  
  19         172  
7 19     19   131529 use MooseX::Types::Moose qw( Str );
  19         51  
  19         246  
8 19     19   103375 use WWW::Google::Contacts::InternalTypes qw( Rel );
  19         53  
  19         186  
9 19     19   48950 use WWW::Google::Contacts::Meta::Attribute::Trait::XmlField;
  19         46  
  19         2077  
10              
11             extends 'WWW::Google::Contacts::Type::Base';
12              
13             has type => (
14             isa => Str, # not a full url rel :-/
15             is => 'rw',
16             traits => ['XmlField'],
17             xml_key => 'rel',
18             predicate => 'has_type',
19             required => 1,
20             );
21              
22             has value => (
23             isa => Str,
24             is => 'rw',
25             traits => ['XmlField'],
26             xml_key => 'value',
27             predicate => 'has_value',
28             required => 1,
29             );
30              
31 19     19   132 no Moose;
  19         43  
  19         127  
32             __PACKAGE__->meta->make_immutable;
33             1;
34             __END__