#!/usr/local/bin/perl -w
###########################################
# repo-user - retrieve a user's repo count
# Mike Schilli, 2015 (m@perlmeister.com)
###########################################
use strict;
use Net::GitHub;
use YAML qw( LoadFile );

my( $user ) = @ARGV;
die "usage: $0 user" if !defined $user;

my $gh_conf = (glob "~")[0] . "/.githubrc";

my $gh = Net::GitHub->new( access_token => 
  LoadFile( $gh_conf )->{ token }
);

my %data = $gh->user->show( $user );

print "$data{ name } owns ",
  "$data{ public_repos } public repos\n";