From 1a8d9a8c2772caa6cf44ce2dbe9c32a573a57b3a Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 9 Dec 2023 14:16:23 +0000
Subject: more cleaning

---
 driver.pl                                          |  33 ---------------------
 forecast.pl                                        |  22 --------------
 ...us-and-river-bus-arrivals-api-documentation.pdf | Bin 357567 -> 0 bytes
 3 files changed, 55 deletions(-)
 delete mode 100644 driver.pl
 delete mode 100644 forecast.pl
 delete mode 100644 tfl-live-bus-and-river-bus-arrivals-api-documentation.pdf

diff --git a/driver.pl b/driver.pl
deleted file mode 100644
index df8e1fa..0000000
--- a/driver.pl
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.014;
-use WebService::ForecastIo::Response;
-use WebService::TFL::Bus;
-use WebService::TFL::Bus::Request;
-use WebService::TFL::TubeStatus;
-use HomePanel::Render;
-use Path::Class;
-
-my $forecast = WebService::ForecastIo::Response->new(
-    file($ARGV[0])->slurp(iomode=>'<:raw')
-);
-my $bus = WebService::TFL::Bus->new()->request(
-    WebService::TFL::Bus::Request->new({
-        StopPointName => 'Hotspur Road',
-        #Towards => 'Islip Manor',
-        ReturnList => [qw(StopID StopCode1 VisitNumber TripID VehicleID LineID LineName DirectionID DestinationText DestinationName EstimatedTime)],
-    }),
-);
-my $tube = WebService::TFL::TubeStatus->new()->request();
-my $template = file(__FILE__)->parent->file('forecast.html.tt');
-
-binmode STDOUT,':utf8';
-
-print
-    HomePanel::Render->new({
-        template_file => $template,
-        forecast => $forecast,
-        bus => $bus,
-        tube => $tube,
-    })->render;
diff --git a/forecast.pl b/forecast.pl
deleted file mode 100644
index 927e980..0000000
--- a/forecast.pl
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use 5.014;
-use WebService::ForecastIo;
-use JSON;
-use Data::Printer;
-
-my $key=$ARGV[0];
-
-my $fio = WebService::ForecastIo->new({
-    api_key => $key,
-});
-
-my $json = $fio->request({
-    latitude => 51.54,
-    longitude => -0.37,
-    exclude => ['flags','sources'],
-    raw => 1,
-});
-
-say $json;
diff --git a/tfl-live-bus-and-river-bus-arrivals-api-documentation.pdf b/tfl-live-bus-and-river-bus-arrivals-api-documentation.pdf
deleted file mode 100644
index 7dfd882..0000000
Binary files a/tfl-live-bus-and-river-bus-arrivals-api-documentation.pdf and /dev/null differ
-- 
cgit v1.2.3