File Coverage

blib/lib/WWW/Google/Contacts/Type/Language.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::Language;
2             {
3             $WWW::Google::Contacts::Type::Language::VERSION = '0.39';
4             }
5              
6 19     19   117 use Moose;
  19         39  
  19         159  
7 19     19   127153 use MooseX::Types::Moose qw( Str );
  19         45  
  19         282  
8 19     19   99186 use WWW::Google::Contacts::Meta::Attribute::Trait::XmlField;
  19         52  
  19         1844  
9              
10             extends 'WWW::Google::Contacts::Type::Base';
11              
12             has code => (
13             isa => Str,
14             is => 'rw',
15             traits => ['XmlField'],
16             xml_key => 'code',
17             predicate => 'has_code',
18             );
19              
20             has label => (
21             isa => Str,
22             is => 'rw',
23             traits => ['XmlField'],
24             xml_key => 'label',
25             predicate => 'has_label',
26             );
27              
28 19     19   106 no Moose;
  19         46  
  19         460  
29             __PACKAGE__->meta->make_immutable;
30             1;
31             __END__