File Coverage

blib/lib/Buzznet/Profile.pm

Criterion	Covered	Total	%
statement	9	95	9.4
branch	0	26	0.0
condition			n/a
subroutine	3	32	9.3
pod	28	29	96.5
total	40	182	21.9

package Buzznet::Profile;

use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

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 Buzznet::Profile ':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.01';

#require XSLoader;
#XSLoader::load('Buzznet::Profile', $VERSION);

# Preloaded methods go here.

sub new
{
  my ($package,@refs) = @_;
  my $inst = {@refs};
  $inst->{"error"} = undef;
  return bless($inst,$package);
}

sub password
{
  my $self = shift;
  my $password = shift;

  $self->{"password"} = $password if($password);
  return $self->{"password"};
}

sub keyword
{
  my $self = shift;
  my $keyword = shift;

  $self->{"keyword"} = $keyword if($keyword);
  return $self->{"keyword"};
}

sub fname
{
  my $self = shift;
  my $fname = shift;

  $self->{"fname"} = $fname if($fname);
  return $self->{"fname"};
}

sub lname
{
  my $self = shift;
  my $lname = shift;

  $self->{"lname"} = $lname if($lname);
  return $self->{"lname"};
}

sub email
{
  my $self = shift;
  my $email = shift;

  $self->{"email"} = $email if($email);
  return $self->{"email"};
}

sub address
{
  my $self = shift;
  my $address = shift;

  $self->{"address"} = $address if($address);
  return $self->{"address"};
}

sub city
{
  my $self = shift;
  my $city = shift;

  $self->{"city"} = $city if($city);
  return $self->{"city"};
}

sub state
{
  my $self = shift;
  my $state = shift;

  $self->{"state"} = $state if($state);
  return $self->{"state"};
}

sub zip
{
  my $self = shift;
  my $zip = shift;

  $self->{"zip"} = $zip if($zip);
  return $self->{"zip"};
}

sub country
{
  my $self = shift;
  my $country = shift;

  $self->{"country"} = $country if($country);
  return $self->{"country"};
}

sub dob
{
  my $self = shift;
  my $dob = shift;

  $self->{"dob"} = $dob if($dob);
  return $self->{"dob"};
}

sub gender
{
  my $self = shift;
  my $gender = shift;

  $self->{"gender"} = $gender if($gender);
  return $self->{"gender"};
}

sub status
{
  my $self = shift;
  my $status = shift;

  $self->{"status"} = $status if($status);
  return $self->{"status"};
}

sub username
{
  my $self = shift;
  return $self->{"user_name"};
}

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

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

sub title
{
  my $self = shift;
  return $self->{"gallery_title"};
}

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

sub commentsOff
{
  my $self = shift;
  return $self->{"comments_off"};
}

sub anonComments
{
  my $self = shift;
  return $self->{"anon_comments"};
}

sub messagesOff
{
  my $self = shift;
  return $self->{"messages_off"};
}

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

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

sub totalBuddies
{
  my $self = shift;
  return $self->{"totalbuddies"};
}

sub thumbURL
{
  my $self = shift;
  return $self->{"img_thumb"};
}

sub featURL
{
  my $self = shift;
  return $self->{"img_feat"};
}

sub syndURL
{
  my $self = shift;
  return $self->{"img_synd"};
}

sub galleryURL
{
  my $self = shift;
  return $self->{"img_gallery"};
}

# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__