File Coverage

blib/lib/WWW/MelissaData/PhoneLocation.pm

Criterion	Covered	Total	%
statement	12	70	17.1
branch	0	10	0.0
condition	0	5	0.0
subroutine	4	6	66.6
pod	2	2	100.0
total	18	93	19.3

package WWW::MelissaData::PhoneLocation;

use 5.008000;
use strict;
use warnings;

use LWP::UserAgent;

our $VERSION = '0.01';

=head1 NAME

WWW::MelissaData::PhoneLocation - Provides an interface to MelissaData's free
phone location lookup service

=head1 SYNOPSIS

  use WWW::MelissaData::PhoneLocation;
  my $loc = WWW::MelissaData::PhoneLocation->new;
  my $phone = $loc->query('4079347639'); # 407-W-DISNEY (Disney Reservations)
  use Data::Dumper;
  print Dumper($phone);

=head1 DESCRIPTION

Put in a phone number and it will give you the city, state, telco, and other
assorted data for that number.  The data comes from MelissaData.com.  This only
provides data for NANPA phone numbers (US/Canada).

=head2 new

Creates WWW::MelissaData::PhoneLocation object.

=cut

sub new
{
  my $self = bless({}, shift);
  my %args = @_;
  $self->{url} = $args{url} || 'http://www.melissadata.com/lookups/phonelocation.asp?number=';
  $self->{uastring} = $args{uastring} || 'WWW::MelissaData::PhoneLocation/'.$VERSION;
  $self->{ua} = $args{ua}; # pass an existing LWP::UserAgent object

  if (!$self->{ua})
  {
    $self->{ua} = LWP::UserAgent->new;
    $self->{ua}->agent($self->{uastring});
  }

  return $self;
}

=head2 query

Queries the site.  Provide a phone number as the only argument.

Do not include a country code.  Do not provide a "1" prefix.  Use only the
ten-digit phone number.  It is okay to include hyphens/dashes/etc; non-digit
characters will be removed automatically.

=cut

sub query
{
  my $self = shift;
  my $number = shift;
  $number =~ s/\D+//g; # kill any non-digit chars
  my $req = HTTP::Request->new(GET => $self->{url}.$number);
  my $res = $self->{ua}->request($req);
  if ($res->is_success)
  {
    my $content = $res->content;
    $content =~ s#[\r\n]# #gm;
    $content =~ m#(.*?)