logging by Log::Dispatch (Log::Dispatch::Config) for perl

Standard

Log::Dispatch::Config helps using Log::Dispatch !!
http://search.cpan.org/perldoc?Log%3A%3ADispatch
http://search.cpan.org/perldoc?Log%3A%3ADispatch%3A%3AConfig

sample code are shown below.

caller

#!/usr/local/bin/perl
use strict;
use warnings;
use utf8;
use Encode;
use lib qw/lib/;
use LogTest;
use Data::Dumper;


my $LOGGER = LogTest->new();
$LOGGER->info(1);
$LOGGER->debug('test');
$LOGGER->info('これはテスト');
$LOGGER->info({key=>'これはテスト'});

wrapper of Log::Dispatch (Log::Dispatch::Config)

package LogTest;
use strict;
use utf8;
use Encode;
use Log::Dispatch::Config;
use base qw/Log::Dispatch::Configurator/;
use Data::Dumper;
$Log::Dispatch::Config::CallerDepth = 1;

#to avoid garbled characters by Data::Dumper.
#But Data::Dumper (useperl=1) is slower than xs (c code).
{ package Data::Dumper; sub qquote { return shift; } }
$Data::Dumper::Useperl = 1;

my $CONF = {
 dispatchers => [qw/file screen/],
 file => {
 class => 'Log::Dispatch::File',
 min_level => 'debug',
 filename => '/home/endo/tmp/test.log',
 mode => 'append',
 format => '[%d] [%p] %m at %P line %L %n',
 },
 screen => {
 class => 'Log::Dispatch::Screen',
 min_level => 'warning',
 stderr => 1,
 format => '[%d] [%p] %m at %P line %L %n',
 },
};

sub new {
 my ($class) = @_;
 my $self = bless {}, $class;

 Log::Dispatch::Config->configure( $self );
 $self->{base_logger} = Log::Dispatch::Config->instance;

 return $self;
}


# get_attrs_global() & get_attrs() are implemented
# for Log::Dispatch::Configurator (abstract class).
# http://search.cpan.org/perldoc?Log%3A%3ADispatch%3A%3AConfigurator
sub get_attrs_global {
 my ($self) = @_;
 return {format => undef,
 dispatchers => $CONF->{dispatchers} };
}
sub get_attrs {
 my ($self,$atri_key) = @_;
 return $CONF->{$atri_key};
}

sub pre_conv_msgs {
 my ($self,@org_msgs) = @_;

 my @new_msgs;
 #TODO? add $ENV{REMOTE_USER} if you need login user id.
 for my $msg ( @org_msgs ){
 $msg = Dumper($msg) if ref($msg); # display for reference value
 push(@new_msgs,Encode::encode('utf8',$msg));
 }
 return \@new_msgs;
}

sub debug {
 my ($self,@org_msgs) = @_;
 $self->{base_logger}->debug( @{$self->pre_conv_msgs(@org_msgs)} );
}
sub info {
 my ($self,@org_msgs) = @_;
 $self->{base_logger}->info( @{$self->pre_conv_msgs(@org_msgs)} );
}
sub warn {
 my ($self,@org_msgs) = @_;
 $self->{base_logger}->warn( @{$self->pre_conv_msgs(@org_msgs)} );
}
sub error {
 my ($self,@org_msgs) = @_;
 $self->{base_logger}->error( @{$self->pre_conv_msgs(@org_msgs)} );
}

1;
__END__

Introduce to dynamic dns service – http://www.mydns.jp

Standard

HOW TO USE in Japanese

http://www.mydns.jp/?MENU=030
I set up my domain as below.

STEP1 sign up

http://www.mydns.jp/?MENU=010
If you enter the required information, you can receive regist mail from system@mydns.jp.
MYDNS’s id / passoword are written in regist mail.

STEP2 set up DOMAIN INFO

I logged in http://www.mydns.jp by id/pw, and entered dommain info, as below.

無題

STEP3 set up ip addr of your server

You can regist ip address of your server by http access, as below.

$ wget http://mydns357506:$YOUR_PASSWD@www.mydns.jp/login.html

STEP4 check your ip address

$ nslookup a5.end0tknr.mydns.jp
Server:         192.168.10.1
Address:        192.168.10.1#53

Non-authoritative answer:
Name:   a5.end0tknr.mydns.jp
Address: 124.144.84.175

Minimum environment variables in linux cron job process.

Standard
#!/usr/local/bin/perl
use strict;
use Date::Calc qw/Today_and_Now/;

main();

sub main {
    print sprintf("#### %04d-%02d-%02d %02d:%02d:%02d",
                  Date::Calc::Today_and_Now() ),"\n";
    for my $atri_key ( sort keys %ENV){
        print "$atri_key : $ENV{$atri_key}\n";
    }
    print "\n";
}

The above script shows environment variables , as follows.

#### 2015-04-18 10:02:01
CATALINA_BASE : /home/endo/local/tomcat6
CATALINA_HOME : /home/endo/local/tomcat6
CVS_RSH : ssh
G_BROKEN_FILENAMES : 1
HISTCONTROL : ignoredups
HISTSIZE : 1000
HOME : /home/endo
HOSTNAME : cent6.a5.jp
HULEXEP : /usr/local/HULFT/bin
HULPATH : /usr/local/HULFT/etc
JAVA_HOME : /usr/local/java
JAVA_OPTS : -Xmx1024m -XX:MaxPermSize=256m
LANG : en_US.UTF-8
LESSOPEN : ||/usr/bin/lesspipe.sh %s
LOGNAME : endo
LS_COLORS : rs=0:di=01;34:ln=01;36: <SNIP> ;36:*.xspf=01;36:
MAIL : /var/spool/mail/endo
OLDPWD : /home/endo
PATH : /usr/local/HULFT/bin:/usr/lib64/qt-3.3/bin:/usr/local/bin:/bin:/usr/bin:/usr/local/sbin:/usr/sbin:/sbin
PWD : /home/endo/tmp/TEST_CRON
QTDIR : /usr/lib64/qt-3.3
QTINC : /usr/lib64/qt-3.3/include
QTLIB : /usr/lib64/qt-3.3/lib
SHELL : /bin/bash
SHLVL : 1
SSH_AUTH_SOCK : /tmp/ssh-pfLfn10070/agent.10070
SSH_CLIENT : 192.168.56.1 51608 22
SSH_CONNECTION : 192.168.56.1 51608 192.168.56.101 22
SSH_TTY : /dev/pts/0
TERM : xterm
USER : endo
_ : ./foo_1.pl

