aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/events2md.pl13
1 files changed, 4 insertions, 9 deletions
diff --git a/bin/events2md.pl b/bin/events2md.pl
index 12fe7a3..725e8f5 100755
--- a/bin/events2md.pl
+++ b/bin/events2md.pl
@@ -1,9 +1,9 @@
#!/usr/bin/perl
-use v5.14;
+use v5.36;
+use strict;
use utf8;
use open qw(:std :encoding(UTF-8));
-use strictures;
use autodie;
use Feature::Compat::Try;
@@ -188,16 +188,13 @@ else {
print $content;
}
-sub resolve_event
+sub resolve_event ( $entry, $start, $end = undef )
{
- my ( $entry, $start, $end, $path ) = @_;
-
if ( $log->is_trace ) {
use DDP;
p $entry;
p $start;
p $end;
- p $path;
}
my $summary = get_property_string( $entry, 'summary' );
my $description = get_property_string( $entry, 'description' );
@@ -255,10 +252,8 @@ sub resolve_event
};
}
-sub get_property_string
+sub get_property_string ( $entry, $key )
{
- my ( $entry, $key ) = @_;
-
return ''
unless $entry->property($key);