lib/Perl/Tidy.pm

592           && @ARGV > 0;    # silently ignore if standard input;
598             if ( $rOpts->{'standard-output'} ) {
786                     if ( $rOpts->{'standard-output'} ) {
818             elsif ( $rOpts->{'standard-output'} ) {
1219     # Options with code '!' get standard negation ('no' for long names,
1236     $add_option->( 'standard-error-output',      'se',    '!' );
1237     $add_option->( 'standard-output',            'st',    '!' );
2282     # TODO: are these more standard names?
2300     # Use the standard API call to determine the version
2833  -st     send output to standard output, STDOUT
2834  -se     send error output to standard error output, STDERR
2835  -v      display version number to standard output and quit
2965  -dop    dump options used in this run to standard output and quit
2966  -ddf    dump default options to standard output and quit
2967  -dsn    dump all option short names to standard output and quit
2968  -dln    dump option long names to standard output and quit
2969  -dpro   dump whatever configuration file is in effect to standard output
2970  -dtt    dump all token types to standard output and quit
3052     # Not all operating systems/shells support redirection of the standard
3287     # in order to check output syntax when standard output is used,
3299 Note: --syntax check will be skipped because standard input is used
3392     # in order to check output syntax when standard output is used,
3397             # Turning off syntax check when standard output is used.
3403 Note: --syntax check will be skipped because standard output is used
3832             if ( $rOpts->{'standard-error-output'} ) {
4338     #    @token_long_names{@list} = ('bit') x scalar(@list);
6159     # handle the standard indentation scheme
6366         # Compute the standard incremental whitespace.  This will be
6369         # and the standard style.
6387         # if this is a BLOCK, add the standard increment
6393         # just use standard increment
6444             # we will use the minimum (standard) indentation.  This will
6448             # to this minimum standard indentation. But the most deeply
6809 "This means the display of this script could vary with device or software\n"
9436             # now we do a correction step to clean this up a bit
12502             # Make them weaker than * but a bit stronger than '.'
14807 #         comma, because the standard continuation break logic will do a better
19656     # the indentation to the standard scheme, but notes how
23837 #     is 4 characters if the standard indentation scheme is used.
23841 #     is 2 characters in the standard indentation scheme.
24106                 my $bit = 0;
24111                         $bit = 1 if $nesting_list_flag;
24117                         $bit = 1
24123                 $nesting_list_string .= $bit;
24124                 $nesting_list_flag = $bit;
27224     #       display part of a line, such that $pos-$offset is the effective
27983         stderr            - standard error output
28021 to what would otherwise go to the standard error output device.
28042 are returned in a hash rather than dumped to standard output.  Also, by default