File Coverage

blib/lib/MetaCPAN/API/Autocomplete.pm

Criterion	Covered	Total	%
statement	28	29	96.5
branch	9	10	90.0
condition	5	9	55.5
subroutine	5	5	100.0
pod	1	1	100.0
total	48	54	88.8

use strict;
use warnings;
package MetaCPAN::API::Autocomplete;
# ABSTRACT: Autocompletion info for MetaCPAN::API

our $VERSION = '0.51';

use Carp;
use Moo::Role;

# /search/autocomplete?q={search}
sub autocomplete {
    my $self  = shift;
    my %opts  = @_ ? @_ : ();
    my $url   = '';

    my $error      = "You have to provide a search term";
    my $size_error = "The size has to be between 0 and 100";

    %opts or croak $error;
    $opts{search} && ref $opts{search} eq 'HASH' or croak $error;

    my %extra_opts;

    if ( defined ( my $term = $opts{search}->{query} ) ) {
        $url           = 'search/autocomplete';
        $extra_opts{q} = $term;

        my $size = $opts{search}->{size};
        if ( defined $size && $size >= 0 && $size <= 100 ) {
            $extra_opts{size} = $size;
        } else {
            croak $size_error;
        }
    } else {
        croak $error;
    }

    return $self->fetch( $url, %extra_opts );
}

1;

__END__