#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use Pithub;

use constant GH_USER  => 'tobyink'; # Your username!
use constant GH_TOKEN => 'ABCX123'; # https://github.com/settings/tokens

my $gh = 'Pithub'->new(
	user  => GH_USER,
	token => GH_TOKEN,
);

my $repos = $gh->repos->list;
$repos->auto_pagination( 1 );

while ( my $repo = $repos->next ) {
	say $repo->{'name'};
}