File Coverage

blib/lib/Flickr/Roles/Permissions.pm

Criterion	Covered	Total	%
statement	17	55	30.9
branch	0	14	0.0
condition	0	3	0.0
subroutine	6	10	60.0
pod	0	2	0.0
total	23	84	27.3

package Flickr::Roles::Permissions;

use Carp;
use Flickr::Types::Tools qw ( FlickrPermStr );
use Types::Standard qw( Bool);
use 5.010;
use Moo::Role;

our $VERSION = '1.21_02';

has _permissions => (
    is        => 'rw',
    isa       => FlickrPermStr,
    builder   => '_get_permissions',
    clearer   => 1,
    predicate => 1,
    required  => 1,
    default   => 'none',
);

has _api_connects => (
    is       => 'ro',
    isa      => Bool,
    required => 1,
    clearer  => 1,
    lazy     => 1,
    builder  => '_can_connect',
    default  => 0,
);

requires qw( _build_api api user);

sub connects {
    my $self = shift;

    return $self->_api_connects if $self->_api_connects;

    $self->_can_connect;

    return $self->_api_connects;
}

sub permissions {

    my $self = shift;

    return $self->_permissions if $self->_has_permissions;

    $self->_get_permissions;

    return $self->_permissions;
}

sub _get_permissions {
    my $self = shift;

    unless ( $self->has_token and $self->has_token_secret ) {
        carp
'Tool needs to have an access token and token_secret to obtain permission';
        $self->_clear_permissions;
        return;
    }
    my $temp = $self->api;

    my $rsp = $temp->execute_method('flickr.auth.oauth.checkToken');

    if ( $rsp->success == 0 ) {

        return $self->_permissions('none');

    }
    else {

        my $answer = $rsp->as_hash;

        $self->_permissions( $answer->{oauth}->{perms} );
        $self->_user( $answer->{oauth}->{user} );
        return;
    }
}

sub _can_connect {
    my $self = shift;
    my $temp = $self->api;
    my $rsp =
      $temp->execute_method( 'flickr.test.echo', { 'tool' => 'can_connect' } );

    $self->{_api_connects} = 0;
    $self->_clear_permissions;

    unless ( $rsp->rc eq '200' ) {

        carp "\nConnect attempt to Flickr received "
          . $rsp->rc
          . " html response code\n";
        return;

    }

    unless ( $rsp->success eq '1' ) {

        carp "\nConnection was made but received a "
          . $rsp->error_code
          . "\n    "
          . $rsp->error_message . "\n";
        return;

    }

    my $answer = $rsp->as_hash;

    if ( $answer->{'tool'} eq 'can_connect' ) {
        $self->{_api_connects} = 1;
        return;

    }
    else {

        carp "\nUnexpected data received back from Flickr\n";
        return;

    }
}

no Moo::Role;

1;

__END__