File Coverage

blib/lib/SoggyOnion/Plugin/GeoWeather.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	4	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	35	48.5

package SoggyOnion::Plugin::GeoWeather;
use warnings;
use strict;
use base qw( SoggyOnion::Plugin );

our $VERSION = '0.04';

use Geo::Weather;

sub content {
    my $self = shift;

    # we need either the city&state or a zip code
    my @args;
    if ( exists $self->{zip} ) {
        @args = ( $self->{zip} );
    }
    elsif ( exists $self->{city} && exists $self->{state} ) {
        @args = ( $self->{city}, $self->{state} );
    }
    else {
        warn __PACKAGE__ . " hash must have 'zip' or 'city' and 'state'\n";
        return;
    }

    # get the weather
    my $weather = Geo::Weather->new;
    $weather->get_weather(@args);
    return $weather->report . "" . $weather->report_forecast;
}

1;

__END__