File Coverage

blib/lib/App/wu.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

use strict;
use warnings;
package App::wu;
$App::wu::VERSION = '0.04';
use WWW::Wunderground::API 0.06;
use Cache::FileCache;
use Carp;
use Try::Tiny;

#ABSTRACT: Terminal app that provides an hourly weather forecast using Weather Underground API




sub new
{
    croak 'Incorrect number of args passed to constructor' unless @_ == 3;
    my ($class, $location, $api_key) = @_;

    my $wu = new WWW::Wunderground::API(
        location => $location,
        api_key  => $api_key,
        auto_api => 1,
        cache    => Cache::FileCache->new({
                        namespace          => 'wundercache',
                        default_expires_in => 2400 }),
    );

    return bless { wu => $wu }, $class;
}

sub print_hourly
{
    my $self = shift;
    my $wu = $self->{wu};

    try {
        my @hourly_results = @{ $wu->hourly };
        {
            # print header
            binmode STDOUT, ':utf8'; # for degrees symbol
            printf "%-10s%-4s%-4s%-8s%-20s\n",
                   'Time',
                   "\x{2109}",
                   "\x{2103}",
                   'Rain %',
                   'Conditions';

            # print hourly
            for (@hourly_results)
            {
                printf "%8s%4i%4i%8i  %-30s\n",
                       $_->{FCTTIME}{civil},
                       $_->{temp}{english},
                       $_->{temp}{metric},
                       $_->{pop},
                       $_->{condition};
            }
        }
    } catch
    {   # see if there is an error message to display
        if (exists $wu->{data}{hourly}{response}{error}{description})
        {
            print "$wu->{data}{hourly}{response}{error}{description}\n";
        }
        else
        {
            print "Error connecting to Wunderground API (is your Internet connection active?)\n";
        }
    };
}

1;

__END__