.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40) .\" .\" Standard preamble: .\" ======================================================================== .de Sp \" Vertical space (when we can't use .PP) .if t .sp .5v .if n .sp .. .de Vb \" Begin verbatim text .ft CW .nf .ne \\$1 .. .de Ve \" End verbatim text .ft R .fi .. .\" Set up some character translations and predefined strings. \*(-- will .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left .\" double quote, and \*(R" will give a right double quote. \*(C+ will .\" give a nicer C++. Capital omega is used to do unbreakable dashes and .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff, .\" nothing in troff, for use with C<>. .tr \(*W- .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' .ie n \{\ . ds -- \(*W- . ds PI pi . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch . ds L" "" . ds R" "" . ds C` "" . ds C' "" 'br\} .el\{\ . ds -- \|\(em\| . ds PI \(*p . ds L" `` . ds R" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" ======================================================================== .\" .IX Title "Perl::Critic::Policy::ValuesAndExpressions::ConstantBeforeLt 3pm" .TH Perl::Critic::Policy::ValuesAndExpressions::ConstantBeforeLt 3pm "2021-02-28" "perl v5.32.1" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH "NAME" Perl::Critic::Policy::ValuesAndExpressions::ConstantBeforeLt \- disallow bareword before < .SH "DESCRIPTION" .IX Header "DESCRIPTION" This policy is part of the \f(CW\*(C`Perl::Critic::Pulp\*(C'\fR add-on. It prohibits a bareword before a \f(CW\*(C`<\*(C'\fR to keep you out of trouble with autoloaded or unprototyped constant subs since a \f(CW\*(C`<\*(C'\fR in that case is interpreted as the start of a \f(CW\*(C`<..>\*(C'\fR glob or readline instead of a less-than. This policy is under the \*(L"bugs\*(R" theme (see \&\*(L"\s-1POLICY THEMES\*(R"\s0 in Perl::Critic). .PP .Vb 2 \& use POSIX; \& DBL_MANT_DIG < 32 # bad, perl 5.8 thinks <> \& \& func <*.c> # ok, actual glob \& time < 2e9 # ok, builtins parse ok \& \& use constant FOO => 16; \& FOO < 32 # ok, your own const \& \& sub BAR () { 64 } \& BAR < 32 # ok, your own prototyped sub .Ve .PP The fix for something like \f(CW\*(C`DBL_MANT_DIG < 10\*(C'\fR is parens either around or after, like .PP .Vb 2 \& (DBL_MANT_DIG) < 10 # ok \& DBL_MANT_DIG() < 10 # ok .Ve .PP whichever you think is less worse. The latter emphasises it's really a sub. .PP The key is whether the constant sub in question is defined and has a prototype at the time the code is compiled. ConstantBeforeLt makes the pessimistic assumption that anything except \f(CW\*(C`use constant\*(C'\fR and prototyped subs in your own file shouldn't be relied on. .PP In practice the most likely problems are with the \f(CW\*(C`POSIX\*(C'\fR module constants of Perl 5.8.x and earlier, since they were unprototyped. The default code generated by \f(CW\*(C`h2xs\*(C'\fR (as of Perl 5.10.0) is similar autoloaded unprototyped constants so modules using the bare output of that suffer too. .PP If you're confident the modules you use don't play tricks with their constants (including only using \s-1POSIX\s0 on Perl 5.10.0 or higher) then you might find ConstantBeforeLt too pessimistic. It normally triggers rather rarely anyway, but you can always disable it altogether in your \&\fI.perlcriticrc\fR file (see \*(L"\s-1CONFIGURATION\*(R"\s0 in Perl::Critic), .PP .Vb 1 \& [\-ValuesAndExpressions::ConstantBeforeLt] .Ve .SH "OTHER NOTES" .IX Header "OTHER NOTES" Bareword file handles might be misinterpreted by this policy as constants, but in practice \*(L"<\*(R" doesn't get used with anything taking a bare filehandle. .PP A constant used before it's defined, like .PP .Vb 3 \& if (FOO < 123) { ... } # bad \& ... \& use constant FOO => 456; .Ve .PP is reported by ConstantBeforeLt since it might be an imported constant sub, even if it's much more likely to be a simple mis-ordering, which \f(CW\*(C`use strict\*(C'\fR picks up anyway when it runs. .SH "SEE ALSO" .IX Header "SEE ALSO" Perl::Critic::Pulp, Perl::Critic .SH "HOME PAGE" .IX Header "HOME PAGE" http://user42.tuxfamily.org/perl\-critic\-pulp/index.html .SH "COPYRIGHT" .IX Header "COPYRIGHT" Copyright 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2019, 2021 Kevin Ryde .PP Perl-Critic-Pulp is free software; you can redistribute it and/or modify it under the terms of the \s-1GNU\s0 General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. .PP Perl-Critic-Pulp is distributed in the hope that it will be useful, but \&\s-1WITHOUT ANY WARRANTY\s0; without even the implied warranty of \s-1MERCHANTABILITY\s0 or \s-1FITNESS FOR A PARTICULAR PURPOSE.\s0 See the \s-1GNU\s0 General Public License for more details. .PP You should have received a copy of the \s-1GNU\s0 General Public License along with Perl-Critic-Pulp. If not, see .