On Fri Sep 18 03:36:06 2020, MARTO wrote:
Show quoted text> On Thu Sep 17 01:52:17 2020, bonelifer@gmail.com wrote:
> > Here is my codes used:
> > my $alert = Weather::NOAA::Alert->new(['ARC029', 'ARZ031']);
> >
> >
> > Here's what gets spit out after running the example:
> > Pulling ATOM feed for zone ARC029
> > Can't call method "children" on an undefined value at
> > /home/william/perl5/lib/perl5/Weather/NOAA/Alert.pm line 440.
> > Pulling new CAP entries: .
>
> Perhaps related to 78335:
https://rt.cpan.org/Ticket/Display.html?id=78335
That seems to have fixed it. Now it outputs:
Pulling ATOM feed for zone ARC029
There are no active watches, warnings or advisories for zone ARC029
No new events
Pulling ATOM feed for zone ARZ031
There are no active watches, warnings or advisories for zone ARZ031
No new events
$VAR1 = {
'ARZ031' => {},
'ARC029' => {}
};
Tracking 0 events 0 added, 0 deleted, 0 errors
Sleeping 60 seconds
-----------------
Now to kludge this together with a pushover client, so I can ditch IFTTT(hopefully).
