From 0c309e27a4219542457063fa24edf18525f27a02 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Mon, 2 Sep 2024 18:35:09 +0200
Subject: fake some Data::ICal properties to silence Cal::DAV

---
 bin/events2md.pl | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/bin/events2md.pl b/bin/events2md.pl
index f9363f9..76c6398 100755
--- a/bin/events2md.pl
+++ b/bin/events2md.pl
@@ -8,6 +8,42 @@ use Feature::Compat::Try;
 use FindBin qw($Bin);
 use lib "$Bin/../lib";
 
+# add bogus properties acknowledged uid to silence Cal::DAV
+package Data::ICal::Entry::Alarm::None {
+	use base qw/Data::ICal::Entry::Alarm/;
+
+	sub optional_unique_properties
+	{
+		qw(
+			duration repeat acknowledged uid
+		);
+	}
+}
+
+# add bogus properties acknowledged uid to silence Cal::DAV
+package Data::ICal::Entry::Alarm::Display {
+	use base qw/Data::ICal::Entry::Alarm/;
+
+	sub optional_unique_properties
+	{
+		qw(
+			duration repeat acknowledged uid
+		);
+	}
+}
+
+# add bogus properties acknowledged uid to silence Cal::DAV
+package Data::ICal::Entry::Alarm::Email {
+	use base qw/Data::ICal::Entry::Alarm/;
+
+	sub optional_unique_properties
+	{
+		qw(
+			duration repeat acknowledged uid
+		);
+	}
+}
+
 use Getopt::Complete (
 	'quiet!'   => undef,
 	'verbose!' => undef,
-- 
cgit v1.2.3