diff options
Diffstat (limited to 'src/Net-ICal-Libical/lib/Net/ICal/Libical/Period.pm')
-rw-r--r-- | src/Net-ICal-Libical/lib/Net/ICal/Libical/Period.pm | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/src/Net-ICal-Libical/lib/Net/ICal/Libical/Period.pm b/src/Net-ICal-Libical/lib/Net/ICal/Libical/Period.pm index 11ec0325..696d577e 100644 --- a/src/Net-ICal-Libical/lib/Net/ICal/Libical/Period.pm +++ b/src/Net-ICal-Libical/lib/Net/ICal/Libical/Period.pm @@ -3,18 +3,12 @@ # FILE: Component.pm # CREATOR: eric # -# (C) COPYRIGHT 2000, Eric Busboom <eric@civicknowledge.com> +# SPDX-FileCopyrightText: 2000, Eric Busboom <eric@civicknowledge.com> # -# This library is free software; you can redistribute it and/or modify -# it under the terms of either: +# SPDX-License-Identifier: LGPL-2.1-only OR MPL-2.0 # -# The LGPL as published by the Free Software Foundation, version -# 2.1, available at: https://www.gnu.org/licenses/lgpl-2.1.html # -# Or: # -# The Mozilla Public License Version 2.0. You may obtain a copy of -# the License at https://www.mozilla.org/MPL/ #====================================================================== =pod @@ -330,25 +324,25 @@ sub test { $p->duration("PT5H30M10S"); print $p->as_ical()."\n"; - die if $p->as_ical() ne "19970101T180000Z/PT5H30M10S" ; + die if $p->as_ical() ne "19970101T180000Z/PT5H30M10S"; $p->duration(new Net::ICal::Duration("P10DT30M5S")); print $p->as_ical()."\n"; - die if $p->as_ical() ne "19970101T180000Z/P10DT30M5S" ; + die if $p->as_ical() ne "19970101T180000Z/P10DT30M5S"; $p->end("19970101T183000Z"); print $p->as_ical()."\n"; - die if $p->as_ical() ne "19970101T180000Z/PT30M" ; + die if $p->as_ical() ne "19970101T180000Z/PT30M"; $p = new Net::ICal::Period("19970101T180000Z/19970102T070000Z"); $p->end("19970101T183000Z"); print $p->as_ical()."\n"; - die if $p->as_ical() ne "19970101T180000Z/19970101T183000Z" ; + die if $p->as_ical() ne "19970101T180000Z/19970101T183000Z"; $p->duration("P1DT1H10M"); print $p->as_ical()."\n"; - die if $p->as_ical() ne "19970101T180000Z/19970102T191000Z" ; + die if $p->as_ical() ne "19970101T180000Z/19970102T191000Z"; |