view release on metacpan or search on metacpan
lib/Module/CoreList/List/5.pod view on Meta::CPAN
=item * L<Module::Loaded> (undef)
=item * L<Module::Metadata> (undef)
=item * L<Module::Metadata::corpus::BOMTest::UTF16BE> (undef)
=item * L<Module::Metadata::corpus::BOMTest::UTF16LE> (undef)
=item * L<Module::Metadata::corpus::BOMTest::UTF8> (undef)
=item * L<Module::Pluggable> (undef)
=item * L<Module::Pluggable::Object> (undef)
view release on metacpan or search on metacpan
Fixed RT#38302: Fixed META.yml generation (thanks very much to cpanservice for the help).
=item 0.10, 2010-02-26
Fixed RT#55010: Removed Unicode BOM from Find.pm.
=item 0.11, 2012-05-22
Fixed RT#74251: defined(@array) is deprecated under Perl 5.15.7.
Thanks to Roman F, who contributed the implementation.
view release on metacpan or search on metacpan
lib/Module/Generic/File.pm view on Meta::CPAN
my $io;
my $opened = $io = $self->opened;
my( $enc, $first_row );
if( $opts->{detect_bom} )
{
$self->__message( 6, "Checking for BOM in CSV file." );
if( $opened )
{
$self->close;
}
$self->__message( 6, "Opening the CSV file ${file} in raw mode." );
lib/Module/Generic/File.pm view on Meta::CPAN
}
}
if( !CORE::length( $buffer ) )
{
return( $self->error( "This file ${file} is an empty CSV file with a BOM nonetheless." ) );
}
if( defined( $enc ) )
{
$enc = '' if( $enc eq 'utf-ebcdic' );
lib/Module/Generic/File.pm view on Meta::CPAN
if( CORE::length( $enc // '' ) )
{
# Mark the file handle with the right perl IO layer.
$io->binmode( ":encoding($enc)" );
}
# Default to $opts->{encoding} if it was provided, and we have no encoding found from the BOM.
elsif( CORE::length( $opts->{binmode} // '' ) )
{
$io->binmode( ":encoding($opts->{binmode})" );
}
lib/Module/Generic/File.pm view on Meta::CPAN
# Make sure error_diag() is called in scalar context.
return( $self->error( "Unable to parse CSV header line in file ${file}: ", scalar( $csv->error_diag ) ) );
}
}
# If we detected the BOM, we will have an $opened (i,e, $io) value set.
if( !$opened )
{
$io = $self->open( '<', $opts ) || return( $self->pass_error );
}
elsif( !$self->can_read )
lib/Module/Generic/File.pm view on Meta::CPAN
}
}
return(1);
};
# If we have a initial first raw from our detect BOM operation earlier, then we use that line of data now.
$process->( $first_row ) if( $first_row );
# Read each line of CSV data until the end.
my $row;
# while( my $row = $csv->getline( $io ) )
lib/Module/Generic/File.pm view on Meta::CPAN
=item * C<detect_bom>
Optional. Defaults to true.
If set to a true value, this will check the CSV file for a C<BOM> (Byte-order mark), remove it by seeking past it, and use it to determine the necessary underlying encoding of the file to read the rest of the data. The encoding is then applied to the...
Using the C<BOM> detection, it recognises C<bocu-1>, C<gb-18030>, C<utf-ebcdic>, C<utf-1>, C<utf-8>, C<utf-16be>, C<utf-16le>, C<utf-32be>, C<utf-32le>, C<scsu>
=item * C<expects>
Optional. Determines the expected return format.
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
t/000_report_versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
t/000_report_versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
corpus/BOMTest/UTF8.pm view on Meta::CPAN
package Heart;
our $VERSION = 1;
package BOMTest::UTF8;
our $VERSION = 3;
package CÅ“ur;
view release on metacpan or search on metacpan
inc/YAML/Tiny.pm view on Meta::CPAN
die \"Did not provide a string to load";
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
die \"Stream has a non UTF-8 BOM";
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
lib/Module/ScanDeps.pm view on Meta::CPAN
grep /\bMM_/, _glob_in_inc('ExtUtils', 1);
},
'FFI/Platypus.pm' => 'sub',
'File/Basename.pm' => [qw( re.pm )],
'File/BOM.pm' => [qw( Encode/Unicode.pm )],
'File/HomeDir.pm' => 'sub',
'File/Spec.pm' => sub {
require File::Spec;
map { my $name = $_; $name =~ s!::!/!g; "$name.pm" } @File::Spec::ISA;
},
view release on metacpan or search on metacpan
lib/Module/Starter/CSJEWELL.pm view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
}
},
"develop" : {
"requires" : {
"Pod::Coverage::TrustPod" : "0",
"Test::BOM" : "0",
"Test::More" : "0.88",
"Test::NoTabs" : "0",
"Test::Perl::Critic" : "0",
"Test::Pod" : "1.41",
"Test::Pod::Coverage" : "1.08"
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
}
else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
view release on metacpan or search on metacpan
lib/Mojo/JSON/XS.pm view on Meta::CPAN
# Literal names
our $FALSE = JSON::XS::false;
our $TRUE = JSON::XS::true;
# Byte order marks
my $BOM_RE = qr/
(?:
\357\273\277 # UTF-8
|
\377\376\0\0 # UTF-32LE
|
lib/Mojo/JSON/XS.pm view on Meta::CPAN
return unless $string;
# Cleanup
$self->error(undef);
# Remove BOM
$string =~ s/^$BOM_RE//go;
# Detect and decode unicode
my $encoding = 'UTF-8';
for my $pattern (keys %$UTF_PATTERNS) {
if ($string =~ /^$pattern/) {
view release on metacpan or search on metacpan
t/pki/private/ca.key.pem view on Meta::CPAN
klDv5W3w09yJgSvlRWP/9y6n2lDkOAjRYQfJ1yOm+H3GRtvJTwZ9Wcd7SEYwlDir
M0jv6YM03l5lO6KLObDmk8eQCyuhKy7T6MVygqgG1rw6T18YYctDB5F+7aWjssey
mQoSsKFkWQsjOFNXR4zkERbvl6cJjo6YrxQ06bpKmGZvgVF/UFSF0qhdglQu0RRq
L5f2z97/7Zoq72/SSa+H5BMr1qMhfwQ2BcywfZsPtlwMSMNFp8FrPI5QggN4uBxF
Nyp8YXXt+Xom5zzIGy72zBcafHUbKLJEnt2bWWu9i3vqGXszaZCphZfx6VYLnjS/
E2gbELVbEdMIM4ebWTAaiIGS9gqvHCrkCPnZHfWkBOMyQQAu8OUksE+JejThgX5z
cGAvTpFiKe00FHj/qXhR+OWjutwvYOi5iumigOIcu9jGMOub4hGfg8rkQmGMp/El
eOwCzeHGhtRsgOtMuZvK6/moonJDxXx21AJ9gzsVblUxWuFEiNmTJgu5pBjq6xJL
MkQioHMB8nI5J4fbCbpLWAVKbBdN7WvCMM0Afl6JE++8UuveLaX1DDirlK7DnZ0S
AT7v3wpG1ZmUOgSDgQYuNCx18IvkC791iJ02DW3sFG5GYTb9heRy4+gcTEHmk2dP
pMWM1x6f+VnwlnkHJDxCwLwjVLi26NIhaKZw/faaRTlbdB9GC5+o+Vd3pDXa8xxI
view release on metacpan or search on metacpan
t/certs/server-cert.pem view on Meta::CPAN
AAGjUzBRMB0GA1UdDgQWBBSsRK+WDzEF4HJbVFznrWFaLgxNBzAfBgNVHSMEGDAW
gBSsRK+WDzEF4HJbVFznrWFaLgxNBzAPBgNVHRMBAf8EBTADAQH/MA0GCSqGSIb3
DQEBCwUAA4ICAQBSnv7j3uPuoABIUhH6KVQbQL32hunQKh0A5TgGpYxNSUk8dM2w
cjlwZM/d5uSdia+ksBdNoFjg6GizeXvGZGwH86j9PnCkCF8bUDjANi/FSSkEizCJ
kj4crVv6fW4CJxCtEkxiko2NQb5f5AGrmvAg40jWyirPkEyzw3JVLEWcYJOikw3u
uJ1Pj/NurLx/8f5SBOMn/Ph+/AmE8V7sgLLoesYFDAEENaTNy3Z95FuJA8ibSo/g
KPK1AamCGDzGce1z6Db+r8nFjYFVWsFpSCCl10pWA9Slt0XwGO+pY1ZxTGFRDiic
fhpH31uWyrITT/2VdMrFfRcr8chWhYOh6m1AIOY1FSV1gTykvTwGi4YB7NpVe+3D
DHAmLI+JXPPPDLqeMgWDLvEdq1SaiMUQnnkKLO4KZH1nUeAepJaCZti8FQPHyIIe
YJwwTzvS3EYoneJrrr3Nhdu8qbcR4v1f/AOYQBlC0ZPfnZzdHUtmKWhZXk1qN+0X
aGJlA6vlzvVetH4xGah8ob3lzgxjqSpYw+xcoxT9mCMXpgQ6ge2U565Ss2Wr7zf+
view release on metacpan or search on metacpan
lib/Mojolicious/Command/generate/bootstrap_app.pm view on Meta::CPAN
sP+bBLAASgSwABUEsAAABLAAAASwAAgEsP+bBLAAYQSwAAEEsAAFBLAAAASwAAUEsAAFBLAABQSw
AAAExAAABLAAZAAAAAAAAP/YAE8AOQDIAAABJwBkAAIAAgACAAIAAgACAAIAAAAAAAAAAAAAANgA
AAAAAAQAAAAAAAAAAAAAABcAAAAAAAAAAAAAAAAAAABkAGQAAAAQAAAAZABk/5z/nP+c/5z/nP+c
/5z/nAAEAAD/8v/yAGQAeQAAACoAKgAqACoAZgCkAKQApACkAKQApACkAKQApACkAKQApACkAKQA
pAEwAUgBfAGiAcYBzgH+AjYCmALMAu4DLANMA/QEcgVkBg4GIgZEBuIHTAewB+gIlAkwCWAJlAoK
CkQKiAruC1YLkgvoDEAMsg0eDXgNrA48DmIOjA7eD9oQThCKENYRDhEmEZQSFBJgEtgTFBOMFAoU
YBS4FSQVkBZgFtgXSheEF+YYNhiAGLwZKhmWGfoaSBp6GrQa1BriGxIbLhtMG4QbtBveG/IcDBxY
HKIc7B0wHb4eDB6IHuofRB+eH74f4CAEICggRCBsII4g8CFoIcIiQCLGI3wjrCQSJJAk5CUSJYYl
miWwJewmWCaGJrwm5icMJ2gnyigwKFwosCkuKcwqZirkK14rqCvuLDgsjC22Ld4uXi6KLvIvMjAQ
MK4xIjF4McwyAjKsM1ozijQUNJw0/jVgNbg2EDZWNq43BDdaN6Y37DhAOKQ5CDlIOYY5xDoIOkw6
dDrEOxo7YjvMPC48VjzKPTI9lj3+PjY+qj7cPx4/iD/wQE5AokEQQXZB3kJwQuZDdkPkRCpETkSM
view release on metacpan or search on metacpan
lib/Mojolicious/Plugin/DBViewer/public/js/jquery-1.9.1.js view on Meta::CPAN
core_pnum = /[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,
// Used for splitting on whitespace
core_rnotwhite = /\S+/g,
// Make sure we trim BOM and NBSP (here's looking at you, Safari 5.0 and IE)
rtrim = /^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g,
// A simple way to check for HTML strings
// Prioritize #id over <tag> to avoid XSS via location.hash (#9521)
// Strict HTML recognition (#11290: must start with <)
view release on metacpan or search on metacpan
lib/Mojolicious/Plugin/MySQLViewerLite/public/js/jquery-1.9.1.js view on Meta::CPAN
core_pnum = /[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,
// Used for splitting on whitespace
core_rnotwhite = /\S+/g,
// Make sure we trim BOM and NBSP (here's looking at you, Safari 5.0 and IE)
rtrim = /^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g,
// A simple way to check for HTML strings
// Prioritize #id over <tag> to avoid XSS via location.hash (#9521)
// Strict HTML recognition (#11290: must start with <)
view release on metacpan or search on metacpan
share/public/revealjs/plugin/highlight/highlight.js view on Meta::CPAN
})();
// END CUSTOM REVEAL.JS INTEGRATION
/*! highlight.js v9.11.0 | BSD3 License | git.io/hljslicense */
!function(e){var n="object"==typeof window&&window||"object"==typeof self&&self;"undefined"!=typeof exports?e(exports):n&&(n.hljs=e({}),"function"==typeof define&&define.amd&&define([],function(){return n.hljs}))}(function(e){function n(e){return e.r...
c:[{cN:"comment",b:/\(\*/,e:/\*\)/},e.ASM,e.QSM,e.CNM,{b:/\{/,e:/\}/,i:/:/}]}});hljs.registerLanguage("roboconf",function(a){var e="[a-zA-Z-_][^\\n{]+\\{",n={cN:"attribute",b:/[a-zA-Z-_]+/,e:/\s*:/,eE:!0,starts:{e:";",r:0,c:[{cN:"variable",b:/\.[a-zA...
view release on metacpan or search on metacpan
lib/Mojolicious/Plugin/SQLiteViewerLite/public/js/jquery-1.9.1.js view on Meta::CPAN
core_pnum = /[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,
// Used for splitting on whitespace
core_rnotwhite = /\S+/g,
// Make sure we trim BOM and NBSP (here's looking at you, Safari 5.0 and IE)
rtrim = /^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g,
// A simple way to check for HTML strings
// Prioritize #id over <tag> to avoid XSS via location.hash (#9521)
// Strict HTML recognition (#11290: must start with <)
view release on metacpan or search on metacpan
BmFLAGS|5.009005||Viu
BmPREVIOUS|5.003007||Viu
BmRARE|5.003007||Viu
BmUSEFUL|5.003007||Viu
BOL|5.003007||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
bool|5.003007||Viu
boolSV|5.004000|5.003007|p
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
view release on metacpan or search on metacpan
no_index:
directory:
- inc
- t
requires:
File::BOM: 0
Perl::Critic::Policy::Dynamic::NoIndirect: 0
Perl::Critic::Policy::NamingConventions::ProhibitMixedCaseSubs: 0
Perl::Critic::Policy::ValuesAndExpressions::ProhibitAccessOfPrivateData: 0
Pod::Usage: 0
Template: 0