Perl::Tidy::Formatter
Section: User Contributed Perl Documentation (3)
Updated: 2019-09-15
Page Index
# 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 3226:
-
=pod directives shouldn't be over one line long! Ignoring all 3 lines of content