From 4254fe9296d86dafd5d93b959bc2ff1c612a23e6 Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Tue, 16 Jun 2020 02:26:59 +0530
Subject: Remove HTTP::Tiny related code, change $response to $status

---
 ara.pl | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/ara.pl b/ara.pl
index c6c898b..401777b 100755
--- a/ara.pl
+++ b/ara.pl
@@ -146,13 +146,10 @@ if ( not $use_local_file
     # Fetch latest data from api.
     my $url = 'https://api.covid19india.org/data.json';
 
-    my $response = HTTP::Simple::getstore($url, $file);
+    my $status = HTTP::Simple::getstore($url, $file);
 
-    die "Failed to fetch latest data...
-Reason: $response->{reason}\n
-Content: $response->{content}
-Status: $response->{status}\n"
-        unless HTTP::Simple::is_success($response);
+    die "Failed to fetch latest data\n"
+        unless HTTP::Simple::is_success($status);
 }
 
 # Slurp api response to $file_data.
-- 
cgit 1.4.1-2-gfad0