Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

add search.t

  • Loading branch information...
commit 042a097d8956d2a608dccf0a0b311bdb567d7d17 1 parent 0a7f4c7
@fayland authored
View
2  lib/Net/GitHub/V3.pm
@@ -2,7 +2,7 @@ package Net::GitHub::V3;
use Any::Moose;
-our $VERSION = '0.40';
+our $VERSION = '0.49';
our $AUTHORITY = 'cpan:FAYLAND';
with 'Net::GitHub::V3::Query';
View
2  lib/Net/GitHub/V3/Search.pm
@@ -49,7 +49,7 @@ L<http://developer.github.com/v3/search/>
=item issues
- my %data = $search->issues('closed', 'milestone');
+ my %data = $search->issues('fayland', 'perl-net-github', 'closed', 'milestone');
print Dumper(\$data{issues});
=item repos
View
30 xt/v3/900-search.t
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Test::More;
+use Net::GitHub::V3;
+use Data::Dumper;
+
+my $gh = Net::GitHub::V3->new();
+my $search = $gh->search;
+
+ok( $gh );
+ok( $search );
+
+my %data = $search->issues('fayland', 'perl-net-github', 'closed', 'milestone');
+diag Dumper(\$data{issues});
+
+#%data = $search->repos('perl-net-github');
+#diag Dumper(\$data{repositories});
+
+#%data = $search->user('fayland');
+#diag Dumper(\$data{users});
+
+%data = $search->email('fayland@gmail.com');
+diag Dumper(\$data{user});
+
+
+done_testing;
+
+1;
Please sign in to comment.
Something went wrong with that request. Please try again.