File Coverage

blib/lib/MetaCPAN/API/Favorite.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	7	8	87.5
condition	1	3	33.3
subroutine	6	6	100.0
pod	1	1	100.0
total	43	46	93.4

use strict;
use warnings;
package MetaCPAN::API::Favorite;

our $VERSION = '0.52';

use Carp;
use Moo::Role;
use namespace::autoclean;

# /favorite/_search only
sub favorite {
    my $self  = shift;
    my %opts  = @_ ? @_ : ();
    my $url   = '';
    my $error = "Only 'search' can be used here";

    %opts or croak $error;

    my %extra_opts = ();

    if ( defined ( my $search_opts = $opts{'search'} ) ) {
        croak $error
            unless ref $search_opts && ref $search_opts eq 'HASH';

        %extra_opts = %{$search_opts};
        $url        = 'favorite/_search';
    } else {
        croak $error;
    }

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

1;

__END__