From 7d942e463679220c13468f1530ebc002efcd832c Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <gianni.ceccarelli@broadbean.com>
Date: Wed, 22 Feb 2023 10:51:36 +0000
Subject: update to 5.36

---
 cpanfile                              |  4 ++--
 lib/Dakkar/TweetArchive.pm            |  3 +--
 lib/Dakkar/TweetArchive/Store.pm      |  3 +--
 lib/Dakkar/TweetArchive/TraceCalls.pm |  2 +-
 tweet-archive.pl                      | 25 ++++++++++++++++---------
 5 files changed, 21 insertions(+), 16 deletions(-)

diff --git a/cpanfile b/cpanfile
index 6a5df06..9abf9e9 100644
--- a/cpanfile
+++ b/cpanfile
@@ -1,5 +1,5 @@
 #!perl
-requires 'perl', '>= 5.024';
+requires 'perl', '>= 5.036';
 requires 'DateTime::Format::Pg';
 requires 'DateTime::Format::Strptime';
 requires 'DBI';
@@ -10,5 +10,5 @@ requires 'Moo';
 requires 'Moo::Role';
 requires 'namespace::clean';
 requires 'Net::Twitter';
-requires 'Path::Class';
+requires 'Path::Tiny';
 requires 'Types::Standard';
diff --git a/lib/Dakkar/TweetArchive.pm b/lib/Dakkar/TweetArchive.pm
index fe28d13..53f9777 100644
--- a/lib/Dakkar/TweetArchive.pm
+++ b/lib/Dakkar/TweetArchive.pm
@@ -1,7 +1,6 @@
 package Dakkar::TweetArchive;
-use 5.024;
+use v5.36;
 use Moo;
-use experimental 'signatures';
 use Net::Twitter;
 use Types::Standard qw(Str InstanceOf);
 use namespace::clean;
diff --git a/lib/Dakkar/TweetArchive/Store.pm b/lib/Dakkar/TweetArchive/Store.pm
index 9a97ca6..fc75475 100644
--- a/lib/Dakkar/TweetArchive/Store.pm
+++ b/lib/Dakkar/TweetArchive/Store.pm
@@ -1,7 +1,6 @@
 package Dakkar::TweetArchive::Store;
-use 5.024;
+use v5.36;
 use Moo;
-use experimental 'signatures';
 use DBI;
 use Types::Standard qw(Str InstanceOf);
 use DateTime::Format::Strptime;
diff --git a/lib/Dakkar/TweetArchive/TraceCalls.pm b/lib/Dakkar/TweetArchive/TraceCalls.pm
index 7591b69..de8cc78 100644
--- a/lib/Dakkar/TweetArchive/TraceCalls.pm
+++ b/lib/Dakkar/TweetArchive/TraceCalls.pm
@@ -1,5 +1,5 @@
 package Dakkar::TweetArchive::TraceCalls;
-use 5.024;
+use v5.36;
 use Moo::Role;
 use experimental 'signatures';
 
diff --git a/tweet-archive.pl b/tweet-archive.pl
index 6e007d3..a1b5fff 100644
--- a/tweet-archive.pl
+++ b/tweet-archive.pl
@@ -1,8 +1,9 @@
 #!/usr/bin/env perl
-use 5.024;
+use v5.36;
 use strict;
 use warnings;
-use Path::Class;
+use experimental 'try';
+use Path::Tiny;
 use JSON::MaybeXS;
 use Dakkar::TweetArchive;
 use Dakkar::TweetArchive::Store;
@@ -13,10 +14,15 @@ my $json_parser = JSON::MaybeXS->new(
 );
 
 my $conf = $json_parser->decode(
-    file(__FILE__)->parent->file('tweet-archive.conf')
-        ->slurp(iomode=>'<:raw')
-            // '{}'
-    );
+    do {
+        try {
+            path(__FILE__)->sibling('tweet-archive.conf')->slurp_raw()
+        }
+        catch ($e) {
+            '{}'
+        }
+    },
+);
 
 my $client = Dakkar::TweetArchive->new($conf);
 my $store = Dakkar::TweetArchive::Store->new($conf);
@@ -25,7 +31,7 @@ my $ua = $client->client->ua;
 my @responses;
 $ua->add_handler( response_done => sub { push @responses, $_[0]; return } );
 
-eval {
+try {
     my $latest_id = $store->latest_tweet_id;
 
     for my $tweet ($client->home_timeline($latest_id)->@*) {
@@ -35,8 +41,9 @@ eval {
     $store->store_friends($client->friends);
     $store->store_followers($client->followers);
     1;
-} or do {
-    print "Fail: $@\n";
+}
+catch ($e) {
+    print "Fail: $e\n";
     for my $res (@responses) {
         next if $res->is_success;
         print $res->request->as_string;
-- 
cgit v1.2.3