Code Index:

package Perl::Critic::Utils::Constants
__END__
EOF

NAME

Perl::Critic::Utils::Constants - Global constants.

DESCRIPTION

Defines commonly used constants for Perl::Critic.

INTERFACE SUPPORT

This is considered to be a public module. Any changes to its interface will go through a deprecation cycle.

IMPORTABLE CONSTANTS

$PROFILE_STRICTNESS_WARN
$PROFILE_STRICTNESS_FATAL
$PROFILE_STRICTNESS_QUIET
$PROFILE_STRICTNESS_DEFAULT
%PROFILE_STRICTNESSES: Valid values for the "-profile-strictness" in perlcritic option. Determines whether recoverable problems found in a profile file appear as warnings, are fatal, or are ignored. $PROFILE_STRICTNESS_DEFAULT is set to $PROFILE_STRICTNESS_WARN. Importable via the :profile_strictness tag.
$PROFILE_COLOR_SEVERITY_HIGHEST_DEFAULT: Default for the -color-severity-highest option. Importable via the :color_severity tag.
$PROFILE_COLOR_SEVERITY_HIGH_DEFAULT: Default for the -color-severity-high option. Importable via the :color_severity tag.
$PROFILE_COLOR_SEVERITY_MEDIUM_DEFAULT: Default for the -color-severity-medium option. Importable via the :color_severity tag.
$PROFILE_COLOR_SEVERITY_LOW_DEFAULT: Default for the -color-severity-low option. Importable via the :color_severity tag.
$PROFILE_COLOR_SEVERITY_LOWEST_DEFAULT: Default for the -color-severity-lowest option. Importable via the :color_severity tag.

AUTHOR

Elliot Shank <perl@galumph.com>

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.

############################################################################## # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/lib/Perl/Critic/Utils/Constants.pm $ # $Date: 2011-05-15 16:34:46 -0500 (Sun, 15 May 2011) $ # $Author: clonezone $ # $Revision: 4078 $ ############################################################################## package Perl::Critic::Utils::Constants; use 5.006001; use strict; use warnings; use Readonly; use Perl::Critic::Utils qw{ $EMPTY hashify }; use base 'Exporter'; our $VERSION = '1.116'; #----------------------------------------------------------------------------- our @EXPORT_OK = qw{ $PROFILE_STRICTNESS_WARN $PROFILE_STRICTNESS_FATAL $PROFILE_STRICTNESS_QUIET $PROFILE_STRICTNESS_DEFAULT %PROFILE_STRICTNESSES $PROFILE_COLOR_SEVERITY_HIGHEST_DEFAULT $PROFILE_COLOR_SEVERITY_HIGH_DEFAULT $PROFILE_COLOR_SEVERITY_MEDIUM_DEFAULT $PROFILE_COLOR_SEVERITY_LOW_DEFAULT $PROFILE_COLOR_SEVERITY_LOWEST_DEFAULT $_MODULE_VERSION_TERM_ANSICOLOR }; our %EXPORT_TAGS = ( all => \@EXPORT_OK, profile_strictness => [ qw{ $PROFILE_STRICTNESS_WARN $PROFILE_STRICTNESS_FATAL $PROFILE_STRICTNESS_QUIET $PROFILE_STRICTNESS_DEFAULT %PROFILE_STRICTNESSES } ], color_severity => [ qw{ $PROFILE_COLOR_SEVERITY_HIGHEST_DEFAULT $PROFILE_COLOR_SEVERITY_HIGH_DEFAULT $PROFILE_COLOR_SEVERITY_MEDIUM_DEFAULT $PROFILE_COLOR_SEVERITY_LOW_DEFAULT $PROFILE_COLOR_SEVERITY_LOWEST_DEFAULT } ], ); #----------------------------------------------------------------------------- Readonly::Scalar our $PROFILE_STRICTNESS_WARN => 'warn'; Readonly::Scalar our $PROFILE_STRICTNESS_FATAL => 'fatal'; Readonly::Scalar our $PROFILE_STRICTNESS_QUIET => 'quiet'; Readonly::Scalar our $PROFILE_STRICTNESS_DEFAULT => $PROFILE_STRICTNESS_WARN; Readonly::Hash our %PROFILE_STRICTNESSES => hashify( $PROFILE_STRICTNESS_WARN, $PROFILE_STRICTNESS_FATAL, $PROFILE_STRICTNESS_QUIET, ); Readonly::Scalar our $PROFILE_COLOR_SEVERITY_HIGHEST_DEFAULT => 'bold red'; Readonly::Scalar our $PROFILE_COLOR_SEVERITY_HIGH_DEFAULT => 'magenta'; Readonly::Scalar our $PROFILE_COLOR_SEVERITY_MEDIUM_DEFAULT => $EMPTY; Readonly::Scalar our $PROFILE_COLOR_SEVERITY_LOW_DEFAULT => $EMPTY; Readonly::Scalar our $PROFILE_COLOR_SEVERITY_LOWEST_DEFAULT => $EMPTY; # If the following changes, the corresponding change needs to be made in # inc/Perl/Critic/BuildUtilities.pm, sub recommended_module_versions(). Readonly::Scalar our $_MODULE_VERSION_TERM_ANSICOLOR => 2.02; #----------------------------------------------------------------------------- 1; __END__ #-----------------------------------------------------------------------------

# 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 :