File Coverage

blib/lib/NDFD/Weather/Report.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package NDFD::Weather::Report;
use 5.010000;
use SOAP::Lite;# + trace => 'debug';
use XML::Simple;
use strict;
use warnings;
use version;
our $VERSION=1.00;
require Exporter;
our @ISA = qw(Exporter);

# 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 NDFD::Weather::Report ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
	NDFDgen  LatLonListCityNames GetCurrentWeather
) ] );

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

our @EXPORT = qw(

);

sub new {
    my $class = shift;
    my %params=@_;
    my $self ={
        %params,
        };
    return bless $self, $class;
}
sub _request{
    my $class=shift;
    my ($self)=shift;
    $$self{'uri'}           =   ($$self{'uri'})     ?   $$self{'uri'}   :
                        'http://graphical.weather.gov/xml/SOAP_server/ndfdXMLserver.php?wsdl',
    $$self{'proxy'}         =   ($$self{'proxy'})   ?   $$self{'proxy'} :
                        'http://graphical.weather.gov/xml/SOAP_server/ndfdXMLserver.php',
    $$self{'EndPoint_url'}  =   ($$self{'EndPoint_url'}) ?  $$self{'EndPoint_url'} :
                        'http://graphical.weather.gov/xml/DWMLgen/wsdl/ndfdXML.wsdl',
    my $soap_request = SOAP::Lite
        -> uri($$self{'uri'})
        ->on_action(sub{join '#',@_ })
        -> proxy($$self{'proxy'}
    );
    $soap_request->ns($$self{'EndPoint_url'}, 'ndf');
    $soap_request->envprefix('soapenv');
    $soap_request->readable(1);
}
sub Parse_XML_Data_decode{
    my $class=shift;
    my ($xml)=shift;
        if (SOAP::Deserializer->is_xml($xml)==1){
            return eval{
                SOAP::Deserializer->decode($xml);
            };
        }

####error message marker no. 1 ###
    print "xml_Data_parse_error","Xml parsing error: $@" if $@;
}
sub Parse_XML_deserialize{
    my $class=shift;
    my ($xml)=shift;
        if (SOAP::Deserializer->is_xml($xml)==1){
            return eval{
                SOAP::Deserializer->deserialize($xml);
            };
        }

####error message marker no. 2 ###
    print "xml_Data_parse_error","Xml parsing error: $@" if $@;
}
sub Parse_XML_Data{
    my $class=shift;
    my ($xml)=shift;
    return eval{
            XMLin($xml,ForceArray => 1,NormaliseSpace=>2,SuppressEmpty=>undef)
        };

####error message marker no. 3 ###
    print "xml_Data_parse_error","Xml parsing error: $@" if $@;
}


package NDFD::Weather::Processer;
use NDFD::Weather::GenerateXML;
use NDFD::Weather::RequestProcess;
our @ISA = qw(NDFD::Weather::Report);
sub CornerPoints{
    my $Process_Return1=
    NDFD::Weather::RequestProcess
        ->_CP(shift)
            ;
            if(!$Process_Return1->valueof('//CornerPointsResponse/listLatLonOut/')){
                if(!$Process_Return1->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return1->valueof('//faultstring');
                    my $error_msg1 =$Process_Return1->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return1
                                ->valueof('//ExceptionText');
                }
            }
        return $Process_Return1->valueof('//CornerPointsResponse/listLatLonOut/');
}
sub LatLonListCityNames{
    my $Process_Return2=
    NDFD::Weather::RequestProcess
        ->_LLLCN(shift)
            ;
            if(!$Process_Return2->valueof('//LatLonListCityNamesResponse/listLatLonOut/')){
                if(!$Process_Return2->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return2->valueof('//faultstring');
                    my $error_msg1 =$Process_Return2->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return2
                                ->valueof('//ExceptionText');
                }
            }
        return $Process_Return2->valueof('//LatLonListCityNamesResponse/listLatLonOut/');
}
sub LatLonListZipCode{
    my $Process_Return3=
    NDFD::Weather::RequestProcess
        ->_LLLZC(shift)
            ;
            if(!$Process_Return3->valueof('//LatLonListZipCodeResponse/listLatLonOut/')){
                if(!$Process_Return3->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return3->valueof('//faultstring');
                    my $error_msg1 =$Process_Return3->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return3
                                ->valueof('//ExceptionText');
                }
            }
        return $Process_Return3->valueof('//LatLonListZipCodeResponse/listLatLonOut/');
}
sub NDFDgenByDay{
    my $Process_Return4=
    NDFD::Weather::RequestProcess
        ->_NDFDGBD(shift);
        if(!$Process_Return4->valueof('//NDFDgenByDayResponse/dwmlByDayOut')){
                if(!$Process_Return4->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return4->valueof('//faultstring');
                    my $error_msg1 =$Process_Return4->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return4
                                ->valueof('//ExceptionText');
                }
            }
        return $Process_Return4->valueof('//NDFDgenByDayResponse/dwmlByDayOut');
}
sub NDFDgenByDayLatLonList{
    my $Process_Return5=
    NDFD::Weather::RequestProcess
        ->_NDFDGBDLLL(shift)
            ;
            if(!$Process_Return5->valueof('//NDFDgenByDayLatLonListResponse/dwmlByDayOut')){
                if(!$Process_Return5->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return5->valueof('//faultstring');
                    my $error_msg1 =$Process_Return5->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return5
                                ->valueof('//ExceptionText');
                }
            }
        return $Process_Return5->valueof('//NDFDgenByDayLatLonListResponse/dwmlByDayOut');
}
sub GmlLatLonList{
    my $Process_Return6 =
    NDFD::Weather::RequestProcess
        ->_GLLL(shift)
            ;
        if(!$Process_Return6->valueof('//GmlLatLonListResponse/dwGmlOut')){
                if(!$Process_Return6->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return6->valueof('//faultstring');
                    my $error_msg1 =$Process_Return6->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return6
                                ->valueof('//ExceptionText');
                }
            }
        #else{return $Process_Return6->valueof('//GmlLatLonListResponse/dwGmlOut')};
        return $Process_Return6->valueof('//GmlLatLonListResponse/dwGmlOut');
}
sub NDFDgen{
    my $Process_Return7 =
    NDFD::Weather::RequestProcess
        ->_NDFDG(shift)
            ;
        if(!$Process_Return7->valueof('//NDFDgenResponse/dwmlOut')){
                if(!$Process_Return7->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return7->valueof('//faultstring');
                    my $error_msg1 =$Process_Return7->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return7
                                ->valueof('//ExceptionText');
                }
            }
        return $Process_Return7->valueof('//NDFDgenResponse/dwmlOut');
}

