File Coverage

blib/lib/Net/GitHub/V3/Search.pm

Criterion	Covered	Total	%
statement	9	38	23.6
branch	0	8	0.0
condition			n/a
subroutine	3	9	33.3
pod	4	6	66.6
total	16	61	26.2

package Net::GitHub::V3::Search;

use Moo;

our $VERSION = '0.68';
our $AUTHORITY = 'cpan:FAYLAND';

use URI::Escape;

with 'Net::GitHub::V3::Query';

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

    # for old
    unless (ref($args) eq 'HASH') {
        $args = { q => $args };
    }

    my $uri = URI->new('/search/repositories');
    $uri->query_form($args);

    my $url = $uri->as_string;
    $url =~ s/%3A/:/g;
    $url =~ s/%2B/+/g;

    return $self->query($url);
}

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

    # for old
    unless (ref($args) eq 'HASH') {
        $args = { q => $args };
    }

    my $uri = URI->new('/search/code');
    $uri->query_form($args);
    return $self->query($uri->as_string);
}

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

    # for old
    unless (ref($args) eq 'HASH') {
        $args = { q => $args };
    }

    my $uri = URI->new('/search/issues');
    $uri->query_form($args);
    return $self->query($uri->as_string);
}

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

    # for old
    unless (ref($args) eq 'HASH') {
        $args = { q => $args };
    }

    my $uri = URI->new('/search/users');
    $uri->query_form($args);
    return $self->query($uri->as_string);
}

## DEPERCATED
sub repos {
    (shift)->repositories(@_);
}
sub user {
    (shift)->repositories(@_);
}

no Moo;

1;
__END__