From d2866034f35b15db2bb5c8520c8b632fb5b4c2d0 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 21 Mar 2020 17:26:13 +0000
Subject: remove compilation problems with newer perl+libs

---
 lib/WebService/ForecastIo.pm           | 2 +-
 lib/WebService/ForecastIo/DataBlock.pm | 2 +-
 lib/WebService/TFL/Bus.pm              | 2 +-
 lib/WebService/TFL/Bus/Response.pm     | 2 +-
 lib/WebService/TFL/TubeStatus.pm       | 2 +-
 5 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/WebService/ForecastIo.pm b/lib/WebService/ForecastIo.pm
index 67e5de3..c329ad0 100644
--- a/lib/WebService/ForecastIo.pm
+++ b/lib/WebService/ForecastIo.pm
@@ -2,7 +2,7 @@ package WebService::ForecastIo;
 use Moo;
 use 5.10.0;
 use Types::Standard -types,'slurpy';
-use Type::Utils -all;
+use Type::Utils qw(duck_type enum);
 use Types::URI 'Uri';
 use Types::DateTime 'DateTimeT';
 use Type::Params;
diff --git a/lib/WebService/ForecastIo/DataBlock.pm b/lib/WebService/ForecastIo/DataBlock.pm
index 2b737ca..1994fa8 100644
--- a/lib/WebService/ForecastIo/DataBlock.pm
+++ b/lib/WebService/ForecastIo/DataBlock.pm
@@ -69,7 +69,7 @@ sub _spans {
             my $prev = $out->[-1]->value;
             $out->[-1]->_set_stop_time($dp->time);
             if (not $comp->($prev,$v)) { # new span
-                push $out, WebService::ForecastIo::DataSpan->new({
+                push @$out, WebService::ForecastIo::DataSpan->new({
                     start_time => $dp->time,
                     stop_time => $dp->time,
                     value => $v,
diff --git a/lib/WebService/TFL/Bus.pm b/lib/WebService/TFL/Bus.pm
index 6352a5d..3559755 100644
--- a/lib/WebService/TFL/Bus.pm
+++ b/lib/WebService/TFL/Bus.pm
@@ -2,7 +2,7 @@ package WebService::TFL::Bus;
 use Moo;
 use namespace::autoclean;
 use Types::URI 'Uri';
-use Type::Utils -all;
+use Type::Utils 'duck_type';
 use WebService::TFL::Bus::Response;
 
 has user_agent => (
diff --git a/lib/WebService/TFL/Bus/Response.pm b/lib/WebService/TFL/Bus/Response.pm
index 4251228..e05d49d 100644
--- a/lib/WebService/TFL/Bus/Response.pm
+++ b/lib/WebService/TFL/Bus/Response.pm
@@ -1,7 +1,7 @@
 package WebService::TFL::Bus::Response;
 use Moo;
 use Class::Load 'load_class';
-use Type::Utils -all;
+use Type::Utils 'class_type';
 use Types::Standard -all;
 use JSON;
 use namespace::autoclean;
diff --git a/lib/WebService/TFL/TubeStatus.pm b/lib/WebService/TFL/TubeStatus.pm
index 3b69997..b0ba260 100644
--- a/lib/WebService/TFL/TubeStatus.pm
+++ b/lib/WebService/TFL/TubeStatus.pm
@@ -1,6 +1,6 @@
 package WebService::TFL::TubeStatus;
 use Moo;
-use Type::Utils -all;
+use Type::Utils 'duck_type';
 use Types::URI 'Uri';
 use XML::LibXML;
 use XML::LibXML::XPathContext;
-- 
cgit v1.2.3