view release on metacpan or  search on metacpan

utils/prepare-commit-msg-hook  view on Meta::CPAN

sub main () {
  my ($file, $type) = @ARGV;
  $type //= $ENV{PRE_COMMIT_COMMIT_MSG_SOURCE} // "";

  return 0 if $type !~ /^(?:|message|template|merge)$/;

  my $main   = on_main;
  my $ticket = get_ticket;
  my ($seen_ticket, $seen_scissors);

  local ($^I, @ARGV) = ("", $file);
  while (my $line = <<>>) {
    chomp $line;

    if ($type eq "merge") {
      $line =~ s/^(Merge branch ')($Ticket_re).*/$1$2'/;
      say "" if $. == 2 && $line ne "";
    } else {
      if (!$main) {
        if ($. == 1 && $line eq "") {
          say "\n\nTicket $ticket\n";