sub GmlTimeSeries{
    my $Process_Return8 =
    NDFD::Weather::RequestProcess
        ->_GTS(shift)
            ;
        if(!$Process_Return8->valueof('//GmlTimeSeriesResponse/dwGmlOut')){
            #&debug($Process_Return8
            #            ->valueof('//ExceptionText'));
                if(!$Process_Return8->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return8->valueof('//faultstring');
                    my $error_msg1 =$Process_Return8->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return8
                                ->valueof('//ExceptionText');
                }

            }
        return $Process_Return8->valueof('//GmlTimeSeriesResponse/dwGmlOut');
}
sub LatLonListLine{
    my $Process_Return9 =
    NDFD::Weather::RequestProcess
        ->_LLLL(shift)
            ;
        if(!$Process_Return9->valueof('//LatLonListLineResponse/listLatLonOut')){
                if(!$Process_Return9->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return9->valueof('//faultstring');
                    my $error_msg1 =$Process_Return9->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return9
                                ->valueof('//ExceptionText');
                }

            }
        return $Process_Return9->valueof('//LatLonListLineResponse/listLatLonOut');
}
sub LatLonListSquare{
    my $Process_Return10 =
    NDFD::Weather::RequestProcess
        ->_LLLS(shift)
            ;
        if(!$Process_Return10->valueof('//LatLonListSquareResponse/listLatLonOut')){
                if(!$Process_Return10->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return10->valueof('//faultstring');
                    my $error_msg1 =$Process_Return10->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return10
                                ->valueof('//ExceptionText');
                }

            }
        return $Process_Return10->valueof('//LatLonListSquareResponse/listLatLonOut');
}
sub LatLonListSubgrid{
    my $Process_Return11 =
    NDFD::Weather::RequestProcess
        ->_LLLSBD(shift)
            ;
        if(!$Process_Return11->valueof('//LatLonListSubgridResponse/listLatLonOut')){
                if(!$Process_Return11->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return11->valueof('//faultstring');
                    my $error_msg1 =$Process_Return11->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return11
                                ->valueof('//ExceptionText');
                }

            }
        return $Process_Return11->valueof('//LatLonListSubgridResponse/listLatLonOut');
}
sub NDFDgenLatLonList{
    my $Process_Return12 =
    NDFD::Weather::RequestProcess
        ->_NDFDLLLT(shift)
            ;
        if(!$Process_Return12->valueof('//NDFDgenLatLonListResponse/dwmlOut')){

                if(!$Process_Return12->valueof('//ExceptionText')){

                    my $error_msg0 =$Process_Return12->valueof('//faultstring');
                    my $error_msg1 =$Process_Return12->valueof('//detail');
                    return "Error :-".$error_msg0.".   Details :- ".$error_msg1;
                }else{
                    return
                        $Process_Return12
                                ->valueof('//ExceptionText');
                }

        }
        return $Process_Return12->valueof('//NDFDgenLatLonListResponse/dwmlOut');
}
sub GetCurrentWeather{
    shift;
    my $latitude=shift;
    my $longitude=shift;


	die "latitude or longitude vlaue is missing !!" unless defined $latitude and $longitude;

     use LWP::Simple;
	my $url = "http://forecast.weather.gov/MapClick.php?lat=$latitude&lon=$longitude&unit=0&lg=english&FcstType=dwml";
	my $content = get $url;
	die "Couldn't get $url" unless defined $content;
	#$q->header('text/xml');
	return $content;
}
#sub debug{
#   my $messsage=shift;
#   print $messsage;
#}
1;
__END__