File Coverage

blib/lib/Net/WhoisNG/Person.pm

Criterion	Covered	Total	%
statement	93	137	67.8
branch	12	24	50.0
condition			n/a
subroutine	21	30	70.0
pod	0	28	0.0
total	126	219	57.5

package Net::WhoisNG::Person;

#use 5.008004;
use strict;
use warnings;

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 Net::WhoisNG::Person ':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.05';


sub new{
   my $class=shift;
   my $self={};
   $self->{"det_creds"} = ();
   bless $self;
}

sub parseCredentials{
   # Seeing as contact info is formated a gazillion dif ways
   #this sub should not be heavily relied on
   my $self=shift;
}

sub getCredentials{
   my $self=shift;
   my @creds;
   if(defined($self->{credentials})){
      my $tmp = $self->{credentials};
      @creds = @$tmp;
      map(s/^\s+//, @creds);
      return \@creds;
   }
   elsif(defined($self->getName())){
      #assemble a credentials array
      #
      if(defined($self->getID())){
         push(@creds,$self->getID());
      }
      if(defined($self->getName())){
         push(@creds,$self->getName());
      }
      if(defined($self->getOrganization())){
         push(@creds,$self->getOrganization());
      }
      if(defined($self->getStreet())){
         push(@creds,$self->getStreet());
      }
      if(defined($self->getCity())){
         push(@creds,$self->getCity());
      }
      if(defined($self->getPostalCode())){
         push(@creds,$self->getPostalCode());
      }
      if(defined($self->getState())){
         push(@creds,$self->getState());
      }
      if(defined($self->getCountry())){
         push(@creds,$self->getCountry());
      }
      if(defined($self->getPhone())){
         push(@creds,$self->getPhone());
      }
      if(defined($self->getEmail())){
         push(@creds,$self->getEmail());
      }
      return \@creds;
   }
}

sub getRawHash{
   my $self=shift;
   return $self->{"det_creds"};
}

sub setType{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{type}= $val;
   $self->{'det_creds'}->{type} = $self->{type};
}

sub getType{
   my $self=shift;
   return $self->{type};
}


sub getID{
   my $self=shift;
   return $self->{id};
}

sub setID{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{id}=$val;
   $self->{'det_creds'}->{ID} = $self->{ID};
}

sub getName{
   my $self=shift;
   return $self->{name};
}

sub setName{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{name}=$val;
   $self->{'det_creds'}->{name} = $self->{name};
}

sub setOrganization{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{organization}=$val;
   $self->{'det_creds'}->{organization} = $self->{organization};
}

sub getOrganization{
   my $self=shift;
   return $self->{organization};
}

sub setStreet{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{street}=$val;
   $self->{'det_creds'}->{street} = $self->{street};
}

sub getStreet{
   my $self=shift;
   return $self->{street};
}

sub setCity{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{city}=$val;
   $self->{'det_creds'}->{city} = $self->{city};
}

sub getCity{
   my $self=shift;
   return $self->{city};
}

sub getState{
   my $self=shift;
   return $self->{state};
}

sub setState{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{state}=$val;
   $self->{'det_creds'}->{state} = $self->{state};
}

sub getPostalCode{
   my $self=shift;
   return $self->{postalcode};
}

sub setPostalCode{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{postalcode}="$val";
   $self->{'det_creds'}->{"postalcode"} = "$val";
}

sub setCountry{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{country}=$val;
   $self->{'det_creds'}->{country} = $self->{country};
}

sub getCountry{
   my $self=shift;
   return $self->{country};
}

sub setPhone{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{phone}=$val;
   $self->{'det_creds'}->{phone} = $self->{phone};
}

sub getPhone{
   my $self=shift;
   return $self->{phone};
}

sub setFax{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{fax}=$val;
   $self->{'det_creds'}->{fax} = $self->{fax};
}

sub getFax{
   my $self=shift;
   return $self->{fax};
}

sub getEmail{
   my $self=shift;
   return $self->{email};
}

sub setEmail{
   my $self=shift;
   my $val = shift;
   chomp($val);
   $val =~ s/\s+$//;
   $self->{email}=$val;
   $self->{'det_creds'}->{email} = $self->{email};
}
# Preloaded methods go here.

1;
__END__