But minimum environment variables are valid in cron job process.

$ crontab -l                                                               
* * * * * /home/endo/tmp/TEST_CRON/foo_1.pl >> /home/endo/tmp/foo.log
#### 2015-04-18 10:05:01
HOME : /home/endo
LANG : en_US.UTF-8
LOGNAME : endo
PATH : /usr/bin:/bin
PWD : /home/endo
SHELL : /bin/sh
SHLVL : 1
USER : endo
_ : /home/endo/tmp/TEST_CRON/foo_1.pl

And environment variables are in-valid in different processes.
Next cron job setting shows minimum env.

$ crontab -l                                                               
* * * * * /home/endo/.bash_profile;/home/endo/tmp/TEST_CRON/foo_1.pl >> /home/endo/tmp/foo.log

So you can enable environment variables by setting env in crontab , as follow.

$ crontab -l                                                               
HULEXEP=/usr/local/HULFT/bin
HULPATH=/usr/local/HULFT/etc
* * * * * /home/endo/tmp/TEST_CRON/foo_1.pl >> /home/endo/tmp/foo.log

my setting ( .perlcriticrc ) of source code linter for perl ( Perl::Critic )

Standard

http://search.cpan.org/perldoc?Perl%3A%3ACritic
Perl::Critic is based on Perl Best Practices ( PBP ).
Perl-Critic-1.125/examples/perlcriticrc , perlcriticrc-conway.

$ perlcritic --profile-proto > ~/.perlcriticrc
$ vi ~/.perlcriticrc

“severity = 3” and “use warnings severity = 4->2”

# This file is generated by "$ perlcritic --profile-proto ~/.perlcriticrc ".
# Globals
severity = 3
# force = 0
only = 0
# allow-unsafe = 0
# profile-strictness = warn
# color = 0
# pager = 
# top = 0
# verbose = 4
# include =
# exclude = 
# single-policy = 
# theme = 
# color-severity-highest = bold red
# color-severity-high = magenta
# color-severity-medium = 
# color-severity-low = 
# color-severity-lowest = 
# program-extensions = 

# Use `List::MoreUtils::any' instead of `grep' in boolean context.
[BuiltinFunctions::ProhibitBooleanGrep]
# set_themes                         = certrec core pbp performance
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Map blocks should have a single statement.
[BuiltinFunctions::ProhibitComplexMappings]
# set_themes                         = complexity core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The maximum number of statements to allow within a map block.
# Minimum value 1. No maximum.
# max_statements = 1


# Use 4-argument `substr' instead of writing `substr($foo, 2, 6) = $bar'.
[BuiltinFunctions::ProhibitLvalueSubstr]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Forbid $b before $a in sort blocks.
[BuiltinFunctions::ProhibitReverseSortBlock]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit


# Use Time::HiRes instead of something like `select(undef, undef, undef, .05)'.
[BuiltinFunctions::ProhibitSleepViaSelect]
# set_themes                         = bugs core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Write `eval { my $foo; bar($foo) }' instead of `eval "my $foo; bar($foo);"'.
[BuiltinFunctions::ProhibitStringyEval]
# set_themes                         = bugs certrule core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit

# Allow eval of "use" and "require" strings.
# allow_includes = 0


# Write `split /-/, $string' instead of `split '-', $string'.
[BuiltinFunctions::ProhibitStringySplit]
# set_themes                         = certrule core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Write `eval { $foo->can($name) }' instead of `UNIVERSAL::can($foo, $name)'.
[BuiltinFunctions::ProhibitUniversalCan]
# set_themes                         = certrule core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Write `eval { $foo->isa($pkg) }' instead of `UNIVERSAL::isa($foo, $pkg)'.
[BuiltinFunctions::ProhibitUniversalIsa]
# set_themes                         = certrule core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Don't pass $_ to built-in functions that assume it, or to most filetest operators.
[BuiltinFunctions::ProhibitUselessTopic]
# set_themes                         = core
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Don't use `grep' in void contexts.
[BuiltinFunctions::ProhibitVoidGrep]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Don't use `map' in void contexts.
[BuiltinFunctions::ProhibitVoidMap]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Write `grep { /$pattern/ } @list' instead of `grep /$pattern/, @list'.
[BuiltinFunctions::RequireBlockGrep]
# set_themes                         = bugs core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Write `map { /$pattern/ } @list' instead of `map /$pattern/, @list'.
[BuiltinFunctions::RequireBlockMap]
# set_themes                         = bugs core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Use `glob q{*}' instead of <*>.
[BuiltinFunctions::RequireGlobFunction]
# set_themes                         = bugs core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Sort blocks should have a single statement.
[BuiltinFunctions::RequireSimpleSortBlock]
# set_themes                         = complexity core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# AUTOLOAD methods should be avoided.
[ClassHierarchies::ProhibitAutoloading]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Employ `use base' instead of `@ISA'.
[ClassHierarchies::ProhibitExplicitISA]
# set_themes                         = certrec core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Write `bless {}, $class;' instead of just `bless {};'.
[ClassHierarchies::ProhibitOneArgBless]
# set_themes                         = bugs core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Use spaces instead of tabs.
[CodeLayout::ProhibitHardTabs]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# Allow hard tabs before first non-whitespace character.
# allow_leading_tabs = 1


# Write `open $handle, $path' instead of `open($handle, $path)'.
[CodeLayout::ProhibitParensWithBuiltins]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit


# Write `qw(foo bar baz)' instead of `('foo', 'bar', 'baz')'.
[CodeLayout::ProhibitQuotedWordLists]
# set_themes                         = core cosmetic
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit

# The minimum number of words in a list that will be complained about.
# Minimum value 1. No maximum.
# min_elements = 2

# Complain even if there are non-word characters in the values.
# strict = 0


# Don't use whitespace at the end of lines.
[CodeLayout::ProhibitTrailingWhitespace]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit


# Use the same newline through the source.
[CodeLayout::RequireConsistentNewlines]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Must run code through perltidy.
[CodeLayout::RequireTidyCode]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit

# The Perl::Tidy configuration file to use, if any.
# perltidyrc = 


