ブランチに紐付いたイシューをプルリクに変える。

ハーン？イシューをプルリクに変える〜？どうせ大して変わらないでしょ〜とか思ってたけど、全くそんなことなかったので、今更使う事にした。

#!perl
use strict;
use warnings;
use 5.10.1;

sub current_branch {
    my @branches = split /\n/, `git branch --no-color 2> /dev/null`;
    my ($branch) = grep { s/^[\*]\s+// } @branches;
    $branch;
}

my $branch = current_branch();
if ($branch =~ /iss([0-9]+)/) {
    say `gh pull-request -i $1`;
}

みたいな感じで、ブランチに紐付いたイシューをプルリクに変えるコマンドを適当に作った。