view release on metacpan or  search on metacpan

examples/ics2rss  view on Meta::CPAN

#!/usr/bin/perl

use constant SOURCE => "/Users/mark/Library/Application Support/iCal/Sources/E49F498D-968C-4A4F-93E8-6E9AF7F44B2B.calendar/corestorage.ics";

use strict;
use warnings;

use XML::RSS;

# load the calendar
use Data::ICal::DateTime;

# create a new RSS feed
my $rss = new XML::RSS (version => '1.0');

rss(0, 1,  "today!");
rss(1, 2,  "tomorrow!");
rss(2, 3,  "day after tomorrow!");
rss(3, 7,  "within a week");
rss(7, 14, "within a fortnight");

lib/Data/ICal/DateTime.pm  view on Meta::CPAN

        $self->end($end);
        $cur = $new;
    }

    return $cur;
}

=head2 floating

An event is considered floating if it has a start but no end. It is intended
to represent an event that is associated with a given calendar date and time
of day, such as an anniversary and should not be considered as taking up any
amount of time.

Returns 1 if the evnt is floating and 0 if it isn't.

If passed a 1 then will set the event to be floating by deleting the end time.

If passed a 0 and no end is currently set then it will set end to be a
nanosecond before midnight the next day.