diff options
| author | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2013-11-07 15:47:30 +0000 |
|---|---|---|
| committer | Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com> | 2013-11-07 15:47:30 +0000 |
| commit | bca9739f92c1da13eb709763af7e6c866c8b72f5 (patch) | |
| tree | d76efd7fc0ee096c45c3a2fcb29cf965b7afdef4 /driver-async.pl | |
| parent | AbsFile for existing files (diff) | |
| download | HomePanel-bca9739f92c1da13eb709763af7e6c866c8b72f5.tar.gz HomePanel-bca9739f92c1da13eb709763af7e6c866c8b72f5.tar.bz2 HomePanel-bca9739f92c1da13eb709763af7e6c866c8b72f5.zip | |
full async driver
Diffstat (limited to 'driver-async.pl')
| -rw-r--r-- | driver-async.pl | 18 |
1 files changed, 18 insertions, 0 deletions
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; |