driver-async.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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;