# Put a comma at the end of every multi-line list declaration, including the last one.
[CodeLayout::RequireTrailingCommas]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit


# Write `for(0..20)' instead of `for($i=0; $i<=20; $i++)'.
[ControlStructures::ProhibitCStyleForLoops]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Don't write long "if-elsif-elsif-elsif-elsif...else" chains.
[ControlStructures::ProhibitCascadingIfElse]
# set_themes                         = complexity core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The maximum number of alternatives that will be allowed.
# Minimum value 1. No maximum.
# max_elsif = 2


# Don't write deeply nested loops and conditionals.
[ControlStructures::ProhibitDeepNests]
# set_themes                         = complexity core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The maximum number of nested constructs to allow.
# Minimum value 1. No maximum.
# max_nests = 5


# Don't use labels that are the same as the special block names.
[ControlStructures::ProhibitLabelsWithSpecialBlockNames]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Don't modify `$_' in list functions.
[ControlStructures::ProhibitMutatingListFunctions]
# set_themes                         = bugs certrule core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit

# The base set of functions to check.
# list_funcs = map grep List::Util::first List::MoreUtils::any List::MoreUtils::all List::MoreUtils::none List::MoreUtils::notall List::MoreUtils::true List::MoreUtils::false List::MoreUtils::firstidx List::MoreUtils::first_index List::MoreUtils::lastidx List::MoreUtils::last_index List::MoreUtils::insert_after List::MoreUtils::insert_after_string

# The set of functions to check, in addition to those given in list_funcs.
# add_list_funcs = 


# Don't use operators like `not', `!~', and `le' within `until' and `unless'.
[ControlStructures::ProhibitNegativeExpressionsInUnlessAndUntilConditions]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Write `if($condition){ do_something() }' instead of `do_something() if $condition'.
[ControlStructures::ProhibitPostfixControls]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit

# The permitted postfix controls.
# Valid values: for, foreach, if, unless, until, when, while.
# allow = 

# The exempt flow control functions.
# flowcontrol = carp cluck confess croak die exit goto warn


# Write `if(! $condition)' instead of `unless($condition)'.
[ControlStructures::ProhibitUnlessBlocks]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Don't write code after an unconditional `die, exit, or next'.
[ControlStructures::ProhibitUnreachableCode]
# set_themes                         = bugs certrec core
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Write `while(! $condition)' instead of `until($condition)'.
[ControlStructures::ProhibitUntilBlocks]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# The `=head1 NAME' section should match the package.
[Documentation::RequirePackageMatchesPodName]
# set_themes                         = core cosmetic
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit


# All POD should be after `__END__'.
[Documentation::RequirePodAtEnd]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit


# Provide text to display with your pod links.
[Documentation::RequirePodLinksIncludeText]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit

# Allow external sections without text.
# allow_external_sections = 1

# Allow internal sections without text.
# allow_internal_sections = 1


# Organize your POD into the customary sections.
[Documentation::RequirePodSections]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit

# The sections to require for modules (separated by qr/\s* [|] \s*/xms).
# lib_sections = 

# The sections to require for programs (separated by qr/\s* [|] \s*/xms).
# script_sections = 

# The origin of sections to use.
# Valid values: book, book_first_edition, module_starter_pbp, module_starter_pbp_0_0_3.
# source = book_first_edition

# The spelling of sections to use.
# Valid values: en_AU, en_US.
# language = 


# Use functions from Carp instead of `warn' or `die'.
[ErrorHandling::RequireCarping]
# set_themes                         = certrule core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# Don't complain about die or warn if the message ends in a newline.
# allow_messages_ending_with_newlines = 1

# Don't complain about die or warn in main::, unless in a subroutine.
# allow_in_main_unless_in_subroutine = 0


# You can't depend upon the value of `$@'/`$EVAL_ERROR' to tell whether an `eval' failed.
[ErrorHandling::RequireCheckingReturnValueOfEval]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Discourage stuff like `@files = `ls $directory`'.
[InputOutput::ProhibitBacktickOperators]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# Allow backticks everywhere except in void contexts.
# only_in_void_context = 


# Write `open my $fh, q{<}, $filename;' instead of `open FH, q{<}, $filename;'.
[InputOutput::ProhibitBarewordFileHandles]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Use "<>" or "<ARGV>" or a prompting module instead of "<STDIN>".
[InputOutput::ProhibitExplicitStdin]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Use prompt() instead of -t.
[InputOutput::ProhibitInteractiveTest]
# set_themes                         = bugs certrule core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Use `local $/ = undef' or File::Slurp instead of joined readline.
[InputOutput::ProhibitJoinedReadline]
# set_themes                         = core pbp performance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Never write `select($fh)'.
[InputOutput::ProhibitOneArgSelect]
# set_themes                         = bugs certrule core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Write `while( $line = <> ){...}' instead of `for(<>){...}'.
[InputOutput::ProhibitReadlineInForLoop]
# set_themes                         = bugs core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Write `open $fh, q{<}, $filename;' instead of `open $fh, "<$filename";'.
[InputOutput::ProhibitTwoArgOpen]
# set_themes                         = bugs certrule core pbp security
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Write `print {$FH} $foo, $bar;' instead of `print $FH $foo, $bar;'.
[InputOutput::RequireBracedFileHandleWithPrint]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit


# Close filehandles as soon as possible after opening them.
[InputOutput::RequireBriefOpen]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit

# The maximum number of lines between an open() and a close().
# Minimum value 1. No maximum.
# lines = 9


# Write `my $error = close $fh;' instead of `close $fh;'.
[InputOutput::RequireCheckedClose]
# set_themes                         = certrule core maintenance
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Write `my $error = open $fh, $mode, $filename;' instead of `open $fh, $mode, $filename;'.
[InputOutput::RequireCheckedOpen]
# set_themes                         = certrule core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Return value of flagged function ignored.
[InputOutput::RequireCheckedSyscalls]
# set_themes                         = certrule core maintenance
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit

# The set of functions to require checking the return value of.
# functions = open close print say

# The set of functions to not require checking the return value of.
# exclude_functions = 


