1Perl::Tidy::Formatter(3U)ser Contributed Perl DocumentatiPoenrl::Tidy::Formatter(3)
2
3
4
5 # compare input/output indentation except for continuation lines
6 # (because they have an unknown amount of initial blank space)
7 # and lines which are quotes (because they may have been outdented)
8 # Note: this test is placed here because we know the continuation flag
9 # at this point, which allows us to avoid non-meaningful checks.
10 my $structural_indentation_level = $rLL->[$Kfirst]->[_LEVEL_];
11 compare_indentation_levels( $guessed_indentation_level,
12 $structural_indentation_level )
13 unless ( $rLL->[$Kfirst]->[_CI_LEVEL_] > 0
14 || $guessed_indentation_level == 0
15 && $rLL->[$Kfirst]->[_TYPE_] eq 'Q' );
16
18 Hey! The above document had some coding errors, which are explained
19 below:
20
21 Around line 3226:
22 =pod directives shouldn't be over one line long! Ignoring all 3
23 lines of content
24
25
26
27perl v5.30.0 2019-09-15 Perl::Tidy::Formatter(3)