view release on metacpan or  search on metacpan

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

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

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

  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 ')([A-Z]{2,8}-\d+).*/$1$2'/;
      say "" if $. == 2 && $line ne "";
    } else {
      if ($. == 1 && $line eq "") {
        say "\n\nTicket $ticket\n";
        $seen_ticket = 1;