# Write `open $fh, q{<:encoding(UTF-8)}, $filename;' instead of `open $fh, q{{<:utf8}, $filename;'.
[InputOutput::RequireEncodingWithUTF8Layer]
# set_themes                         = bugs core security
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Do not use `format'.
[Miscellanea::ProhibitFormats]
# set_themes                         = certrule core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Do not use `tie'.
[Miscellanea::ProhibitTies]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Forbid a bare `## no critic'
[Miscellanea::ProhibitUnrestrictedNoCritic]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Remove ineffective "## no critic" annotations.
[Miscellanea::ProhibitUselessNoCritic]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Export symbols via `@EXPORT_OK' or `%EXPORT_TAGS' instead of `@EXPORT'.
[Modules::ProhibitAutomaticExportation]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Avoid putting conditional logic around compile-time includes.
[Modules::ProhibitConditionalUseStatements]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Ban modules that aren't blessed by your shop.
[Modules::ProhibitEvilModules]
# set_themes                         = bugs certrule core
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit

# The names of or patterns for modules to forbid.
# modules = Class::ISA {Found use of Class::ISA. This module is deprecated by the Perl 5 Porters.} Pod::Plainer {Found use of Pod::Plainer. This module is deprecated by the Perl 5 Porters.} Shell {Found use of Shell. This module is deprecated by the Perl 5 Porters.} Switch {Found use of Switch. This module is deprecated by the Perl 5 Porters.}

# A file containing names of or patterns for modules to forbid.
# modules_file = 


# Minimize complexity in code that is outside of subroutines.
[Modules::ProhibitExcessMainComplexity]
# set_themes                         = complexity core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The maximum complexity score allowed.
# Minimum value 1. No maximum.
# max_mccabe = 20


# Put packages (especially subclasses) in separate files.
[Modules::ProhibitMultiplePackages]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Write `require Module' instead of `require 'Module.pm''.
[Modules::RequireBarewordIncludes]
# set_themes                         = core portability
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# End each module with an explicitly `1;' instead of some funky expression.
[Modules::RequireEndWithOne]
# set_themes                         = bugs certrule core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Always make the `package' explicit.
[Modules::RequireExplicitPackage]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = 1

# Don't require programs to contain a package statement.
# exempt_scripts = 1

# Allow the specified modules to be imported outside a package.
# allow_import_of = 


# Package declaration must match filename.
[Modules::RequireFilenameMatchesPackage]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# `use English' must be passed a `-no_match_vars' argument.
[Modules::RequireNoMatchVarsWithUseEnglish]
# set_themes                         = core performance
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Give every module a `$VERSION' number.
[Modules::RequireVersionVar]
# set_themes                         = core pbp readability
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Distinguish different program components by case.
[NamingConventions::Capitalization]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit

# How package name components should be capitalized.  Valid values are :single_case, :all_lower, :all_upper:, :starts_with_lower, :starts_with_upper, :no_restriction, or a regex.
# packages = :starts_with_upper

# Package names that are exempt from capitalization rules.  The values here are regexes that will be surrounded by \A and \z.
# package_exemptions = main

# How subroutine names should be capitalized.  Valid values are :single_case, :all_lower, :all_upper, :starts_with_lower, :starts_with_upper, :no_restriction, or a regex.
# subroutines = :single_case

# Subroutine names that are exempt from capitalization rules.  The values here are regexes that will be surrounded by \A and \z.
# subroutine_exemptions = AUTOLOAD BUILD BUILDARGS CLEAR CLOSE DELETE DEMOLISH DESTROY EXISTS EXTEND FETCH FETCHSIZE FIRSTKEY GETC NEXTKEY POP PRINT PRINTF PUSH READ READLINE SCALAR SHIFT SPLICE STORE STORESIZE TIEARRAY TIEHANDLE TIEHASH TIESCALAR UNSHIFT UNTIE WRITE

# How local lexical variables names should be capitalized.  Valid values are :single_case, :all_lower, :all_upper, :starts_with_lower, :starts_with_upper, :no_restriction, or a regex.
# local_lexical_variables = :single_case

# Local lexical variable names that are exempt from capitalization rules.  The values here are regexes that will be surrounded by \A and \z.
# local_lexical_variable_exemptions = 

# How lexical variables that are scoped to a subset of subroutines, should be capitalized.  Valid values are :single_case, :all_lower, :all_upper, :starts_with_lower, :starts_with_upper, :no_restriction, or a regex.
# scoped_lexical_variables = :single_case

# Names for variables in anonymous blocks that are exempt from capitalization rules.  The values here are regexes that will be surrounded by \A and \z.
# scoped_lexical_variable_exemptions = 

# How lexical variables at the file level should be capitalized.  Valid values are :single_case, :all_lower, :all_upper, :starts_with_lower, :starts_with_upper, :no_restriction, or a regex.
# file_lexical_variables = :single_case

# File-scope lexical variable names that are exempt from capitalization rules.  The values here are regexes that will be surrounded by \A and \z.
# file_lexical_variable_exemptions = 

# How global (package) variables should be capitalized.  Valid values are :single_case, :all_lower, :all_upper, :starts_with_lower, :starts_with_upper, :no_restriction, or a regex.
# global_variables = :single_case

# Global variable names that are exempt from capitalization rules.  The values here are regexes that will be surrounded by \A and \z.
# global_variable_exemptions = \$VERSION @ISA @EXPORT(?:_OK)? %EXPORT_TAGS \$AUTOLOAD %ENV %SIG \$TODO

# How constant names should be capitalized.  Valid values are :single_case, :all_lower, :all_upper, :starts_with_lower, :starts_with_upper, :no_restriction, or a regex.
# constants = :all_upper

# Constant names that are exempt from capitalization rules.  The values here are regexes that will be surrounded by \A and \z.
# constant_exemptions = 

# How labels should be capitalized.  Valid values are :single_case, :all_lower, :all_upper, :starts_with_lower, :starts_with_upper, :no_restriction, or a regex.
# labels = :all_upper

# Labels that are exempt from capitalization rules.  The values here are regexes that will be surrounded by \A and \z.
# label_exemptions = 


# Don't use vague variable or subroutine names like 'last' or 'record'.
[NamingConventions::ProhibitAmbiguousNames]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The variable names that are not to be allowed.
# forbid = abstract bases close contract last left no record right second set


# Prohibit indirect object call syntax.
[Objects::ProhibitIndirectSyntax]
# set_themes                         = certrule core maintenance pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit

# Indirect method syntax is forbidden for these methods.
# Values that are always included: new.
# forbid = 


# Write `@{ $array_ref }' instead of `@$array_ref'.
[References::ProhibitDoubleSigils]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Capture variable used outside conditional.
[RegularExpressions::ProhibitCaptureWithoutTest]
# set_themes                         = certrule core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# Names of ways to generate exceptions.
# Values that are always included: confess, croak, die.
# exception_source = 


