File Coverage

blib/lib/Pithub.pm

Criterion	Covered	Total	%
statement	54	54	100.0
branch	5	6	83.3
condition			n/a
subroutine	24	24	100.0
pod	10	10	100.0
total	93	94	98.9

package Pithub;
our $AUTHORITY = 'cpan:PLU';
# ABSTRACT: Github v3 API

use Moo;

our $VERSION = '0.01040';

use Carp                 qw( croak );
use Pithub::Events       ();
use Pithub::Gists        ();
use Pithub::GitData      ();
use Pithub::Issues       ();
use Pithub::Orgs         ();
use Pithub::PullRequests ();
use Pithub::Repos        ();
use Pithub::Search       ();
use Pithub::SearchV3     ();
use Pithub::Users        ();

extends 'Pithub::Base';


sub _validate_search_api {
    my %search_apis = map { $_ => 1 } qw(legacy v3);
    croak "unknown search api '$_[0]'"
        unless exists $search_apis{$_[0]};
}


has search_api => (
    is  => 'ro',
    isa => \&_validate_search_api,
    default => 'legacy',
);

sub _search_class {
    my ($self, $search_api) = @_;

    _validate_search_api($search_api);

    return $search_api eq 'legacy'
        ? Pithub::Search::
        : Pithub::SearchV3::;
}


sub events {
    return shift->_create_instance(Pithub::Events::, @_);
}


sub gists {
    return shift->_create_instance(Pithub::Gists::, @_);
}


sub git_data {
    return shift->_create_instance(Pithub::GitData::, @_);
}


sub issues {
    return shift->_create_instance(Pithub::Issues::, @_);
}


sub markdown {
    return shift->_create_instance(Pithub::Markdown::, @_);
}


sub orgs {
    return shift->_create_instance(Pithub::Orgs::, @_);
}


sub pull_requests {
    return shift->_create_instance(Pithub::PullRequests::, @_);
}


sub repos {
    return shift->_create_instance(Pithub::Repos::, @_);
}


sub search {
    my ($self, %args) = @_;
    my $class = $self->_search_class(
        exists $args{search_api}
            ? delete $args{search_api}
            : $self->search_api,
    );
    return shift->_create_instance($class, @_);
}


sub users {
    return shift->_create_instance(Pithub::Users::, @_);
}


1;

__END__