File Coverage

blib/lib/WWW/Google/Contacts/Type/Priority.pm
Criterion Covered Total %
statement 15 16 93.7
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 23 86.9


line stmt bran cond sub pod time code
1             package WWW::Google::Contacts::Type::Priority;
2             {
3             $WWW::Google::Contacts::Type::Priority::VERSION = '0.39';
4             }
5              
6 19     19   183 use Moose;
  19         47  
  19         155  
7 19     19   126350 use MooseX::Types::Moose qw( Str );
  19         58  
  19         236  
8 19     19   99272 use WWW::Google::Contacts::InternalTypes qw( Rel );
  19         54  
  19         169  
9 19     19   45504 use WWW::Google::Contacts::Meta::Attribute::Trait::XmlField;
  19         49  
  19         1978  
10              
11             extends 'WWW::Google::Contacts::Type::Base';
12              
13             has type => (
14             isa => Str,
15             is => 'rw',
16             traits => ['XmlField'],
17             xml_key => 'rel',
18             required => 1,
19             );
20              
21 0     0 0   sub value { $_[0]->type }
22              
23 19     19   112 no Moose;
  19         45  
  19         128  
24             __PACKAGE__->meta->make_immutable;
25             1;
26             __END__