File Coverage

File:lib/WWW/Google/Contacts/Type/CalendarLink.pm
Coverage:100.0%

linestmtbrancondsubpodtimecode
1package WWW::Google::Contacts::Type::CalendarLink;
2
3
12
12
12
2397
39
102
use Moose;
4
12
12
12
142
41
104
use MooseX::Types::Moose qw( Str );
5
12
12
12
129
38
103
use WWW::Google::Contacts::InternalTypes qw( Rel XmlBool );
6
12
12
12
122
41
100
use WWW::Google::Contacts::Meta::Attribute::Trait::XmlField;
7
8extends 'WWW::Google::Contacts::Type::Base';
9
10has type => (
11    isa => Str, # not a full url rel :-/
12    is => 'rw',
13    traits => [ 'XmlField' ],
14    xml_key => 'rel',
15    predicate => 'has_type',
16);
17
18has label => (
19    isa => Str,
20    is => 'rw',
21    traits => [ 'XmlField' ],
22    xml_key => 'label',
23    predicate => 'has_label',
24);
25
26has href => (
27    isa => Str,
28    is => 'rw',
29    traits => [ 'XmlField' ],
30    xml_key => 'href',
31    predicate => 'has_href',
32);
33
34has primary => (
35    isa => XmlBool,
36    is => 'rw',
37    traits => [ 'XmlField' ],
38    predicate => 'has_primary',
39    xml_key => 'primary',
40    to_xml => sub { my $val = shift; return "true" if $val == 1; return "false" },
41    default => sub { 0 },
42    coerce => 1,
43);
44
45
12
12
12
114
37
96
no Moose;
46__PACKAGE__->meta->make_immutable;
471;