File Coverage

blib/lib/Flickr/API2.pm

Criterion	Covered	Total	%
statement	35	36	97.2
branch	2	2	100.0
condition	2	5	40.0
subroutine	14	15	93.3
pod	7	7	100.0
total	60	65	92.3

package Flickr::API2;
use 5.12.0;
use warnings;
use Flickr::API2::Request;
use Flickr::API2::Photos;
use Flickr::API2::Test;
use Flickr::API2::Interestingness;
use Flickr::API2::People;
use Flickr::API2::Raw;

our $VERSION = '2.50';

sub new {
    my $class   = shift;
    my $options = shift;

    croak("You must supply an API key and secret to the constructor")
      unless $options->{key} and $options->{secret};

    my $self = {
        _raw     => Flickr::API2::Raw->new($options),
        rest_uri => $options->{rest_uri}
          || 'https://api.flickr.com/services/rest/',
    };

    bless $self, $class;
}

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

    my $request = Flickr::API2::Request->new(
        {
            method   => $method,
            args     => $args,
            rest_uri => $self->{rest_uri}
        }
    );

    $self->raw->execute_request($request);
}

sub raw {
    shift->{_raw};
}

sub photos {
    Flickr::API2::Photos->new( api => shift );
}

sub test {
    Flickr::API2::Test->new( api => shift );
}

sub interestingness {
    Flickr::API2::Interestingness->new( api => shift );
}

sub people {
    Flickr::API2::People->new( api => shift );
}

1;
__END__