lib/Perl/Tidy.pm

73     # given filename and mode (r or w), create an object which:
74     #   has a 'getline' method if mode='r', and
75     #   has a 'print' method if mode='w'.
82     # '-'                  (STDIN if mode = 'r', STDOUT if mode='w')
87     #                      (check for 'print' method for 'w' mode)
88     #                      (check for 'getline' method for 'r' mode)
90     my $mode = shift;
109             if ( $mode =~ /[rR]/ ) {
126             if ( $mode =~ /[wW]/ ) {
146             $New = sub { $mode eq 'w' ? *STDOUT : *STDIN }
152     $fh = $New->( $filename, $mode )
153       or warn "Couldn't open file:$filename in mode:$mode : $!\n";
591           && $rOpts->{'format'} eq 'tidy' # silently ignore unless beautify mode
1084     if ( $rOpts->{'DEBUG'} || $rOpts->{'show-options'} ) {
1241     # to hide from tidyview (which does not show category 0 flags):
1414     $add_option->( 'show-options',                    'opt',  '!' );
2021     # In quiet mode, there is no log file and hence no way to report
2818  -h      show this help
2843  -sil=n  set starting indentation level to n;  use if auto detection fails
3125 # a getline method which reads lines (mode='r'), or
3126 # a print method which reads lines (mode='w')
3133     my ( $package, $rscalar, $mode ) = @_;
3143     if ( $mode eq 'w' ) {
3145         return bless [ $rscalar, $mode ], $package;
3147     elsif ( $mode eq 'r' ) {
3153         return bless [ \@array, $mode, $i_next ], $package;
3158 expecting mode = 'r' or 'w' but got mode ($mode); trace follows:
3166     my $mode = $self->[1];
3167     if ( $mode ne 'r' ) {
3170 getline call requires mode = 'r' but mode = ($mode); trace follows:
3181     my $mode = $self->[1];
3182     if ( $mode ne 'w' ) {
3185 print call requires mode = 'w' but mode = ($mode); trace follows:
3197 # a getline method which reads lines (mode='r'), or
3198 # a print method which reads lines (mode='w')
3209     my ( $package, $rarray, $mode ) = @_;
3219     if ( $mode eq 'w' ) {
3221         return bless [ $rarray, $mode ], $package;
3223     elsif ( $mode eq 'r' ) {
3225         return bless [ $rarray, $mode, $i_next ], $package;
3230 expecting mode = 'r' or 'w' but got mode ($mode); trace follows:
3238     my $mode = $self->[1];
3239     if ( $mode ne 'r' ) {
3242 getline requires mode = 'r' but mode = ($mode); trace follows:
3252     my $mode = $self->[1];
3253     if ( $mode ne 'w' ) {
3256 print requires mode = 'w' but mode = ($mode); trace follows:
4993     # Path 1: finish up if in -pre mode
7606           #    $opts{rdonly} = (($opts{mode} & O_ACCMODE) == O_RDONLY);
10462         # show that text was truncated if necessary
10652     # always show the leading 'if' text on 'else'
13936 # open, then it should be broken open to properly show the structure.
15089             "List: auto formatting with $number_of_fields fields/row\n");
15615                     #      $dev,  $ino,   $mode,  $nlink, $uid,     $gid, $rdev,
15622                     #      $dev,  $ino,   $mode,  $nlink, $uid,     $gid, $rdev,
24510             $op_expected = TERM;    # expression or list mode following keyword
24516             $op_expected = OPERATOR;    # block mode following }
24870     # report unexpected token type and show where it is
27263     # code above it, and we have to add marking to show where an error is.