fake some Data::ICal properties to silence Cal::DAV

1 files changed, 36 insertions, 0 deletions

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,