Lines Matching refs:duration
87 die "Invalid ICal duration string ($dur)\n"
128 my ( $self, $duration ) = @_;
130 die "Cannot represent years or months in an iCal duration\n"
131 if $duration->delta_months;
135 unless $duration->delta_days || $duration->delta_seconds;
137 my $ical = $duration->is_positive ? '+' : '-';
140 if ( $duration->delta_days )
142 $ical .= $duration->weeks . 'W' if $duration->weeks;
143 $ical .= $duration->days . 'D' if $duration->days;
146 if ( $duration->delta_seconds )
150 $ical .= $duration->hours . 'H' if $duration->hours;
151 $ical .= $duration->minutes . 'M' if $duration->minutes;
152 $ical .= $duration->seconds . 'S' if $duration->seconds;