File Coverage

blib/lib/WWW/Google/Contacts/Type/PhoneNumber.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::PhoneNumber;
2             {
3             $WWW::Google::Contacts::Type::PhoneNumber::VERSION = '0.39';
4             }
5              
6 19     19   115 use Moose;
  19         39  
  19         150  
7 19     19   126400 use MooseX::Types::Moose qw( Str );
  19         50  
  19         229  
8 19     19   98420 use WWW::Google::Contacts::InternalTypes qw( Rel );
  19         41  
  19         165  
9 19     19   45815 use WWW::Google::Contacts::Meta::Attribute::Trait::XmlField;
  19         41  
  19         1771  
10              
11             extends 'WWW::Google::Contacts::Type::Base';
12              
13             with 'WWW::Google::Contacts::Roles::HasTypeAndLabel' => {
14             valid_types => [
15             qw( assistant callback car company_main fax home home_fax
16             isdn main mobile other_fax pager radio telex tty_tdd
17             work work_fax work_mobile work_pager
18             )
19             ],
20             default_type => 'mobile',
21             };
22              
23             has value => (
24             isa => Str,
25             is => 'rw',
26             traits => ['XmlField'],
27             xml_key => 'content',
28             predicate => 'has_content',
29             required => 1,
30             );
31              
32 19     19   108 no Moose;
  19         45  
  19         112  
33             __PACKAGE__->meta->make_immutable;
34             1;
35             __END__