Perl::Tidy::Formatter(3)

        # 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' );

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

Around line 3225:
    =pod directives shouldn't be over one line long! Ignoring all 3 lines of content