[Waste] ICal generation, with Data::ICal.

1 files changed, 17 insertions, 0 deletions

diff --git a/perllib/Data/ICal/RFC7986.pm b/perllib/Data/ICal/RFC7986.pm
new file mode 100644
index 000000000..01f9d354e
--- /dev/null
+++ b/perllib/Data/ICal/RFC7986.pm
@@ -0,0 +1,17 @@
+package Data::ICal::RFC7986;
+
+use parent 'Data::ICal';
+
+sub optional_unique_properties {
+    qw( calscale method
+		uid last-modified url refresh-interval source color
+	);
+}
+
+# name/description are only repeatable to provide
+# translations with language param
+sub optional_repeatable_properties {
+	qw( name description categories image );
+}
+
+1;