# Split long regexps into smaller `qr//' chunks.
[RegularExpressions::ProhibitComplexRegexes]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The maximum number of characters to allow in a regular expression.
# Minimum value 1. No maximum.
# max_characters = 60


# Use named character classes instead of explicit character lists.
[RegularExpressions::ProhibitEnumeratedClasses]
# set_themes                         = core cosmetic pbp unicode
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit


# Use character classes for literal meta-characters instead of escapes.
[RegularExpressions::ProhibitEscapedMetacharacters]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit


# Use `eq' or hash instead of fixed-pattern regexps.
[RegularExpressions::ProhibitFixedStringMatches]
# set_themes                         = core pbp performance
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Use `[abc]' instead of `a|b|c'.
[RegularExpressions::ProhibitSingleCharAlternation]
# set_themes                         = core pbp performance
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit


# Only use a capturing group if you plan to use the captured value.
[RegularExpressions::ProhibitUnusedCapture]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Use only `//' or `{}' to delimit regexps.
[RegularExpressions::ProhibitUnusualDelimiters]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit

# In addition to allowing '{}', allow '()', '[]', and '{}'.
# allow_all_brackets = 


# Don't use $_ to match against regexes.
[RegularExpressions::ProhibitUselessTopic]
# set_themes                         = core
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Use `{' and `}' to delimit multi-line regexps.
[RegularExpressions::RequireBracesForMultiline]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit

# In addition to allowing '{}', allow '()', '[]', and '{}'.
# allow_all_brackets = 


# Always use the `/s' modifier with regular expressions.
[RegularExpressions::RequireDotMatchAnything]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Always use the `/x' modifier with regular expressions.
[RegularExpressions::RequireExtendedFormatting]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The number of characters that a regular expression must contain before this policy will complain.
# Minimum value 0. No maximum.
# minimum_regex_length_to_complain_about = 0

# Should regexes that only contain whitespace and word characters be complained about?.
# strict = 0


# Always use the `/m' modifier with regular expressions.
[RegularExpressions::RequireLineBoundaryMatching]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Don't call functions with a leading ampersand sigil.
[Subroutines::ProhibitAmpersandSigils]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Don't declare your own `open' function.
[Subroutines::ProhibitBuiltinHomonyms]
# set_themes                         = bugs certrule core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Minimize complexity by factoring code into smaller subroutines.
[Subroutines::ProhibitExcessComplexity]
# set_themes                         = complexity core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The maximum complexity score allowed.
# Minimum value 1. No maximum.
# max_mccabe = 20


# Return failure with bare `return' instead of `return undef'.
[Subroutines::ProhibitExplicitReturnUndef]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Too many arguments.
[Subroutines::ProhibitManyArgs]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The maximum number of arguments to allow a subroutine to have.
# Minimum value 1. No maximum.
# max_arguments = 5


# `sub never { sub correct {} }'.
[Subroutines::ProhibitNestedSubs]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Behavior of `sort' is not defined if called in scalar context.
[Subroutines::ProhibitReturnSort]
# set_themes                         = bugs certrule core
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Don't write `sub my_function (@@) {}'.
[Subroutines::ProhibitSubroutinePrototypes]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Prevent unused private subroutines.
[Subroutines::ProhibitUnusedPrivateSubroutines]
# set_themes                         = certrec core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# Pattern that determines what a private subroutine is.
# private_name_regex = \b_\w+\b

# Subroutines matching the private name regex to allow under this policy.
# allow = 

# Modules that, if used within a file, will cause the policy to be disabled for this file.
# skip_when_using = 


# Prevent access to private subs in other packages.
[Subroutines::ProtectPrivateSubs]
# set_themes                         = certrule core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# Pattern that determines what a private subroutine is.
# private_name_regex = \b_\w+\b

# Subroutines matching the private name regex to allow under this policy.
# Values that are always included: POSIX::_PC_CHOWN_RESTRICTED, POSIX::_PC_LINK_MAX, POSIX::_PC_MAX_CANON, POSIX::_PC_MAX_INPUT, POSIX::_PC_NAME_MAX, POSIX::_PC_NO_TRUNC, POSIX::_PC_PATH_MAX, POSIX::_PC_PIPE_BUF, POSIX::_PC_VDISABLE, POSIX::_POSIX_ARG_MAX, POSIX::_POSIX_CHILD_MAX, POSIX::_POSIX_CHOWN_RESTRICTED, POSIX::_POSIX_JOB_CONTROL, POSIX::_POSIX_LINK_MAX, POSIX::_POSIX_MAX_CANON, POSIX::_POSIX_MAX_INPUT, POSIX::_POSIX_NAME_MAX, POSIX::_POSIX_NGROUPS_MAX, POSIX::_POSIX_NO_TRUNC, POSIX::_POSIX_OPEN_MAX, POSIX::_POSIX_PATH_MAX, POSIX::_POSIX_PIPE_BUF, POSIX::_POSIX_SAVED_IDS, POSIX::_POSIX_SSIZE_MAX, POSIX::_POSIX_STREAM_MAX, POSIX::_POSIX_TZNAME_MAX, POSIX::_POSIX_VDISABLE, POSIX::_POSIX_VERSION, POSIX::_SC_ARG_MAX, POSIX::_SC_CHILD_MAX, POSIX::_SC_CLK_TCK, POSIX::_SC_JOB_CONTROL, POSIX::_SC_NGROUPS_MAX, POSIX::_SC_OPEN_MAX, POSIX::_SC_PAGESIZE, POSIX::_SC_SAVED_IDS, POSIX::_SC_STREAM_MAX, POSIX::_SC_TZNAME_MAX, POSIX::_SC_VERSION, POSIX::_exit.
# allow = 


# Always unpack `@_' first.
[Subroutines::RequireArgUnpacking]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit

# The number of statements to allow without unpacking.
# Minimum value 0. No maximum.
# short_subroutine_statements = 0

# Should unpacking from array slices and elements be allowed?.
# allow_subscripts = 0

