+our $VERSION = '20210717';
+
+BEGIN {
+ my $i = 0;
+ use constant {
+ _jmax_ => $i++,
+ _rtokens_ => $i++,
+ _rfields_ => $i++,
+ _rfield_lengths_ => $i++,
+ _rpatterns_ => $i++,
+ _indentation_ => $i++,
+ _leading_space_count_ => $i++,
+ _outdent_long_lines_ => $i++,
+ _list_seqno_ => $i++,
+ _list_type_ => $i++,
+ _is_hanging_side_comment_ => $i++,
+ _ralignments_ => $i++,
+ _maximum_line_length_ => $i++,
+ _rvertical_tightness_flags_ => $i++,
+ _is_terminal_ternary_ => $i++,
+ _j_terminal_match_ => $i++,
+ _end_group_ => $i++,
+ _Kend_ => $i++,
+ _ci_level_ => $i++,
+ _level_ => $i++,
+ _level_end_ => $i++,
+ _imax_pair_ => $i++,
+ };
+}
+
+sub AUTOLOAD {
+
+ # Catch any undefined sub calls so that we are sure to get
+ # some diagnostic information. This sub should never be called
+ # except for a programming error.
+ our $AUTOLOAD;
+ return if ( $AUTOLOAD =~ /\bDESTROY$/ );
+ my ( $pkg, $fname, $lno ) = caller();
+ my $my_package = __PACKAGE__;
+ print STDERR <<EOM;
+======================================================================
+Error detected in package '$my_package', version $VERSION
+Received unexpected AUTOLOAD call for sub '$AUTOLOAD'
+Called from package: '$pkg'
+Called from File '$fname' at line '$lno'
+This error is probably due to a recent programming change
+======================================================================
+EOM
+ exit 1;
+}