File Coverage

blib/lib/Flickr/Tools/Cameras.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Flickr::Tools::Cameras;

use Flickr::API::Cameras;
use Types::Standard qw ( InstanceOf );
use Carp;
use Moo;
use strictures 2;
use namespace::clean;
use 5.010;


our $VERSION = '1.21_02';

extends 'Flickr::Tools';

has '+_api_name' => (
    is       => 'ro',
    isa      => sub { $_[0] =~ m/^Flickr::API::Cameras$/ },
    required => 1,
    default  => "Flickr::API::Cameras",
);


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

    if (defined($args->{list_type}) and $args->{list_type} =~ m/list/i) {

        $brands = $self->{_api}->brands_list;

    }
    else {

        $brands = $self->{_api}->brands_hash;

    }

    return $brands;
}



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

    my $rsp = {};

    if (exists($args->{Brand})) {

        $rsp = $self->{_api}->get_cameras($args->{Brand});

    }

    return $rsp;

}




1;

__END__