use Plack::Util::Accessor qw/style any_content_type even_if_styled use_link_header/;
our $VERSION = '0.001';
-our $DEFAULT_STYLE = <<EOF =~ y/\n\t //rd;
+our $DEFAULT_STYLE = <<'EOF' =~ y/\n\t //rd;
<style>
body {
margin:40px auto;
my $content_type =
Plack::Util::header_get($hdrs, 'Content-Type');
return '' unless $content_type;
- $content_type =~ m,text/html,i;
+ $content_type =~ m,text/html,is;
}
-sub call {
+sub call { ## no critic (Complexity)
my ($self, $env) = @_;
if ($self->use_link_header) {
my $req = Plack::Request->new($env);
if (lc $req->path eq lc $self->use_link_header) {
- my $days30 = 30 * 86400;
+ my $days30 = 30 * 86_400;
my @hdrs = (
'Content-Length' => length $self->style,
'Content-Type' => 'text/css',
$doctype_end //= $offset_end if $tagname eq 'doctype';
$styled = 1 if $tagname eq 'style';
$styled = 1 if $tagname eq 'link'
- && ($attr->{rel} // '') =~ /stylesheet/i;
+ && ($attr->{rel} // '') =~ /stylesheet/is;
};
my $p = HTML::Parser->new(api_version => 3);
--- /dev/null
+severity = 1
+
+[-BuiltinFunctions::ProhibitComplexMappings]
+[-CodeLayout::RequireTidyCode]
+[-ControlStructures::ProhibitPostfixControls]
+[-ControlStructures::ProhibitUnlessBlocks]
+[-Documentation::PodSpelling]
+[-Documentation::RequirePodLinksIncludeText]
+[-InputOutput::RequireBracedFileHandleWithPrint]
+[-InputOutput::RequireCheckedClose]
+[-InputOutput::RequireCheckedSyscalls]
+[-Modules::ProhibitAutomaticExportation]
+[-References::ProhibitDoubleSigils]
+[-RegularExpressions::ProhibitEnumeratedClasses]
+[-RegularExpressions::ProhibitUnusualDelimiters]
+[-RegularExpressions::RequireBracesForMultiline]
+[-RegularExpressions::RequireLineBoundaryMatching]
+[-Subroutines::RequireFinalReturn]
+[-ValuesAndExpressions::ProhibitConstantPragma]
+[-ValuesAndExpressions::ProhibitEmptyQuotes]
+[-ValuesAndExpressions::ProhibitLeadingZeros]
+[-ValuesAndExpressions::ProhibitMagicNumbers]
+[-ValuesAndExpressions::ProhibitNoisyQuotes]
+[-Variables::ProhibitLocalVars]
+[-Variables::ProhibitPackageVars]
+[-Variables::ProhibitPunctuationVars]
+
+[BuiltinFunctions::ProhibitStringyEval]
+allow_includes = 1
+
+[RegularExpressions::RequireExtendedFormatting]
+minimum_regex_length_to_complain_about = 20
+
+[Documentation::RequirePodSections]
+lib_sections = NAME | SYNOPSIS | DESCRIPTION | AUTHOR | COPYRIGHT AND LICENSE
+script_sections = NAME | SYNOPSIS | DESCRIPTION | AUTHOR | COPYRIGHT AND LICENSE
+
+[Subroutines::RequireArgUnpacking]
+short_subroutine_statements = 5
+allow_subscripts = 1
+
+[TestingAndDebugging::ProhibitNoWarnings]
+allow_with_category_restriction = 1