File Coverage

blib/lib/WWW/Freelancer.pm

Criterion	Covered	Total	%
statement	26	56	46.4
branch	0	6	0.0
condition			n/a
subroutine	9	13	69.2
pod	4	4	100.0
total	39	79	49.3

package WWW::Freelancer;

use warnings;
use strict;

use version; our $VERSION = qv('0.0.1');

use LWP::UserAgent;
use JSON qw( from_json );
use WWW::Freelancer::Project;
use WWW::Freelancer::User;

my $user_agent = LWP::UserAgent->new( 'agent' => __PACKAGE__ . '/' . $VERSION );

sub new {
    my $class = shift;
    return bless {}, __PACKAGE__;
}

sub get_project {
    my ( $self, $id ) = @_;

    my $content = $user_agent->get("http://api.freelancer.com/Project/$id.json")
      ->decoded_content();

    return bless from_json($content)->{'project'}, 'WWW::Freelancer::Project';
}

sub get_user {
    my ( $self, $id_or_username ) = @_;

    my $query_string = "?id=$id_or_username";
    my $content
      = $user_agent->get(
        "http://api.freelancer.com/User/Properties.json$query_string")
      ->decoded_content();

    return bless from_json($content)->{'profile'}, 'WWW::Freelancer::User';
}

sub search_project {
    my ( $self, %parametres ) = @_;

    _move_key_to_api_key(
        \%parametres,
        {   'jobs'            => 'jobs[]',
            'maximum_budget'  => 'max_budget',
            'minimum_budget'  => 'min_budget',
            'order_direction' => 'order_dir',
        }
    );

    if ( defined $parametres{'order'}->{'random'} ) {
        $parametres{'order'}->{'rand'} = $parametres{'order'}->{'random'};
        delete $parametres{'order'}->{'random'};
    }

    my $query_string = _build_query_string(%parametres);
    my $content
      = $user_agent->get(
        "http://api.freelancer.com/Project/Search.json$query_string")
      ->decoded_content();
    my @projects = @{ from_json($content)->{'projects'}->{'items'} };
    map { bless $_, 'WWW::Freelancer::Project' } @projects;

    return @projects;
}

sub _move_key_to_api_key {
    my ( $parametres_ref, $keys_and_api_keys_ref ) = @_;

    for my $key ( keys %{$keys_and_api_keys_ref} ) {
        if ( defined $parametres_ref->{$key} ) {
            $parametres_ref->{ $keys_and_api_keys_ref->{$key} }
              = $parametres_ref->{$key};
            delete $parametres_ref->{$key};
        }
    }
}

sub _build_query_string {
    my %parametres = @_;
    my @query_strings;

    for my $key ( keys %parametres ) {
        if ( ref $parametres{$key} eq 'ARRAY' ) {
            for my $element ( @{ $parametres{$key} } ) {
                push @query_strings, $key . '=' . $element;
            }
        }
    }

    return '?' . join '&', @query_strings;
}

1;

__END__