The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use 5.12.0;
use Git::Release;
$|++;
my $m = Git::Release->new;
my $action = shift;

if( $action && $action eq 'edit' ) {
    say "Launching editor ...";
    $m->get_current_branch->edit_doc;
    say "Done";
}
else {
    $m->get_current_branch->print_doc;
}