# Allow the usual delegation idiom to these namespaces/subroutines.
# Values that are always included: NEXT::, SUPER::.
# allow_delegation_to = 


# End every path through a subroutine with an explicit `return' statement.
[Subroutines::RequireFinalReturn]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit

# The additional subroutines to treat as terminal.
# Values that are always included: ..., Carp::confess, Carp::croak, confess, croak, die, exec, exit, throw.
# terminal_funcs = 


# Prohibit various flavors of `no strict'.
[TestingAndDebugging::ProhibitNoStrict]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit

# Allow vars, subs, and/or refs.
# allow = 


# Prohibit various flavors of `no warnings'.
[TestingAndDebugging::ProhibitNoWarnings]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit

# Permitted warning categories.
# allow = 

# Allow "no warnings" if it restricts the kinds of warnings that are turned off.
# allow_with_category_restriction = 0


# Don't turn off strict for large blocks of code.
[TestingAndDebugging::ProhibitProlongedStrictureOverride]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit

# The maximum number of statements in a no strict block.
# Minimum value 1. No maximum.
# statements = 3


# Tests should all have labels.
[TestingAndDebugging::RequireTestLabels]
# set_themes                         = core maintenance tests
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The additional modules to require labels for.
# Values that are always included: Test::More.
# modules = 


# Always `use strict'.
[TestingAndDebugging::RequireUseStrict]
# set_themes                         = bugs certrec certrule core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = 1

# The additional modules to treat as equivalent to "strict".
# Values that are always included: Dancer, Dancer2, Mo, Modern::Perl, Mojo::Base, Mojolicious::Lite, Moo, Moo::Role, Moose, Moose::Exporter, Moose::Role, Moose::Util::TypeConstraints, MooseX::NonMoose, MooseX::Role::Parameterized, MooseX::Singleton, Mouse, Mouse::Exporter, Mouse::Role, Mouse::Util::TypeConstraints, strict.
# equivalent_modules = 


# Always `use warnings'.
[TestingAndDebugging::RequireUseWarnings]
# set_themes                         = bugs certrule core pbp
# add_themes                         =
severity                           = 2
# maximum_violations_per_document    = 1

# The additional modules to treat as equivalent to "warnings".
# Values that are always included: Dancer, Dancer2, Mo, Modern::Perl, Mojo::Base, Mojolicious::Lite, Moo, Moo::Role, Moose, Moose::Exporter, Moose::Role, Moose::Util::TypeConstraints, MooseX::NonMoose, MooseX::Role::Parameterized, MooseX::Singleton, Mouse, Mouse::Exporter, Mouse::Role, Mouse::Util::TypeConstraints, warnings.
# equivalent_modules = 


# Don't use the comma operator as a statement separator.
[ValuesAndExpressions::ProhibitCommaSeparatedStatements]
# set_themes                         = bugs certrule core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit

# Allow map and grep blocks to return lists.
# allow_last_statement_to_be_comma_separated_in_map_and_grep = 0


# Prohibit version values from outside the module.
[ValuesAndExpressions::ProhibitComplexVersion]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# Make "use version; our $VERSION = qv('1.2.3');" a violation of this policy.
# forbid_use_version = 0


# Don't `use constant FOO => 15'.
[ValuesAndExpressions::ProhibitConstantPragma]
# set_themes                         = bugs core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Write `q{}' instead of `'''.
[ValuesAndExpressions::ProhibitEmptyQuotes]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Write `"\N{DELETE}"' instead of `"\x7F"', etc.
[ValuesAndExpressions::ProhibitEscapedCharacters]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Use concatenation or HEREDOCs instead of literal line breaks in strings.
[ValuesAndExpressions::ProhibitImplicitNewlines]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Always use single quotes for literal strings.
[ValuesAndExpressions::ProhibitInterpolationOfLiterals]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit

# Kinds of delimiters to permit, e.g. "qq{", "qq(", "qq[", "qq/".
# allow = 

# If the string contains ' characters, allow "" to quote it.
# allow_if_string_contains_single_quote = 0


# Write `oct(755)' instead of `0755'.
[ValuesAndExpressions::ProhibitLeadingZeros]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit

# Don't allow any leading zeros at all.  Otherwise builtins that deal with Unix permissions, e.g. chmod, don't get flagged.
# strict = 0


# Long chains of method calls indicate tightly coupled code.
[ValuesAndExpressions::ProhibitLongChainsOfMethodCalls]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit

# The number of chained calls to allow.
# Minimum value 1. No maximum.
# max_chain_length = 3


# Don't use values that don't explain themselves.
[ValuesAndExpressions::ProhibitMagicNumbers]
# set_themes                         = certrec core maintenance
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = 10

# Individual and ranges of values to allow, and/or "all_integers".
# allowed_values = 0 1 2

# Kind of literals to allow.
# Valid values: Binary, Exp, Float, Hex, Octal.
# allowed_types = Float

# Should anything to the right of a "=>" be allowed?.
# allow_to_the_right_of_a_fat_comma = 1

# Names of subroutines that create constants.
# Values that are always included: Readonly, Readonly::Array, Readonly::Hash, Readonly::Scalar, const.
# constant_creator_subroutines = 


# Don't mix numeric operators with string operands, or vice-versa.
[ValuesAndExpressions::ProhibitMismatchedOperators]
# set_themes                         = bugs certrule core
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Write ` !$foo && $bar || $baz ' instead of ` not $foo && $bar or $baz'.
[ValuesAndExpressions::ProhibitMixedBooleanOperators]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Use `q{}' or `qq{}' instead of quotes for awkward-looking strings.
[ValuesAndExpressions::ProhibitNoisyQuotes]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Don't use quotes (`'', `"', ``') as delimiters for the quote-like operators.
[ValuesAndExpressions::ProhibitQuotesAsQuotelikeOperatorDelimiters]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The operators to allow single-quotes as delimiters for.
# Valid values: m, q, qq, qr, qw, qx, s, tr, y.
# single_quote_allowed_operators = m s qr qx

# The operators to allow double-quotes as delimiters for.
# Valid values: m, q, qq, qr, qw, qx, s, tr, y.
# double_quote_allowed_operators = 

# The operators to allow back-quotes (back-ticks) as delimiters for.
# Valid values: m, q, qq, qr, qw, qx, s, tr, y.
# back_quote_allowed_operators = 


