From d1fc0bb1954d468e1c07245fe5af2b16799f7f38 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Wed, 28 Aug 2024 01:04:18 +0200
Subject: use modern Perl, and use signatures

---
 bin/events2md.pl | 13 ++++---------
 1 file 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);
 
-- 
cgit v1.2.3