File Coverage

lib/WebService/Pixabay.pm

Criterion	Covered	Total	%
statement	12	62	19.3
branch	0	76	0.0
condition	0	6	0.0
subroutine	4	7	57.1
pod	0	3	0.0
total	16	154	10.3

package WebService::Pixabay;

use Modern::Perl '2009';
use Moo;
use Function::Parameters;
use Data::Dumper 'Dumper';

with 'WebService::Client';

# ABSTRACT: Perl 5 interface to Pixabay API.
our $VERSION = '2.0.2';    # VERSION

# token key
has api_key => (
    is       => 'ro',
    required => 1
);

has '+base_url' => ( default => 'https://pixabay.com/api/' );

# get image metadata from JSON
method image_search(
    : $q              = "yellow flower",
    : $lang           = "en",
    : $id             = "",
    : $response_group = "image_details",
    : $image_type     = "all",
    : $orientation    = "all",
    : $category       = "",
    : $min_width      = 0,
    : $min_height     = 0,
    : $editors_choice = "false",
    : $safesearch     = "false",
    : $order          = "popular",
    : $page           = 1,
    : $per_page       = 20,
    : $callback       = "",
    : $pretty         = "false"
  )
{
	return $self->get(
                "?key="
              . $self->api_key
              . "&q=$q&lang=$lang&id=$id&response_group=$response_group&image_type=$image_type"
              . "&orientation=$orientation&category=$category&min_width=$min_width&mind_height=$min_height"
              . "&editors_choice=$editors_choice&safesearch=$safesearch&order=$order&page=$page"
              . "&per_page=$per_page&callback=$callback&pretty=$pretty"
        );
}

# get image metadata from JSON
method video_search(
    : $q              = "yellow flower",
    : $lang           = "en",
    : $id             = "",
    : $video_type     = "all",
    : $category       = "",
    : $min_width      = 0,
    : $min_height     = 0,
    : $editors_choice = "false",
    : $safesearch     = "false",
    : $order          = "popular",
    : $page           = 1,
    : $per_page       = 20,
    : $callback       = "",
    : $pretty         = "false"
  )
{
	return $self->get(
                "videos/?key="
              . $self->api_key
              . "&q=$q&lang=$lang&id=$id&video_type=$video_type"
              . "&category=$category&min_width=$min_width&mind_height=$min_height"
              . "&editors_choice=$editors_choice&safesearch=$safesearch&order=$order&page=$page"
              . "&per_page=$per_page&callback=$callback&pretty=$pretty"
        );
}

# pretty print the JSON data structure
method show_data_structure($method_name) {
    print Dumper $method_name;
}

1;

__END__