golden hour

/opt/cpanel/perl5/536/site_lib/Perl/Critic/Policy/ValuesAndExpressions

File/Folder	Size	Actions
ProhibitCommaSeparatedStatements.pm	6.66 KB
ProhibitComplexVersion.pm	8.67 KB
ProhibitConstantPragma.pm	2.26 KB
ProhibitEmptyQuotes.pm	2.65 KB
ProhibitEscapedCharacters.pm	2.49 KB
ProhibitImplicitNewlines.pm	2.58 KB
ProhibitInterpolationOfLiterals.pm	5.56 KB
ProhibitLeadingZeros.pm	8.01 KB
ProhibitLongChainsOfMethodCalls.pm	4.8 KB
ProhibitMagicNumbers.pm	20.2 KB
ProhibitMismatchedOperators.pm	7.33 KB
ProhibitMixedBooleanOperators.pm	4.05 KB
ProhibitNoisyQuotes.pm	2.97 KB
ProhibitQuotesAsQuotelikeOperatorDelimiters.pm	8.32 KB
ProhibitSpecialLiteralHeredocTerminator.pm	3.03 KB
ProhibitVersionStrings.pm	2.69 KB
RequireConstantVersion.pm	15.33 KB
RequireInterpolationOfMetachars.pm	7.02 KB
RequireNumberSeparators.pm	3.29 KB
RequireQuotedHeredocTerminator.pm	2.59 KB
RequireUpperCaseHeredocTerminator.pm	2.58 KB

Edit: ProhibitImplicitNewlines.pm

package Perl::Critic::Policy::ValuesAndExpressions::ProhibitImplicitNewlines;

use 5.010001;
use strict;
use warnings;
use Readonly;

use Perl::Critic::Utils qw{ :severities :classification };
use parent 'Perl::Critic::Policy';

our $VERSION = '1.152';

#-----------------------------------------------------------------------------

Readonly::Scalar my $DESC => q{Literal line breaks in a string};
Readonly::Scalar my $EXPL => [60,61];

#-----------------------------------------------------------------------------

sub supported_parameters { return ()                     }
sub default_severity     { return $SEVERITY_MEDIUM       }
sub default_themes       { return qw( core pbp cosmetic ) }
sub applies_to           { return 'PPI::Token::Quote'    }

#-----------------------------------------------------------------------------

sub violates {
    my ( $self, $elem, undef ) = @_;

return if $elem->string !~ m/\n/xms;

return $self->violation( $DESC, $EXPL, $elem );
}

__END__

#-----------------------------------------------------------------------------

=pod

=head1 NAME

Perl::Critic::Policy::ValuesAndExpressions::ProhibitImplicitNewlines - Use concatenation or HEREDOCs instead of literal line breaks in strings.

=head1 AFFILIATION

This Policy is part of the core L<Perl::Critic|Perl::Critic>
distribution.

=head1 DESCRIPTION

Strings with embedded line breaks are hard to read.  Use concatenation
or HEREDOCs instead.

my $foo = "Line one is quite long
    Line two";                                    # Bad

my $foo = "Line one is quite long\nLine two"; # Better, but still hard to read

my $foo = "Line one is quite long\n"
        . "Line two";                               # Better still

my $foo = <<'EOF';                            # Use heredoc for longer passages
    Line one is quite long
    Line two
    Line three breaks the camel's back
    EOF

=head1 CONFIGURATION

This Policy is not configurable except for the standard options.

=head1 AUTHOR

Chris Dolan <cdolan@cpan.org>

=head1 CREDITS

Initial development of this policy was supported by a grant from the
Perl Foundation.

=head1 COPYRIGHT

This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.  The full text of this license
can be found in the LICENSE file included with this module.

=cut

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
#   indent-tabs-mode: nil
#   c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :