) = @_;
- if ( DEVEL_MODE && ( my $count = @_ ) != ( my $expected_count = 8 ) ) {
- Fault("arg count $count expected to be $expected_count\n");
- }
-
# Given:
# $i_begin = first index of range
# $i_last_break = index of previous break
) = @_;
- if ( DEVEL_MODE && ( my $count = @_ ) != ( my $expected_count = 9 ) ) {
- Fault("arg count $count expected to be $expected_count\n");
- }
-
#--------------------------------------------------------------
# This routine makes any necessary adjustments to get the final
# indentation of a line in the Formatter.
) = @_;
- if ( DEVEL_MODE && ( my $count = @_ ) != ( my $expected_count = 10 ) ) {
- Fault("arg count $count expected to be $expected_count\n");
- }
-
my $adjust_indentation = 0;
my $default_adjust_indentation = $adjust_indentation;
my $terminal_type = $types_to_go[$i_terminal];
) = @_;
- if ( DEVEL_MODE && ( my $count = @_ ) != ( my $expected_count = 9 ) ) {
- Fault("arg count $count expected to be $expected_count\n");
- }
-
# Define vertical tightness controls for the nth line of a batch.
# Note: do not call this sub for a block comment or if
# $rOpts_freeze_whitespace is set.
) = @_;
- if ( DEVEL_MODE && ( my $count = @_ ) != ( my $expected_count = 8 ) ) {
- $self->Fault("arg count $count expected to be $expected_count\n");
- }
-
my $i_begin = $i;
my $package = undef;
) = @_;
- if ( DEVEL_MODE && ( my $count = @_ ) != ( my $expected_count = 8 ) ) {
- $self->Fault("arg count $count expected to be $expected_count\n");
- }
-
use constant DEBUG_NSCAN => 0;
my $type = EMPTY_STRING;
my $i_beg;
) = @_;
- if ( DEVEL_MODE && ( my $count = @_ ) != ( my $expected_count = 8 ) ) {
- $self->Fault("arg count $count expected to be $expected_count\n");
- }
-
# return flag telling caller to split the pretoken
my $split_pretoken_flag;
) = @_;
- if ( DEVEL_MODE && ( my $count = @_ ) != ( my $expected_count = 7 ) ) {
- $self->Fault("arg count $count expected to be $expected_count\n");
- }
-
my $ibeg = $i;
my $found_target = 0;
my $here_doc_target = EMPTY_STRING;
) = @_;
- if ( DEVEL_MODE && ( my $count = @_ ) != ( my $expected_count = 12 ) ) {
- $self->Fault("arg count $count expected to be $expected_count\n");
- }
-
my $quoted_string;
if ( $in_quote == 2 ) { # two quotes/quoted_string_1s to follow
my $ibeg = $i;
) = @_;
- if ( DEVEL_MODE && ( my $count = @_ ) != ( my $expected_count = 9 ) ) {
- $self->Fault("arg count $count expected to be $expected_count\n");
- }
-
my ( $tok, $end_tok );
my $i = $i_beg - 1;
my $quoted_string = EMPTY_STRING;