From 7da4ed1f1f7abfcc07cb7b3a64a0ad8524f90ef8 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sun, 15 May 2016 00:00:07 +0100 Subject: [PATCH] Update perlcriticrc --- lib/Number/Phone/RO.pm | 6 +++--- t/perlcriticrc | 5 +++++ 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lib/Number/Phone/RO.pm b/lib/Number/Phone/RO.pm index adf4e2d..da2c484 100644 --- 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">([^<]*){content} =~ /lnkOperator">([^<]*){content} =~ /lnkOperatorInitial">([^<]*){content} =~ /lnkOperator">([^<]*)_info->{initial_operator} = $initial_operator; $self->_info->{current_operator} = $current_operator; diff --git a/t/perlcriticrc b/t/perlcriticrc index 5815f07..40b151e 100644 --- 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 -- 2.39.2