diff options
Diffstat (limited to 'perllib/Data')
-rw-r--r-- | perllib/Data/ICal/Entry/Event7986.pm | 18 | ||||
-rw-r--r-- | perllib/Data/ICal/RFC7986.pm | 17 |
2 files changed, 35 insertions, 0 deletions
diff --git a/perllib/Data/ICal/Entry/Event7986.pm b/perllib/Data/ICal/Entry/Event7986.pm new file mode 100644 index 000000000..ae627861a --- /dev/null +++ b/perllib/Data/ICal/Entry/Event7986.pm @@ -0,0 +1,18 @@ +package Data::ICal::Entry::Event7986; + +use parent 'Data::ICal::Entry::Event'; + +sub optional_unique_properties { + return ( + shift->SUPER::optional_unique_properties, + "color", + ); +} + +sub optional_repeatable_properties { + return ( + shift->SUPER::optional_repeatable_properties, + "conference", "image", + ); +} + 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; |