# Don't write ` print <<'__END__' '.
[ValuesAndExpressions::ProhibitSpecialLiteralHeredocTerminator]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Don't use strings like `v1.4' or `1.4.5' when including other modules.
[ValuesAndExpressions::ProhibitVersionStrings]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Require $VERSION to be a constant rather than a computed value.
[ValuesAndExpressions::RequireConstantVersion]
# set_themes                         = core maintenance
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit

# Allow qv() and version->new() without a 'use version' on the same line.
# allow_version_without_use_on_same_line = 0


# Warns that you might have used single quotes when you really wanted double-quotes.
[ValuesAndExpressions::RequireInterpolationOfMetachars]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 1
# maximum_violations_per_document    = no_limit

# RCS keywords to ignore in potential interpolation.
# rcs_keywords = 


# Write ` 141_234_397.0145 ' instead of ` 141234397.0145 '.
[ValuesAndExpressions::RequireNumberSeparators]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit

# The minimum absolute value to require separators in.
# Minimum value 10. No maximum.
# min_value = 10_000


# Write ` print <<'THE_END' ' or ` print <<"THE_END" '.
[ValuesAndExpressions::RequireQuotedHeredocTerminator]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Write ` <<'THE_END'; ' instead of ` <<'theEnd'; '.
[ValuesAndExpressions::RequireUpperCaseHeredocTerminator]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Do not write ` my $foo .= 'bar'; '.
[Variables::ProhibitAugmentedAssignmentInDeclaration]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Do not write ` my $foo = $bar if $baz; '.
[Variables::ProhibitConditionalDeclarations]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Use `my' instead of `local', except when you have to.
[Variables::ProhibitLocalVars]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Avoid `$`', `$&', `$'' and their English equivalents.
[Variables::ProhibitMatchVars]
# set_themes                         = core pbp performance
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit


# Eliminate globals declared with `our' or `use vars'.
[Variables::ProhibitPackageVars]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The base set of packages to allow variables for.
# packages = Data::Dumper File::Find FindBin Log::Log4perl

# The set of packages to allow variables for, in addition to those given in "packages".
# add_packages = 


# Use double colon (::) to separate package name components instead of single quotes (').
[Variables::ProhibitPerl4PackageNames]
# set_themes                         = certrec core maintenance
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit


# Write `$EVAL_ERROR' instead of `$@'.
[Variables::ProhibitPunctuationVars]
# set_themes                         = core cosmetic pbp
# add_themes                         =
# severity                           = 2
# maximum_violations_per_document    = no_limit

# The additional variables to allow.
# Values that are always included: $1, $2, $3, $4, $5, $6, $7, $8, $9, $], $_, @_, _.
# allow = 

# Controls checking interpolated strings for punctuation variables.
# Valid values: disable, simple, thorough.
# string_mode = thorough


# Do not reuse a variable name in a lexical scope
[Variables::ProhibitReusedNames]
# set_themes                         = bugs core
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit

# The variables to not consider as duplicates.
# allow = $self $class


# Don't ask for storage you don't need.
[Variables::ProhibitUnusedVariables]
# set_themes                         = certrec core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Prevent access to private vars in other packages.
[Variables::ProtectPrivateVars]
# set_themes                         = certrule core maintenance
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Write `local $foo = $bar;' instead of just `local $foo;'.
[Variables::RequireInitializationForLocalVars]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 3
# maximum_violations_per_document    = no_limit


# Write `for my $element (@list) {...}' instead of `for $element (@list) {...}'.
[Variables::RequireLexicalLoopIterators]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 5
# maximum_violations_per_document    = no_limit


# Magic variables should be assigned as "local".
[Variables::RequireLocalizedPunctuationVars]
# set_themes                         = bugs certrec core pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit

# Global variables to exclude from this policy.
# Values that are always included: $ARG, $_, @_.
# allow = 


# Negative array index should be used.
[Variables::RequireNegativeIndices]
# set_themes                         = core maintenance pbp
# add_themes                         =
# severity                           = 4
# maximum_violations_per_document    = no_limit

my setting ( .perltidyrc ) of source code formatter for perl ( Perltidy )

Standard

http://perltidy.sourceforge.net/stylekey.html
http://search.cpan.org/perldoc?perltidy
If you search for “dotfile perltidy” , you can find other sample settings.

# http://perltidy.sourceforge.net/stylekey.html
# http://search.cpan.org/perldoc?perltidy

-l=78   # Max line width is 78 cols
-i=4    # Indent level is 4 cols
-ci=4   # Continuation indent is 4 cols
-st     # Output to STDOUT
-se     # Errors to STDERR
-vt=2   # Maximal vertical tightness
-cti=0  # No extra indentation for closing brackets
-pt=1   # Medium parenthesis tightness
-bt=1   # Medium brace tightness
-sbt=1  # Medium square brace tightness
-bbt=1  # Medium block brace tightness
-nsfs   # No space before semicolons
-nolq   # Don't outdent long quoted strings
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
        # Break before all operators

#### end0tknr add below

-bar	# Opening Braces Right
-ce     # Cuddled Else

making temporary file by File::Temp for perl

Standard

http://search.cpan.org/perldoc?File%3A%3ATemp

use strict;
use utf8;
use Date::Calc qw/Today_and_Now/;
use File::Temp qw/tempfile/;


my $now_str = sprintf("FILE_HEAD_%04d%02d%02d_%02d%02d%02d",Today_and_Now());

my ($fh, $filename) = tempfile($now_str ."_XXXXXXXXXX",TMPDIR=>1);

File::Temp::tempfile() convert
from “/tmp/FILE_HEAD_20150408_124408_XXXXXXXXXX”
to “/tmp/FILE_HEAD_20150408_124408_HfsJ7MjaZF”.

“HfsJ7MjaZF” is a random string.

Python-2.7.9 make error in cent6.6 ( 64bit ) by invalid compiled bzip2

Standard

I had a error “No module named bz2” , when compiling node-js.

$ cd node-v0.12.2
$ ./configure
    :
$ make
    :
Traceback (most recent call last):
  File "../../tools/js2c.py", line 37, in <module>
    import bz2
