more cleaning

1 files changed, 0 insertions, 33 deletions

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;