.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  | will give a
.\" real vertical bar.  \*(C+ will give a nicer C++.  Capital omega is used to
.\" do unbreakable dashes and therefore won't be available.  \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.tr \(*W-|\(bv\*(Tr
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.if \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.\"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Net::Google::Calendar::Entry 3"
.TH Net::Google::Calendar::Entry 3 "2008-01-13" "perl v5.8.8" "User Contributed Perl Documentation"
.SH "NAME"
Net::Google::Calendar::Entry \- entry class for Net::Google::Calendar
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 7
\&    my $event = Net::Google::Calendar::Entry->new();
\&    $event->title('Party!');
\&    $event->content('P-A-R-T-Why? Because we GOTTA!');
\&    $event->location("My Flat, London, England");
\&    $event->status('confirmed'); 
\&    $event->transparency('opaque');
\&    $event->visibility('private');
.Ve
.PP
.Vb 4
\&    my $author = Net::Google::Calendar::Person->new;
\&    $author->name('Foo Bar');
\&    $author->email('foo@bar.com');
\&    $entry->author($author);
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
.SH "METHODS"
.IX Header "METHODS"
.Sh "new"
.IX Subsection "new"
Create a new Event object
.Sh "id [id]"
.IX Subsection "id [id]"
Get or set the id.
.Sh "title [title]"
.IX Subsection "title [title]"
Get or set the title.
.Sh "content [content]"
.IX Subsection "content [content]"
Get or set the content.
.Sh "author [author]"
.IX Subsection "author [author]"
Get or set the author
.Sh "transparency [transparency]"
.IX Subsection "transparency [transparency]"
Get or set the transparency. Transparency should be one of
.PP
.Vb 2
\&    opaque
\&    transparent
.Ve
.Sh "visibility [visibility]"
.IX Subsection "visibility [visibility]"
Get or set the visibility. Visibility should be one of
.PP
.Vb 4
\&    confidential
\&    default
\&    private
\&    public
.Ve
.Sh "status [status]"
.IX Subsection "status [status]"
Get or set the status. Status should be one of
.PP
.Vb 3
\&    canceled
\&    confirmed
\&    tentative
.Ve
.Sh "location [location]"
.IX Subsection "location [location]"
Get or set the location
.Sh "when [<start> <end>]"
.IX Subsection "when [<start> <end>]"
Get or set the start and end time as supplied as DateTime objects. 
End must be more than start.
.PP
Returns two DateTime objects depicting the start and end. 
.Sh "edit_url"
.IX Subsection "edit_url"
Return the edit url of this event.
.Sh "recurrence [ Data::ICal::Entry::Event ]"
.IX Subsection "recurrence [ Data::ICal::Entry::Event ]"
Get or set a recurrence for an entry \- this is in the form of a Data::ICal::Entry::Event object. 
.PP
Returns undef if there's no recurrence event
.PP
This will not work if \f(CW\*(C`Data::ICal\*(C'\fR is not installed and will return undef.
.PP
For example ...
.PP
.Vb 2
\&    $event->title('Pay Day');
\&    $event->start(DateTime->now);
.Ve
.PP
.Vb 1
\&    my $recurrence = Data::ICal::Entry::Event->new();
.Ve
.PP
.Vb 5
\&    my $last_day_of_the_month = DateTime::Event::Recurrence->monthly( days => -1 );
\&    $recurrence->add_properties(
\&               dtstart   => DateTime::Format::ICal->format_datetime(DateTime->now),
\&               rrule     => DateTime::Format::ICal->format_recurrence($last_day_of_the_month),
\&    );
.Ve
.PP
.Vb 1
\&    $entry->recurrence($recurrence);
.Ve
.PP
To get the recurrence back:
.PP
.Vb 1
\&    print $entry->recurrence->a_string;
.Ve
.PP
See 
.PP
.Vb 1
\&    http://code.google.com/apis/gdata/common-elements.html#gdRecurrence
.Ve
.PP
For more details
.SH "TODO"
.IX Header "TODO"
.IP "more complex content" 4
.IX Item "more complex content"
.PD 0
.IP "more complex locations" 4
.IX Item "more complex locations"
.IP "recurrency" 4
.IX Item "recurrency"
.IP "comments" 4
.IX Item "comments"
.PD
.PP
See http://code.google.com/apis/gdata/common\-elements.html for details
.SH "AUTHOR"
.IX Header "AUTHOR"
Simon Wistow <simon@thegestalt.org>
.SH "COPYRIGHT"
.IX Header "COPYRIGHT"
Copyright Simon Wistow, 2006
.PP
Distributed under the same terms as Perl itself.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
http://code.google.com/apis/gdata/common\-elements.html
.PP
Net::Google::Calendar
.PP
XML::Atom::Event