gist_backup.pl

#!/usr/bin/perl

use v5.10;

use strict;
use warnings;

# Usage: gist_backup.pl <user>
# Clone all the gists of a GitHub user

use Git::Raw;
use WWW::GitHub::Gist;

my $user = shift or die 'Provide a user name';
my $gist = WWW::GitHub::Gist -> new(user => $user);

my $gists = $gist -> list;

foreach (@$gists) {
	print "Cloning gist '" . $_ -> {'id'} . "'...";
	Git::Raw::Repository -> clone($_ -> {'git_pull_url'}, $_ -> {'id'}, 0);
	say " done.";
}