File Coverage

blib/lib/Flickr/Tools/Reflection.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::Reflection;

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


our $VERSION = '1.21_03';

extends 'Flickr::Tools';

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

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

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

        $methods = $self->{_api}->methods_list;

    }
    else {

        $methods = $self->{_api}->methods_hash;

    }

    return $methods;
}


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

   my $rsp = {};

   if (ref($args) eq 'HASH') {

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

           $rsp = $self->{_api}->get_method($args->{Method});

       }
       elsif ($args =~ m/flickr\.[a-z]+\.*/) {

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

       }
       else {

           carp "argument neither a hashref pointing to a method, or the name of a method";

       }
   }
   return $rsp;

}


1;

__END__