ImportError: No module named bz2
make[1]: *** [/home/endo/tmp/node-v0.12.2/out/Release/obj/gen/libraries.cc] Error 1
make[1]: Leaving directory `/home/endo/tmp/node-v0.12.2/out'
make: *** [node] Error 2
$ 

So I re-compiled python 2.7.9 , but I had similar error “recompile with -fPIC”.

$ cd Python-2.7.9
$ ./configure
$ make
   :
running build
running build_ext
building dbm using gdbm
INFO: Can't locate Tcl/Tk libs and/or headers
building 'bz2' extension
gcc -pthread -fPIC -fno-strict-aliasing -g -O2 -DNDEBUG -g -fwrapv -O3 -Wall -Wstrict-prototypes -I. -IInclude -I./Include -I/usr/local/include -I/home/endo/tmp/Python-2.7.9/Include -I/home/endo/tmp/Python-2.7.9 -c /home/endo/tmp/Python-2.7.9/Modules/bz2module.c -o build/temp.linux-x86_64-2.7/home/endo/tmp/Python-2.7.9/Modules/bz2module.o
gcc -pthread -shared build/temp.linux-x86_64-2.7/home/endo/tmp/Python-2.7.9/Modules/bz2module.o -L/usr/local/lib -lbz2 -o build/lib.linux-x86_64-2.7/bz2.so
/usr/bin/ld: /usr/local/lib/libbz2.a(bzlib.o): relocation R_X86_64_32S against `.text' can not be used when making a shared object; recompile with -fPIC
/usr/local/lib/libbz2.a: could not read symbols: Bad value
collect2: ld returned 1 exit status

Python build finished, but the necessary bits to build these modules were not found:
_tkinter           bsddb185           dl              
imageop            readline           sunaudiodev     
To find the necessary bits, look in setup.py in detect_modules() for the module's name.
Failed to build these modules:
bz2                                                   
running build_scripts
$ 

Finally re-compile bzip2 by “CC=gcc -fPIC”

$ tar -zxvf bzip2-1.0.6.tar.gz
$ cd bzip2-1.0.6
$ vi Makefile
  old) CC=gcc
  new) CC=gcc -fPIC
$ vi Makefile-libbz2_so
  old) CC=gcc
  new) CC=gcc -fPIC
$ make
$ make -f Makefile-libbz2_so
$ su
# make install

solved !!

make check error in Subversion – sqlite3 module required for Python

Standard

“Python sqlite3 module required” error in subversion’s make check

$ tar -zxvf subversion-1.8.13.tar.gz
$ cd subversion-1.8.13
$ ./configure --prefix=/usr/local/svn \
            --with-apxs=/home/endo/local/apache80/bin/apxs \
            --with-apr=/usr/local/apr \
            --with-apr-util=/usr/local/apr-util \
            --with-sqlite=/usr/local/sqlite \
            --with-openssl
$ make
$ make check
  :
[43/96] authz_tests.py[SKIPPED] Python sqlite3 module required
Don't know what to do about authz_tests.py
make: *** [check] Error 1

sqlite3 module is available in python 2.5 or later.

http://pymotw.com/2/sqlite3/
But I had a similar message at making python v.2.7.9.

$ wget https://www.python.org/ftp/python/2.7.9/Python-2.7.9.tgz
$ tar -zxvf Python-2.7.9.tgz
$ cd Python-2.7.9
$ ./configure --with-thread
$ make
   :
Python build finished, but the necessary bits to build these modules were not found:
_sqlite3           _tkinter           bsddb185        
dl                 imageop            readline        
sunaudiodev                                           
To find the necessary bits, look in setup.py in detect_modules() for the module's name.

Failed to build these modules:
bz2
  :
$

yum install sqlite sqlite-devel

I already had installed sqlite v.3.8.8.3 to /usr/local/sqlite.
But Icouldn’t find configure option for sqlite in “Python-2.7.9/configure –help”.
So I yum-installed sqlite sqlite-devel.

# yum install sqlite
# yum install sqlite-devel

As a result, the problem has been resolved.

HttpClient for java ≒ LWP::UserAgent for perl

Standard

“LWP::UserAgent for perl” and “HttpClient for java” can be used to dispatch web requests.
https://hc.apache.org/httpcomponents-client-ga/
http://search.cpan.org/dist/libwww-perl/

Here is sample source code of HttpClient for java .

package jp.end0tknr;

import java.io.IOException;
import java.net.URISyntaxException;

import org.apache.http.Header;
import org.apache.http.ParseException;
//HttpClient version 4.4
import org.apache.http.client.ClientProtocolException; 
import org.apache.http.client.config.RequestConfig;
import org.apache.http.client.methods.CloseableHttpResponse;
import org.apache.http.client.methods.HttpGet;
import org.apache.http.client.utils.URIBuilder;
import org.apache.http.impl.client.CloseableHttpClient;
import org.apache.http.impl.client.HttpClients;
import org.apache.http.util.EntityUtils;

public class HttpRequest {

    public static void main(String[] args) {
        CloseableHttpClient httpClient = HttpClients.createDefault();

        RequestConfig reqConfig = RequestConfig.custom()
                .setConnectTimeout(1000) //msec 
                .setSocketTimeout(1000)  //msec
                .build();
        
        URIBuilder uriBuilder = new URIBuilder()
        .setScheme("https").setHost("www.google.com")
        .setPath("/search")
        .setParameter("q", "httpclient")
        .setParameter("btnG", "Google Search")
        .setParameter("aq", "f");
        
        HttpGet httpGet;
        try {
            httpGet = new HttpGet(uriBuilder.build());
            httpGet.setConfig(reqConfig);
        } catch (URISyntaxException e) {
            e.printStackTrace();
            return;
        }
        
        CloseableHttpResponse response;
        try {
            response = httpClient.execute(httpGet);
        } catch (ClientProtocolException e ) {
            e.printStackTrace();
            return;
        } catch (IOException e) {
            e.printStackTrace();
            return;
        }
        
        System.out.println("HTTP RES CODE:"+response.getStatusLine());

        System.out.println("\nHTTP RES HEADER:");
        for(Header header : response.getAllHeaders() ){
            System.out.println(header.getName() + header.getValue());
        }

        if(response.getEntity() == null){
            return;
        }
        
        System.out.println("\nHTTP RES CONTENTS:");
        try {
            System.out.println(EntityUtils.toString(response.getEntity()));
        } catch (ParseException | IOException e) {
            e.printStackTrace();
            return;
        }
        
    }
}