use vars qw( %info );
use Tie::IxHash;
+use Data::Dumper;
use Geo::StreetAddress::US;
use Net::Vitelity 0.05;
use FS::Record qw( qsearch dbh );
'contactnumber' => $cust_main->daytime,
);
+ warn Dumper($result) if $self->option('debug');
+
if ( $result =~ /^ok:/i ) {
my($ok, $portid, $sig, $bill) = split(':', $result);
$svc_phone->lnp_portid($portid);