From 808b2f67fce4fe9a68f3126be928dde63ffe9a08 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 9 Dec 2023 14:05:34 +0000
Subject: some clean

---
 lib/HomePanel/AsyncUA.pm                           | 32 ----------------------
 lib/WebService/ForecastIo/Alert.pm                 |  8 +++---
 lib/WebService/ForecastIo/DataBlock.pm             |  2 +-
 lib/WebService/ForecastIo/DataPoint.pm             |  2 +-
 lib/WebService/ForecastIo/DataSpan.pm              |  2 +-
 lib/WebService/ForecastIo/Response.pm              |  2 +-
 lib/WebService/ForecastIo/Types.pm                 |  2 +-
 lib/WebService/TFL/TubeStatus/Response.pm          |  2 +-
 lib/WebService/TFL/TubeStatus/Response/Line.pm     |  2 +-
 .../TFL/TubeStatus/Response/LineStatus.pm          |  2 +-
 10 files changed, 12 insertions(+), 44 deletions(-)
 delete mode 100644 lib/HomePanel/AsyncUA.pm

(limited to 'lib')

diff --git a/lib/HomePanel/AsyncUA.pm b/lib/HomePanel/AsyncUA.pm
deleted file mode 100644
index d74e4aa..0000000
--- a/lib/HomePanel/AsyncUA.pm
+++ /dev/null
@@ -1,32 +0,0 @@
-package HomePanel::AsyncUA;
-use Moo;
-use namespace::autoclean;
-use Net::Async::HTTP;
-
-has loop => (
-    is => 'ro',
-    required => 1,
-    weak => 1,
-);
-
-has agent => (
-    is => 'lazy',
-);
-sub _build_agent {
-    my ($self) = @_;
-
-    my $agent = Net::Async::HTTP->new(
-        max_connections_per_host => 1,
-        stall_timeout => 10,
-    );
-    $self->loop->add($agent);
-    return $agent;
-}
-
-sub get {
-    my ($self,$uri) = @_;
-
-    return $self->agent->GET($uri)->get
-}
-
-1;
diff --git a/lib/WebService/ForecastIo/Alert.pm b/lib/WebService/ForecastIo/Alert.pm
index af826d8..73f7200 100644
--- a/lib/WebService/ForecastIo/Alert.pm
+++ b/lib/WebService/ForecastIo/Alert.pm
@@ -1,9 +1,9 @@
 package WebService::ForecastIo::Alert;
 use Moo;
-use namespace::autoclean;
 use Types::Standard -all;
 use Types::URI 'Uri';
