File Coverage

blib/lib/WWW/Google/Contacts/Type/ContactEvent.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::ContactEvent;
2             {
3             $WWW::Google::Contacts::Type::ContactEvent::VERSION = '0.39';
4             }
5              
6 19     19   118 use Moose;
  19         48  
  19         172  
7 19     19   127515 use MooseX::Types::Moose qw( Str );
  19         88  
  19         241  
8 19     19   99466 use WWW::Google::Contacts::InternalTypes qw( Rel When );
  19         44  
  19         170  
9 19     19   51362 use WWW::Google::Contacts::Meta::Attribute::Trait::XmlField;
  19         50  
  19         2281  
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             );
20              
21             has label => (
22             isa => Str,
23             is => 'rw',
24             traits => ['XmlField'],
25             xml_key => 'label',
26             predicate => 'has_label',
27             );
28              
29             has when => (
30             isa => When,
31             is => 'rw',
32             traits => ['XmlField'],
33             xml_key => 'gd:when',
34             predicate => 'has_when',
35             coerce => 1,
36             required => 1,
37             );
38              
39 19     19   113 no Moose;
  19         44  
  19         115  
40             __PACKAGE__->meta->make_immutable;
41             1;
42             __END__