DOKK / manpages / debian 10 / perltidy / Perl::Tidy.3pm.en
Perl::Tidy(3pm) User Contributed Perl Documentation Perl::Tidy(3pm)

        # compare input/output indentation except for continuation lines
        # (because they have an unknown amount of initial blank space)
        # and lines which are quotes (because they may have been outdented)
        # Note: this test is placed here because we know the continuation flag
        # at this point, which allows us to avoid non-meaningful checks.
        my $structural_indentation_level = $rLL->[$Kfirst]->[_LEVEL_];
        compare_indentation_levels( $guessed_indentation_level,
            $structural_indentation_level )
          unless ( $rLL->[$Kfirst]->[_CI_LEVEL_] > 0
            || $guessed_indentation_level == 0
            && $rLL->[$Kfirst]->[_TYPE_] eq 'Q' );

Hey! The above document had some coding errors, which are explained below:

=pod directives shouldn't be over one line long! Ignoring all 3 lines of content
2018-08-11 perl v5.26.2