1 files changed, 61 insertions, 0 deletions
diff --git a/bin/git-nuke-forge-fork b/bin/git-nuke-forge-fork
new file mode 100755
index 0000000..7690a87
--- /dev/null
+++ b/bin/git-nuke-forge-fork
@@ -0,0 +1,61 @@
+#!/usr/bin/perl
+# PODNAME: git-nuke-forge-fork
+# ABSTRACT: delete forks created by git-clean-forge-fork(1)
+#
+# Copyright (C) 2020 Sean Whitton
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or (at
+# your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+=head1 SYNOPSIS
+
+B<git nuke-forge-fork> [B<--upstream=>I<REMOTE>]
+
+=head1 DESCRIPTION
+
+Deletes forks created by git-clean-forge-fork(1).  Useful to clean up
+your git forge profile after your proposed changes have been included
+upstream.
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<--upstream=>I<REMOTE>
+
+Specify the name of the upstream git remote, i.e., what you previously
+forked.  Defaults to "origin".
+
+=back
+
+=head1 FILES
+
+=over 4
+
+=item $XDG_CONFIG_HOME/.config/gitforge/access_tokens/I<DOMAIN>
+
+Where I<DOMAIN> is the domain name of the git forge
+(e.g. "github.com", "salsa.debian.org"), this file should contain an
+API access token to log in to your account at the git forge.  If
+unset, $XDG_CONFIG_HOME defaults to ~/.config.
+
+=back
+
+=head1 SEE ALSO
+
+git-clean-forge-fork(1)
+
+=cut
+
+use App::git::nuke_forge_fork;
+exit App::git::nuke_forge_fork->main;