Update perlcriticrc

diff --git a/lib/Number/Phone/RO.pm b/lib/Number/Phone/RO.pm
index adf4e2d19a7952dc4fa56e82ec18ff99199a4ba5..da2c48483697a9422824fdc9576be22768bdd4c4 100644 (file)
--- a/lib/Number/Phone/RO.pm
+++ b/lib/Number/Phone/RO.pm
@@ -7,7 +7,7 @@ use parent qw/Number::Phone/;
 use utf8;
 use re '/s';
 
-sub AREA_NAMES (); ## no critic (ProhibitSubroutinePrototypes)
+sub AREA_NAMES ();
 
 our $VERSION = '0.002';
 
@@ -87,8 +87,8 @@ sub query_portabilitate {
        $self->_info->{portabilitate_queried} = 1;
        my $req = $ht->get("http://portabilitate.ro/ro-no-0$$self");
        return unless $req->{success};
-       my ($initial_operator) = $req->{content} =~ /lnkOperatorInitial">([^<]*)</;
-       my ($current_operator) = $req->{content} =~ /lnkOperator">([^<]*)</;
+       my ($initial_operator) = $req->{content} =~ /lnkOperatorInitial">([^<]*)</x;
+       my ($current_operator) = $req->{content} =~ /lnkOperator">([^<]*)</x;
        $initial_operator //= $current_operator;
        $self->_info->{initial_operator} = $initial_operator;
        $self->_info->{current_operator} = $current_operator;

diff --git a/t/perlcriticrc b/t/perlcriticrc
index 5815f07263b77da5a0880f61963ab59f48a8c7b4..40b151e9e752b7399ac462bf9ee6afa1f27387b2 100644 (file)
--- a/t/perlcriticrc
+++ b/t/perlcriticrc
@@ -10,6 +10,8 @@ severity = 1
 [-Modules::ProhibitAutomaticExportation]
 [-References::ProhibitDoubleSigils]
 [-RegularExpressions::ProhibitEnumeratedClasses]
+[-RegularExpressions::ProhibitUnusualDelimiters]
+[-RegularExpressions::RequireBracesForMultiline]
 [-RegularExpressions::RequireLineBoundaryMatching]
 [-Subroutines::RequireFinalReturn]
 [-ValuesAndExpressions::ProhibitConstantPragma]
@@ -34,3 +36,6 @@ 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