-use Types::DateTime 'DateTimeT';
+use Types::DateTime -all;
+use namespace::clean;
 
 has title => (
     is => 'ro',
@@ -12,8 +12,8 @@ has title => (
 
 has expires => (
     is => 'ro',
-    isa => DateTimeT,
-    coerce => DateTimeT->coercion,
+    isa => DateTimeUTC,
+    coerce => 1,
 );
 
 has uri => (
diff --git a/lib/WebService/ForecastIo/DataBlock.pm b/lib/WebService/ForecastIo/DataBlock.pm
index 1994fa8..0f57ab2 100644
--- a/lib/WebService/ForecastIo/DataBlock.pm
+++ b/lib/WebService/ForecastIo/DataBlock.pm
@@ -1,9 +1,9 @@
 package WebService::ForecastIo::DataBlock;
 use Moo;
-use namespace::autoclean;
 use Types::Standard -all;
 use WebService::ForecastIo::Types -all;
 use WebService::ForecastIo::DataSpan;
+use namespace::clean;
 
 has [qw(summary icon)] => (
     is => 'ro',
diff --git a/lib/WebService/ForecastIo/DataPoint.pm b/lib/WebService/ForecastIo/DataPoint.pm
index db9fb77..13c60dd 100644
--- a/lib/WebService/ForecastIo/DataPoint.pm
+++ b/lib/WebService/ForecastIo/DataPoint.pm
@@ -1,8 +1,8 @@
 package WebService::ForecastIo::DataPoint;
 use Moo;
-use namespace::autoclean;
 use Types::DateTime -all;
 use Types::Standard -all;
+use namespace::clean;
 
 has [qw( time
          sunriseTime sunsetTime
diff --git a/lib/WebService/ForecastIo/DataSpan.pm b/lib/WebService/ForecastIo/DataSpan.pm
index 930f3e5..f2e6c0d 100644
--- a/lib/WebService/ForecastIo/DataSpan.pm
+++ b/lib/WebService/ForecastIo/DataSpan.pm
@@ -1,7 +1,7 @@
 package WebService::ForecastIo::DataSpan;
 use Moo;
-use namespace::autoclean;
 use Types::DateTime -all;
+use namespace::clean;
 
 has start_time => (
     is => 'ro',
diff --git a/lib/WebService/ForecastIo/Response.pm b/lib/WebService/ForecastIo/Response.pm
index 24c5324..c723771 100644
--- a/lib/WebService/ForecastIo/Response.pm
+++ b/lib/WebService/ForecastIo/Response.pm
@@ -1,9 +1,9 @@
 package WebService::ForecastIo::Response;
 use Moo;
-use namespace::autoclean;
 use Types::Standard -all;
 use WebService::ForecastIo::Types -all;
 use JSON;
+use namespace::clean;
 
 has 'currently' => (
     is => 'ro',
diff --git a/lib/WebService/ForecastIo/Types.pm b/lib/WebService/ForecastIo/Types.pm
index cc8dac2..4936188 100644
--- a/lib/WebService/ForecastIo/Types.pm
+++ b/lib/WebService/ForecastIo/Types.pm
@@ -1,7 +1,6 @@
 package WebService::ForecastIo::Types;
 use strict;
 use warnings;
-use namespace::autoclean;
 use Type::Library -base, -declare =>
     qw(
           Alert AlertArray
@@ -10,6 +9,7 @@ use Type::Library -base, -declare =>
   );
 use Type::Utils -all;
 use Types::Standard -types;
+use namespace::clean;
 
 class_type Alert, { class => 'WebService::ForecastIo::Alert' };
 
diff --git a/lib/WebService/TFL/TubeStatus/Response.pm b/lib/WebService/TFL/TubeStatus/Response.pm
index 4fe6524..b6b104b 100644
--- a/lib/WebService/TFL/TubeStatus/Response.pm
+++ b/lib/WebService/TFL/TubeStatus/Response.pm
@@ -2,7 +2,7 @@ package WebService::TFL::TubeStatus::Response;
 use Moo;
 use WebService::TFL::TubeStatus::Response::Line;
 use Types::Standard -all;
-use namespace::autoclean;
+use namespace::clean;
 
 has lines => (
     is => 'ro',
diff --git a/lib/WebService/TFL/TubeStatus/Response/Line.pm b/lib/WebService/TFL/TubeStatus/Response/Line.pm
index e8163a9..f962418 100644
--- a/lib/WebService/TFL/TubeStatus/Response/Line.pm
+++ b/lib/WebService/TFL/TubeStatus/Response/Line.pm
@@ -2,7 +2,7 @@ package WebService::TFL::TubeStatus::Response::Line;
 use Moo;
 use Types::Standard -all;
 use WebService::TFL::TubeStatus::Response::LineStatus;
-use namespace::autoclean;
+use namespace::clean;
 
 has id => (
     is => 'ro',
diff --git a/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm b/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm
index 87eb52f..2e8e22b 100644
--- a/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm
+++ b/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm
@@ -1,7 +1,7 @@
 package WebService::TFL::TubeStatus::Response::LineStatus;
 use Moo;
 use Types::Standard -all;
-use namespace::autoclean;
+use namespace::clean;
 
 has [qw(statusSeverity statusSeverityDescription)] => (
     is => 'ro',
-- 
cgit v1.2.3