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;
use namespace::clean;
use 5.010;

with qw(Flickr::Roles::Caching);

our $VERSION = '1.22';

extends 'Flickr::Tools';

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

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

    $self->_set_cache_hit(1);

    if ( defined( $args->{clear_cache} ) and $args->{clear_cache} ) {
        $pre_expire = 1;
    }

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

        $self->_set_cache_key('brands_list');

        $brands = $self->_cache->get( $self->cache_key,
            expire_if => sub { $pre_expire } );
        if ( !defined $brands ) {
            $brands = $self->{_api}->brands_list;
            $self->_set_cache_hit(0);
            $self->_cache->set( $self->cache_key, $brands,
                $self->cache_duration );
        }
    }
    else {

        $self->_set_cache_key('brands_hash');

        $brands = $self->_cache->get( $self->cache_key,
            expire_if => sub { $pre_expire } );
        if ( !defined $brands ) {
            $brands = $self->{_api}->brands_hash;
            $self->_set_cache_hit(0);
            $self->_cache->set( $self->cache_key, $brands,
                $self->cache_duration );
        }
    }
    return $brands;
}

sub getBrandModels {
    my ( $self, $args ) = @_;
    my $models     = {};
    my $pre_expire = 0;

    $self->_set_cache_hit(1);

    if ( defined( $args->{clear_cache} ) and $args->{clear_cache} ) {
        $pre_expire = 1;
    }

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

        $self->_set_cache_key( 'Models ' . $args->{Brand} );

        $models = $self->_cache->get( $self->cache_key,
            expire_if => sub { $pre_expire } );
        if ( !defined $models ) {
            $models = $self->{_api}->get_cameras( $args->{Brand} );
            $self->_set_cache_hit(0);
            $self->_cache->set( $self->cache_key, $models,
                $self->cache_duration );
        }
    }
    else {

        carp
"\nCannot return models unless a required argument: Brand is passed in\n";

    }

    return $models;

}

1;

__END__