File Coverage

blib/lib/WWW/Freelancer/User.pm

Criterion	Covered	Total	%
statement	30	75	40.0
branch			n/a
condition			n/a
subroutine	10	32	31.2
pod	14	14	100.0
total	54	121	44.6

package WWW::Freelancer::User;

use warnings;
use strict;

sub get_url {
    my $self = shift;
    return $self->{'url'};
}

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

sub get_username {
    my $self = shift;
    return $self->{'username'};
}

sub get_logo_url {
    my $self = shift;
    return $self->{'logo_url'};
}

sub get_registration_unixtime {
    my $self = shift;
    return $self->{'reg_unixtime'};
}

sub get_registration_date {
    my $self = shift;
    return $self->{'reg_date'};
}

sub get_company {
    my $self = shift;
    return $self->{'company'};
}

sub is_gold {
    my $self = shift;
    return $self->{'gold'};
}

sub get_address {
    my $self = shift;
    return bless $self->{'address'}, 'WWW::Freelancer::User::Address';
}

sub get_hourlyrate {
    my $self = shift;
    return $self->{'hourlyrate'};
}

sub get_rating {
    my $self = shift;
    return bless $self->{'rating'}, 'WWW::Freelancer::User::Rating';
}

sub get_provider_rating {
    my $self = shift;
    return bless $self->{'provider_rating'},
      'WWW::Freelancer::User::ProviderRating';
}

sub get_buyer_rating {
    my $self = shift;
    return bless $self->{'buyer_rating'}, 'WWW::Freelancer::User::BuyerRating';
}

sub get_jobs {
    my $self = shift;
    return @{ $self->{'jobs'} };
}

package WWW::Freelancer::User::Address;

use warnings;
use strict;

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

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

package WWW::Freelancer::User::Rating;

use warnings;
use strict;

sub get_average {
    my $self = shift;
    return $self->{'avg'};
}

sub get_count {
    my $self = shift;
    return $self->{'count'};
}

package WWW::Freelancer::User::ProviderRating;

use warnings;
use strict;

sub get_average {
    my $self = shift;
    return $self->{'avg'};
}

sub get_count {
    my $self = shift;
    return $self->{'count'};
}

package WWW::Freelancer::User::BuyerRating;

use warnings;
use strict;

sub get_average {
    my $self = shift;
    return $self->{'avg'};
}

sub get_count {
    my $self = shift;
    return $self->{'count'};
}

1;

__END__