File Coverage

lib/App/gh/Command/Search.pm

Criterion	Covered	Total	%
statement	24	35	68.5
branch			n/a
condition	0	2	0.0
subroutine	8	9	88.8
pod	0	1	0.0
total	32	47	68.0

package App::gh::Command::Search;
use warnings;
use strict;
use base qw(App::gh::Command);
use App::gh::Utils;
use App::gh;
use Term::ANSIColor;
use Text::Wrap;
use v5.10;

=head1 NAME

App::gh::Command::Search - search repositories

=head1 USAGE

    $ gh search perl6

=cut

sub run {
    my ($self,$keyword) = @_;
    local $|;
    info "Fetching list...";

    my $data = App::gh->github->query( 'GET' , '/legacy/repos/search/' . $keyword );

    my @ary = ();
    for my $repo ( @{ $data->{repositories} } ) {
        my $name = sprintf "%s/%s", $repo->{username} , $repo->{name};
        my $desc = $repo->{description};
        push @ary, [ $name , $desc || '' ];
    }
    print_list @ary;

#     my $result = App::gh->api->search($keyword);
#     if( $self->{long} ) {
#         for my $entry ( @{ $result->{repositories} } ) {
#             print color 'white bold';
#             say "*   $entry->{owner}/$entry->{name}";
#             print color 'reset';
#             say "    W/F:      $entry->{watchers}/$entry->{forks}";
#             say "    Url:      " .  $entry->{url} if $entry->{url};
#             say "    Homepage: " .  $entry->{homepage} if $entry->{homepage};
#             say "\n" . wrap( '    ', '    ', $entry->{description} ) . "\n";
#         }
#     } else {
#         my @ary = ();
#         for my $repo ( @{ $result->{repositories} } ) {
#         }
#         # print short list
#     }

}

1;
__END__