File Coverage

blib/lib/revphone.pm

Criterion	Covered	Total	%
statement	47	60	78.3
branch	2	4	50.0
condition	2	6	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	56	76	73.6

package revphone;

use 5.008003;
use strict;
use warnings;

require Exporter;




our $VERSION = '0.01';


sub revlookup
{

my $lastn;
my $firstn;
my $street;
my $city;
my $state;
my $zip;
my $findit;
my $temp;
my $areac;
my $num;
my $return;
my $hey;
my $fullnum;
use LWP::Simple;
  $fullnum=$_[1];

  if ($fullnum eq "" or ( length($fullnum) != 10) )
	{
		return "Invalid Phone Number Format Please use XXXXXXXXXX eg 6019251121\n";
	}
 $areac=substr($fullnum,0,3);
 $num=substr($fullnum,3,7);


 $findit = get('http://anywho.com/qry/wp_rl?npa='.$areac.'&telephone='.$num.'&btnsubmit.x=41&btnsubmit.y=12');

      $temp= $1;


       $findit=~ m/(HREF=.*cgi-bin\/amap.*lastname.*&f)/ ;
       $temp= $1;
       $temp=~ m/(lastname=.*)/;
       $lastn=substr($1,9,length($1)-11);


	$findit=~ m/(HREF=.*cgi-bin\/amap.*firstname.*&n)/ ;
        $temp= $1;
        $temp=~ m/(firstname.*)/;
        $firstn=substr($1,10,length($1)-12);



        $findit=~ m/(HREF=.*cgi-bin\/amap.*streetaddress=.*&city)/ ;
        $temp= $1;
        $temp=~ m/(streetaddress.*)/;
        $street=substr($1,14,length($1)-19);


        $findit=~ m/(HREF=.*cgi-bin\/amap.*city=.*&s)/ ;
        $temp= $1;
        $temp=~ m/(city.*)/;
        $city=substr($1,5,length($1)-7);


	$findit=~ m/(HREF=.*cgi-bin\/amap.*state=.*&z)/ ;
        $temp= $1;
        $temp=~ m/(state.*)/;
        $state=substr($1,6,length($1)-8);


	$findit=~ m/(HREF=.*cgi-bin\/amap.*zip=.*&c)/ ;
        $temp= $1;
        $temp=~ m/(zip.*)/;
        $zip=substr($1,4,length($1)-6);


	 $return= $lastn.",".$firstn." ".$street." ".$city.",".$state." ".$zip."\n";
         $return=~ s/\+/ /g;

	if ($firstn eq '' && $lastn eq '')
		{
			return "Information Not Found\n";
		}
	else
		{
			return $return;

		}
    }

1;
__END__