Select Code to Download

use Test::More;

...
    return;                               # Unreachable.
  }
}

sub match {
  local $_ = shift;
...
  ||  m/  ^[^()]*()$    /x;   # No parens (no capture).
  return $1 // ();
}

sub match {
  shift =~ m/
...
  /x;
  return $+{C} // ();
}

sub match {
  shift =~ m/
...
  /x;
  return $^N // ();
}

sub match {
  shift =~ m/
...
  /x;
  return $1 // ();
}

sub match {
  shift =~ m/
...
  /x;
  return $1 // ();
}