package WWW::Google::Contacts::Type::CalendarLink;
{
$WWW::Google::Contacts::Type::CalendarLink::VERSION = '0.39';
}
use Moose;
use MooseX::Types::Moose qw( Str );
use WWW::Google::Contacts::InternalTypes qw( Rel XmlBool );
use WWW::Google::Contacts::Meta::Attribute::Trait::XmlField;
extends 'WWW::Google::Contacts::Type::Base';
has type => (
isa => Str, # not a full url rel :-/
is => 'rw',
traits => ['XmlField'],
xml_key => 'rel',
predicate => 'has_type',
);
has label => (
isa => Str,
is => 'rw',
traits => ['XmlField'],
xml_key => 'label',
predicate => 'has_label',
);
has href => (
isa => Str,
is => 'rw',
traits => ['XmlField'],
xml_key => 'href',
predicate => 'has_href',
);
has primary => (
isa => XmlBool,
is => 'rw',
traits => ['XmlField'],
predicate => 'has_primary',
xml_key => 'primary',
to_xml =>
sub { my $val = shift; return "true" if $val == 1; return "false" },
default => sub { 0 },
coerce => 1,
);
no Moose;
__PACKAGE__->meta->make_immutable;
1;
__END__