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

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

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

my @repos = $gh->repos->list( );

for my $repo ( @repos ) {
    print $repo->{ name }, "\n";
}