File Coverage

blib/lib/Yahoo/Weather.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	24	91.6

package Yahoo::Weather;

use 5.008008;
use strict;
use warnings;
use Carp;
use LWP::Simple qw/get/;
use XML::Simple;
use Data::Dumper;

require Exporter;
our @ISA = qw(Exporter);
our $xs=XML::Simple->new();
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Yahoo::Weather ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.04';

use constant YAHOOWAPI => 'http://weather.yahooapis.com/forecastrss?';
use constant YAHOOYDN => 'http://query.yahooapis.com/v1/public/yql?q=';
use constant LOCATION_EMPTY => -1;
use constant INVALID_LOCATION=> -2;
use constant INVALID_ZIP=> -2;
use constant ZIP_EMPTY=> -1;
use constant WEATHER_FORECAST_NOT_AVAILABLE => -3;
use constant INVALID_KEYWORD => -4;
use constant SUGESTIONS_NOT_AVAILABLE => -4;


sub new {
  my $class=shift;
  my $self = {};
  bless ($self,$class);
  return $self;
}

sub getWeatherByLocation {

    my $self = shift;
    my $loc  = shift;
    my $degree  = shift;

    if (! $loc) {
        return LOCATION_EMPTY ;
    }

    my $woeid= $self->_getWoeidByLoc($loc);

    if (! $woeid) {
        return INVALID_LOCATION;
    }

    my $xml = get( $self->_getLocationURL($woeid,$degree) );

    my $w = $xs->xml_in($xml) or return WEATHER_FORECAST_NOT_AVAILABLE;

    my $detailedweather=$self->_parseWeatherXML($w);
    return $detailedweather;
}



sub _getLocationURL {

    my ( $self, $field ,$degree) = @_;
    my $str='u=c&w=';

	if (lc($degree) eq 'f'){
	$str='u=f&w=';
       }

     my $url = YAHOOWAPI .$str.$field;
    return $url;
}

sub getWeatherByZip {
    my $self = shift;
    my $zip  = shift;
    my $degree  = shift;

    if (! $zip) {
        return ZIP_EMPTY;
    }

    my $woeid= $self->_getWoeidByZip($zip);

	if (! $woeid){
           return WEATHER_FORECAST_NOT_AVAILABLE
	}

    my $xml = get( $self->_getLocationURL($woeid,$degree) );
    my $w = $xs->xml_in($xml) or return WEATHER_FORECAST_NOT_AVAILABLE;

    my $detailedweather=$self->_parseWeatherXML($w);
    return $detailedweather;
}

sub getSugestions{
    my $self = shift;
    my $keyword = shift;

    if (! $keyword) {
        return INVALID_KEYWORD;
    }

    my $suggest= $self->_getSugestions($keyword);
	return $suggest;
}

sub _getWoeidByLoc{
    my $self = shift;
    my $loc  = shift;
    my $finder = "http://query.yahooapis.com/v1/public/yql?q=select * from geo.placefinder where text =\' $loc \' ";

	my $xml = get($finder);
	if (! $xml){
	return INVALID_LOCATION;
         }

    my $w = $xs->xml_in($xml) or return WEATHER_FORECAST_NOT_AVAILABLE;
    my $wwoeid=$self->_parseXmlForWoeid($w,$loc);
    return $wwoeid;

}

sub _getSugestions{
    my $self = shift;
    my $field  = shift;
    my $finder = "http://query.yahooapis.com/v1/public/yql?q=select * from geo.placefinder where text =\' $field \' ";

        my $xml = get($finder);
        if (! $xml){
        return INVALID_KEYWORD;
         }

    my $w = $xs->xml_in($xml) or return SUGESTIONS_NOT_AVAILABLE;
    my $suggest=$self->_parseXmlForSuggestions($w,$field);
    return $suggest;

}

sub _parseXmlForWoeid{
    my $self = shift;
    my $xmlref  = shift;
    my $check = shift;
    $check = lc($check);
    my $woeid;
    my $locdetailsref = $xmlref->{results}->{Result};
   if (ref($locdetailsref) eq 'HASH'){
	$woeid=$locdetailsref->{woeid};
  }
  elsif(ref($locdetailsref) eq 'ARRAY'){
  my @arr= @$locdetailsref;
  foreach my $iter (@arr) {
  $woeid=$iter->{woeid} if((lc($iter->{uzip}) eq $check) || (lc($iter->{city}) eq $check) || (lc($iter->{neighborhood}) eq $check));
  }

  }else{
   return;
	}
  return $woeid;

}


sub _parseXmlForSuggestions{
    my $self = shift;
    my $xmlref  = shift;
    my $check = shift;
    my $locdetailsref = $xmlref->{results}->{Result};
  return $locdetailsref;
}

sub _getWoeidByZip {
    my $self = shift;
    my $zip  = shift;
    my $finder = "http://query.yahooapis.com/v1/public/yql?q=select * from geo.placefinder where text =\' $zip \' ";
         my $xml = get($finder);
  my $w = $xs->xml_in($xml) or return WEATHER_FORECAST_NOT_AVAILABLE;
  my $wwoeid=$self->_parsexmlforwoeid($w,$zip);
  return $wwoeid;

}

sub _parseWeatherXML {
    my $self = shift;
    my $xmlref  = shift;
    my $title=$xmlref->{channel}->{title};
    my $finalresult={};

   $finalresult->{LocationDetails}=$xmlref->{channel}->{'yweather:location'};
   $finalresult->{WindDetails}=$xmlref->{channel}->{'yweather:wind'};
   $finalresult->{Title}=$xmlref->{channel}->{description};
   $finalresult->{WeatherUnits}=$xmlref->{channel}->{'yweather:units'};
   $finalresult->{Atmosphere}=$xmlref->{channel}->{'yweather:atmosphere'};
   $finalresult->{LastUpdatedTime}=$xmlref->{channel}->{lastBuildDate};
   $finalresult->{Astronomy}=$xmlref->{channel}->{'yweather:astronomy'};
   $finalresult->{CurrentObservation}=$xmlref->{channel}->{item}->{'yweather:condition'};
   $finalresult->{TwoDayForecast} = $xmlref->{channel}->{item}->{'yweather:forecast'};

  return $finalresult;

}
# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__