my $octets = Encode::encode( "utf8", $buf );
my $digest = md5_hex($octets);
return $digest;
-};
+}; ## end $md5_hex = sub
sub get_iteration_count {
return $rstatus->{iteration_count};
}
}
return $hash_ref;
- };
+ }; ## end $get_hash_ref = sub
%input_hash = ( %defaults, %input_hash );
my $argv = $input_hash{'argv'};
$str = substr( $str, 0, $lenmax ) . "...";
}
return $str;
- };
+ }; ## end $truncate = sub
while (1) {
if ($linei) {
$last_nonblank_line = $linei;
}
}
return;
- };
+ }; ## end $add_option = sub
# Install long option names which have a simple abbreviation.
# Options with code '!' get standard negation ('no' for long names,
}
}
return;
- };
+ }; ## end $check_blank_count = sub
# check for reasonable number of blank lines and fix to avoid problems
$check_blank_count->( 'blank-lines-before-subs', '-blbs' );
return 0 unless $config_file;
${$rconfig_file_chatter} .= "# Testing: $config_file\n";
return -f $config_file;
- };
+ }; ## end $exists_config_file = sub
# Sub to search upward for config file
my $resolve_config_file = sub {
}
}
return $config_file;
- };
+ }; ## end $resolve_config_file = sub
my $config_file;
}
}
return;
- };
+ }; ## end $break_after = sub
my $break_before = sub {
my @toks = @_;
}
}
return;
- };
+ }; ## end $break_before = sub
$break_after->(@all_operators) if ( $rOpts->{'break-after-all-operators'} );
$break_before->(@all_operators)
$ws = $rOpts_space_signature_paren == 0 ? WS_NO : WS_YES;
}
return $ws;
- };
+ }; ## end $ws_signature_paren = sub
my $last_token = SPACE;
my $last_type = 'b';
return $is_block_with_ci{$block_type};
}
return;
- };
+ }; ## end $map_block_follows = sub
my $redo_preceding_comment_ci = sub {
}
}
return;
- };
+ }; ## end $redo_preceding_comment_ci = sub
# Definitions of the sequence of ci_values being maintained:
# $ci_last = the ci value of the previous non-blank, non-comment token
push @{$rblock_stack},
{ seqno => $seqno, package => $current_package, rvars => $rvars };
return;
- };
+ }; ## end $push_block_stack = sub
$push_block_stack->(SEQ_ROOT);
K => $KK,
};
return;
- };
+ }; ## end $checkin_new_identifier = sub
#--------------------------------------------------
# sub to update counts for a list of variable names
}
}
return;
- };
+ }; ## end $update_use_count = sub
#-----------------------------------------------
# sub to check for zero counts when stack closes
}
}
return;
- };
+ }; ## end $check_for_unused_names = sub
#---------------------------------------
# sub to scan interpolated text for vars
$update_use_count->( $sigil_string, $word, $brace );
}
return;
- };
+ }; ## end $scan_quoted_text = sub
#-------------------------------------------------------------
# sub to find the next opening brace seqno of an if-elsif- chain
$push_block_stack->( $seqno_block, $rpopped_vars );
}
return;
- };
+ }; ## end $push_next_if_chain = sub
my $scan_braced_id = sub {
my ($KK) = @_;
}
$update_use_count->( $sigil_string, $word, $bracket );
return;
- };
+ }; ## end $scan_braced_id = sub
my $check_sub_signature = sub {
my ($KK) = @_;
$push_block_stack->($seqno_brace);
}
return;
- };
+ }; ## end $check_sub_signature = sub
#--------------------
# Loop over all lines
my $msg = "$first_word $num_changes '->'$ess1 at line$ess2 $str\n";
warning($msg);
return;
- };
+ }; ## end $warn = sub
# Complexity control flag:
# =0 left container must just contain a single token
$KK_last_nb = $KK_last_last_nb;
$KK_last_last_nb = undef;
return;
- };
+ }; ## end $backup_on_last = sub
#--------------------------------------------------------
# Main loop to scan the container looking for list items.
my $name = $rLL->[$K_mmm]->[_TOKEN_];
return unless ( $name =~ /^\$\w/ );
return $name;
- };
+ }; ## end $dollar_underscore_zero_name = sub
my $rseqno_DOLLAR_underscore =
$self->[_rDOLLAR_underscore_by_sub_seqno_]->{$seqno_block};
my $K_p = $self->K_previous_code($Ko);
return unless ( $rLL->[$K_p]->[_TOKEN_] eq '$_' );
return 1;
- };
+ }; ## end $is_dollar_underscore_zero = sub
#----------------------------------------------
# Loop over sequence numbers of all call parens
output_line => $output_line,
};
return;
- };
+ }; ## end $push_call_arg_warning = sub
my $push_return_warning = sub {
my ( $letter, $note, $lno_return ) = @_;
output_line => $output_line,
};
return;
- };
+ }; ## end $push_return_warning = sub
#-------------------
# Loop over each sub
return if ( $test_type ne $quote_type );
}
return 1;
- };
+ }; ## end $is_single_quote = sub
# Length tolerance - same as previously used for sub weld_nested
my $multiline_tol =
my $length = $self->cumulative_length_before_K($K) - $starting_lentot;
my $excess_length = $length + $length_tol - $maximum_text_length;
return ($excess_length);
- };
+ }; ## end $excess_length_to_K = sub
# loop over all containers
my @open_block_stack;
}
}
return $block_label;
-}
+} ## end sub get_asub_block_label
sub add_closing_side_comment {
projects / perltidy.git / commitdiff