File Coverage

blib/lib/WWW/Freelancer/Project.pm

Criterion	Covered	Total	%
statement	30	85	35.2
branch			n/a
condition			n/a
subroutine	10	37	27.0
pod	14	14	100.0
total	54	136	39.7

package WWW::Freelancer::Project;

use warnings;
use strict;

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

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

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

sub get_start_unixtime {
    my $self = shift;
    return $self->{'start_unixtime'};
}

sub get_start_date {
    my $self = shift;
    return $self->{'start_date'};
}

sub get_end_unixtime {
    my $self = shift;
    return $self->{'end_unixtime'};
}

sub get_end_date {
    my $self = shift;
    return $self->{'end_date'};
}

sub get_buyer {
    my $self = shift;
    return bless $self->{'buyer'}, 'WWW::Freelancer::Project::Buyer';
}

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

sub get_short_description {
    my $self = shift;
    return $self->{'short_descr'};
}

sub get_options {
    my $self = shift;
    return bless $self->{'options'}, 'WWW::Freelancer::Project::Options';
}

sub get_budget {
    my $self = shift;
    return bless $self->{'budget'}, 'WWW::Freelancer::Project::Budget';
}

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

sub get_bid_stats {
    my $self = shift;
    return bless $self->{'bid_stats'}, 'WWW::Freelancer::Project::BidStats';
}

package WWW::Freelancer::Project::Options;

use warnings;
use strict;

sub is_featured {
    my $self = shift;
    return $self->{'featured'};
}

sub is_nonpublic {
    my $self = shift;
    return $self->{'nonpublic'};
}

sub is_trial {
    my $self = shift;
    return $self->{'trial'};
}

sub is_fulltime {
    my $self = shift;
    return $self->{'fulltime'};
}

sub is_for_gold_members {
    my $self = shift;
    return $self->{'for_gold_members'};
}

sub is_hidden_bids {
    my $self = shift;
    return $self->{'hidden_bids'};
}

package WWW::Freelancer::Project::Buyer;

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'};
}

package WWW::Freelancer::Project::Budget;

use warnings;
use strict;

sub get_minimum {
    my $self = shift;
    return $self->{'min'};
}

sub get_maximum {
    my $self = shift;
    return $self->{'max'};
}

package WWW::Freelancer::Project::BidStats;

use warnings;
use strict;

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

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

1;

__END__