CPAN::Groonga

nings;

use JSON qw( from_json );

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

    my $response =
      $self->{'ua'}
      ->post("http://www.colourlovers.com/api/lover/$lover?format=json");
    retu

->{'ua'}
      ->post( $url || 'http://www.colourlovers.com/api/lovers?format=json',
        $args );

    return from_json $response->content;
}

sub lovers_new {
    my ( $self, $args ) = @_;
    re

/api/lovers/new?format=json' );
}

sub lovers_top {
    my ( $self, $args ) = @_;
    return $self->lovers( $args,
        'http://www.colourlovers.com/api/lovers/top?format=json' );
}

1;

__END__
=p

s;

use JSON qw( from_json );

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

    my $response =
      $self->{'ua'}
      ->post("http://www.colourlovers.com/api/palette/$palette?format=json");
    

return ( from_json $response->content )->[0];
}

sub palettes {
    my ( $self, $args, $url ) = @_;

    $args = Net::COLOURlovers::_build_parametres(
        $args,
        [
            qw(
        

{'ua'}
      ->post( $url || 'http://www.colourlovers.com/api/palettes?format=json',
        $args );

    return from_json $response->content;
}

sub palettes_new {
    my ( $self, $args ) = @_;
    

s;

use JSON qw( from_json );

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

    my $response =
      $self->{'ua'}
      ->post("http://www.colourlovers.com/api/pattern/$pattern?format=json");
    

return ( from_json $response->content )->[0];
}

sub patterns {
    my ( $self, $args, $url ) = @_;

    $args = Net::COLOURlovers::_build_parametres(
        $args,
        [
            qw(
        

{'ua'}
      ->post( $url || 'http://www.colourlovers.com/api/patterns?format=json',
        $args );

    return from_json $response->content;
}

sub patterns_new {
    my ( $self, $args ) = @_;
    

rnings;

use JSON qw( from_json );

sub stats_colors {
    my $self = shift;

    my $response =
      $self->{'ua'}
      ->post("http://www.colourlovers.com/api/stats/colors?format=json");

    retu

     $self->{'ua'}
      ->post("http://www.colourlovers.com/api/stats/lovers?format=json");

    return ( from_json $response->content )->{'total'};
}

sub stats_palettes {
    my $self = shift;

   

   $self->{'ua'}
      ->post("http://www.colourlovers.com/api/stats/palettes?format=json");

    return ( from_json $response->content )->{'total'};
}

sub stats_patterns {
    my $self = shift;

   

nings;

use JSON qw( from_json );

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

    my $response =
      $self->{'ua'}
      ->post("http://www.colourlovers.com/api/color/$color?format=json");
    retu

->{'ua'}
      ->post( $url || 'http://www.colourlovers.com/api/colors?format=json',
        $args );

    return from_json $response->content;
}

sub colors_new {
    my ( $self, $args ) = @_;
    re

/api/colors/new?format=json' );
}

sub colors_top {
    my ( $self, $args ) = @_;
    return $self->colors( $args,
        'http://www.colourlovers.com/api/colors/top?format=json' );
}

sub color_rand