From bca9739f92c1da13eb709763af7e6c866c8b72f5 Mon Sep 17 00:00:00 2001 From: Gianni Ceccarelli Date: Thu, 7 Nov 2013 15:47:30 +0000 Subject: full async driver --- driver-async.pl | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 driver-async.pl (limited to 'driver-async.pl') diff --git a/driver-async.pl b/driver-async.pl new file mode 100644 index 0000000..19b6c21 --- /dev/null +++ b/driver-async.pl @@ -0,0 +1,18 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.014; +use HomePanel::Driver; +use Path::Tiny; + +my $template = +my $key=$ARGV[0]; + +my $hp = HomePanel::Driver->new({ + template_file => path(__FILE__)->parent->child('forecast.html.tt'), + output_file => path(__FILE__)->parent->child('panel.html'), + forecast_key => $ARGV[0], +}); + +$hp->start; +$hp->loop->run; -- cgit v1.2.3