File Coverage

blib/lib/Flickr/API/People.pm

Criterion	Covered	Total	%
statement	12	66	18.1
branch	0	10	0.0
condition			n/a
subroutine	4	15	26.6
pod	8	10	80.0
total	24	101	23.7

package Flickr::API::People;

use strict;
use warnings;
use Carp;

use parent qw( Flickr::API );
our $VERSION = '1.28';


sub _initialize {

    my $self=shift;
    my $check;

        #if $self->api_permissions . . .
        my $rsp = $self->execute_method('flickr.auth.oauth.checkToken');

        if (!$rsp->success()) {

            $rsp->_propagate_status($self->{flickr}->{status});

            carp "\nUnable to validate token. Flickr error: ",
                $self->{flickr}->{status}->{error_code}," - \"",
                $self->{flickr}->{status}->{error_message},"\" \n";

            $self->_set_status(0,"Unable to validate token, Flickr API call not successful.");

        }
        else {

            $check = $rsp->as_hash();
            $self->{flickr}->{token} = $check->{oauth};
            $self->_set_status(1,"Token validated.");

        }

    return;

}

sub findByEmail {

    my $self  = shift;
    my $email = shift;

    $self->clear_user;

    unless ($email) { croak 'Usage: $api->findByEmail("an-email-address")'; }

    my $rsp = $self->execute_method('flickr.people.findByEmail',{'find_email' => $email});
    $rsp->_propagate_status($self->{flickr}->{status});

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

        my $eresult = $rsp->as_hash();
        $self->_set_status(1,"flickr.people.findByEmail successfully found " . $email);
        $self->{flickr}->{user} = $eresult->{user};

    }
    else {

        $self->_set_status(0,"Unable to find user with: " . $email);

    }

    return $self->username;
}

sub findByUsername {

    my $self = shift;
    my $user = shift;

    $self->clear_user;

    unless ($user) { croak 'Usage: $api->findByUsername("a_user_name")'; }

    my $rsp = $self->execute_method('flickr.people.findByUsername',{'username' => $user});
    $rsp->_propagate_status($self->{flickr}->{status});

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

       my $uresult = $rsp->as_hash();
       $self->_set_status(1,"flickr.people.findByUsername successfully found " . $user);
       $self->{flickr}->{user} = $uresult->{user};

    }
    else {

        $self->_set_status(0,"Unable to find user with: " . $user);

    }

    return $self->username;
}


sub perms {
    my $self=shift;
    return $self->{flickr}->{token}->{perms};
}

sub perms_caller {
    my $self=shift;
    return $self->{flickr}->{token}->{user}->{username};
}

sub perms_nsid {
    my $self=shift;
    return $self->{flickr}->{token}->{user}->{nsid};
}

sub perms_token {
    my $self=shift;
    return $self->{flickr}->{token}->{token};
}

sub nsid {
    my $self=shift;
    return $self->{flickr}->{user}->{nsid};
}

sub username {
    my $self=shift;
    return $self->{flickr}->{user}->{username};
}

sub user {
    my $self=shift;
    return $self->{flickr}->{user};
}

sub clear_user {
    my $self=shift;
    delete $self->{flickr}->{user};
    return;
}



1;

__END__