lib/Perl/Tidy.pm

381 Please check value of -stderr in call to perltidy
415 Please check value of -dump_options_type in call to perltidy;
448 Please check value of -argv in call to perltidy;
587     # If the backup extension contains a / character then the backup should
592     # A backup file will still be generated but will be deleted
601     my $bext          = $rOpts->{'backup-file-extension'};
602     my $delete_backup = ( $rOpts->{'backup-file-extension'} =~ s/\///g );
611       make_extension( $rOpts->{'backup-file-extension'}, 'bak', $dot );
621     my $in_place_modify = $rOpts->{'backup-and-modify-in-place'}
1174         # handle the -b option (backup and modify in-place)
1179                 # oh, oh, no real file to backup ..
1191             # backup the input file
1195                   or Die "File::Copy failed trying to backup source: $!";
1533     $add_option->( 'backup-and-modify-in-place', 'b',     '!' );
1534     $add_option->( 'backup-file-extension',      'bext',  '=s' );
1563     $add_option->( 'variable-maximum-line-length', 'vmll', '!' );
1766     # If key or value is undefined:
1767     #   strings may have any value
1769     # If value is defined:
1770     #   value is [qw(any valid words)] for strings
1771     #   value is [min, max] for integers
1881       backup-file-extension=bak
2492             Warn "negative value of -blbs, setting 0\n";
2495             Warn "unreasonably large value of -blbs, reducing\n";
2501             Warn "negative value of -blbp, setting 0\n";
2505             Warn "unreasonably large value of -blbp, reducing\n";
2584             Warn "negative value of -dt, setting 0\n";
2588             Warn "unreasonably large value of -dt, reducing\n";
2599     # a default value, typically 8
3304         my $value  = $rOpts->{$key};
3309                 if ( $value !~ /^\d+$/ ) { $value = '"' . $value . '"' }
3310                 $suffix = "=" . $value;
3313                 $prefix .= "no" unless ($value);
3361  -b      backup original to .bak and modify file in-place
3362  -bext=s change default backup extension from 'bak' to s
3431  -sbl    opening sub brace on new line.  value of -bl is used if not given.
5040         # have done some work by hand to create it; use backup name instead
5116     # if color is a 6 digit hex RGB value, prepend a #, otherwise
6229     #   -variable    => \$TRANS
6661     # variable $indentation is either a constant number of spaces or an object
6681     # indentation variable.  $indentation is either a constant number of
7315     # (a large value of $spaces_needed will remove all excess space)
7818       $rOpts->{'variable-maximum-line-length'};
8276           ;    # the value of this long logic sequence is the result we want
8306         foreach my $value ( values(%secret_operators) ) {
8307             my $tok = $value->[0];
8308             push @{ $is_leading_secret_token{$tok} }, $value;
8518         # comes in on a line following a variable with leading arrow:
8551         # set a default value, to be changed as needed
8827         #  if (they are equal) use the common value
9086         # previous, value of this variable when creating a new blank (align.t)
10411     # return value:
10541             # because the bond strengths are set to the highest possible value
11148                 # a minus may introduce a quoted variable, and we will
11762     # depending on the value of switch
11936         # should also be caught with a positive -csci value)
13490     # aligner.  Assign qw quotes a value to allow qw opening and closing tokens
13730                 # then store the value
13819             # likely a break.  A bond strength may be any value but to simplify
13835             #   3. A value of NO_BREAK makes an unbreakable bond
13836             #   4. A value of VERY_WEAK is the strength of a ','
14284             # set terminal bond strength to the nominal value
14307             # this value.  This didn't work, for example because in an arrow
15057 "Non-fatal program bug: backup logic needed to break after a comment\n"
18491             # . $value
18493             # : "\n$type$pod2.html\#" . $value . "\"&gt;$text&lt;\/A&gt;\n";
19136     my ( $self, $value ) = @_;
19137     if ( defined($value) ) {
19138         $self->[MARKED] = $value;
19149     my ( $self, $value ) = @_;
19150     if ( defined($value) ) {
19151         $self->[SPACES] -= $value;
19157     my ( $self, $value ) = @_;
19158     if ( defined($value) ) {
19159         $self->[AVAILABLE_SPACES] -= $value;
19175     my ( $self, $value ) = @_;
19176     if ( defined($value) ) {
19177         $self->[RECOVERABLE_SPACES] = $value;
19183     my ( $self, $value ) = @_;
19184     if ( defined($value) ) {
19185         $self->[RECOVERABLE_SPACES] += $value;
19216     my ( $self, $value ) = @_;
19217     if ( defined($value) ) {
19218         $self->[HAVE_CHILD] = $value;
19229     my ( $self, $value ) = @_;
19230     if ( defined($value) ) {
19231         $self->[ARROW_COUNT] = $value;
19242     my ( $self, $value ) = @_;
19243     if ( defined($value) ) {
19244         $self->[COMMA_COUNT] = $value;
19255     my ( $self, $value ) = @_;
19256     if ( defined($value) ) {
19257         $self->[CLOSED] = $value;
19693       $rOpts->{'variable-maximum-line-length'};
19747     # variable $indentation is either a constant number of spaces or an
19938     # unless requested with a flag value of 2
20572             # Note that this padding will remain even if the terminal value goes
20919                         #       my $variable=6;
21444     # Without this variable, we would occasionally get something like this
21454     # Whereas with this variable, we can shift variables over to get this:
22208     # write out the requested number of blanks regardless of the value of -mbl
22269     # Note that we just incremented output line number to future value
23381     # use value if given as parameter
23455     # compute indentation using the value of -i for this run.
23610     # beginning of tokenizer variable access and manipulation routines
23774     # end of tokenizer variable access and manipulation routines
24289 "syntax error at '$want_paren .. {' -- missing \$ loop variable\n"
24880   # *. Make a backup of your current version in case things don't work out!
25305                 # ATTRS: handle sub and variable attributes
25807         my $im                    = -1;    # previous $i value
25845 #     to modify $ci_level from this strict value.
25848 #     subtracting 1 from a saved value as types '{' and '}' are seen.  The
25849 #     running value of this variable is $level_in_tokenizer.
26067      # not.  The variable $intervening_secondary_structure contains this
26070      # variable.
26603     # take no parameters but produce a value to operate on
26613     # no value to operate on after sub block
27462     # variable or package separator, :: or '.
27670 # If the type token is the last nonblank token on the line, a value
27674 # scanned and handled and a value of '' is returned.
27814     # If VERSION is provided, package sets the $VERSION variable in the given
27967         if ( $id_scan_state eq '$' ) {    # starting variable name
27973                 # we've got a punctuation variable if end of line (punct.t)
28051                         $type          = 'i';    # probably punctuation variable
28172                 # punctuation variable?
28176                 # we will reject the punctuation variable.  In the following
28180                 # '&~' is a punction variable.
29577     # keywords and tokens after which a value or pattern is expected,
30201 Note: A convenient way to check the function of your custom prefilter and
30212 example if a parameter is misspelled or given an invalid value.  The calling
30393 The variable C<$rtoken_type> is a reference to an array of token type codes,