use
5.010001;
our
$VERSION
=
'1.152'
;
Readonly::Scalar
my
$EXPL
=>
q{"use English" without the '-no_match_vars' argument degrades performance.'}
;
Readonly::Scalar
my
$DESC
=>
q{"use English" without '-no_match_vars' argument}
;
sub
supported_parameters {
return
() }
sub
default_severity {
return
$SEVERITY_LOW
}
sub
default_themes {
return
qw( core performance )
}
sub
applies_to {
return
'PPI::Statement::Include'
}
sub
violates {
my
(
$self
,
$elem
,
$doc
) =
@_
;
return
if
$elem
->type() ne
'use'
;
return
if
$elem
->module() ne
'English'
;
my
@elements
=
$elem
->schildren();
shift
@elements
;
shift
@elements
;
if
(not
@elements
) {
return
$self
->violation(
$DESC
,
$EXPL
,
$elem
);
}
_skip_version_number( \
@elements
);
@elements
= _descend_into_parenthesized_list_if_present(
@elements
);
if
(not
@elements
) {
return
$self
->violation(
$DESC
,
$EXPL
,
$elem
);
}
my
$current_element
=
$elements
[0];
while
(
$current_element
) {
if
(
$current_element
->isa(
'PPI::Token::Quote'
) ) {
return
if
$current_element
->string() eq
'-no_match_vars'
;
}
elsif
(
$current_element
->isa(
'PPI::Token::QuoteLike::Words'
) ) {
return
if
$current_element
->content() =~ m/-no_match_vars \b/xms;
}
elsif
(
not
$current_element
->isa(
'PPI::Token::Operator'
)
or
$current_element
->content() ne
$COMMA
and
$current_element
->content() ne
$FATCOMMA
) {
return
$self
->violation(
$DESC
,
$EXPL
,
$elem
);
}
shift
@elements
;
$current_element
=
$elements
[0];
}
return
$self
->violation(
$DESC
,
$EXPL
,
$elem
);
}
sub
_skip_version_number {
my
(
$elements_ref
) =
@_
;
my
$current_element
=
$elements_ref
->[0];
if
(
$current_element
->isa(
'PPI::Token::Number'
) ) {
shift
@{
$elements_ref
};
}
elsif
(
@{
$elements_ref
} >= 2
and
$current_element
->isa(
'PPI::Token::Word'
)
and
$current_element
->content() =~ m/\A v \d+ \z/xms
and
$elements_ref
->[1]->isa(
'PPI::Token::Number'
)
) {
shift
@{
$elements_ref
};
shift
@{
$elements_ref
};
}
return
;
}
sub
_descend_into_parenthesized_list_if_present {
my
@elements
=
@_
;
return
if
not
@elements
;
my
$current_element
=
$elements
[0];
if
(
$current_element
->isa(
'PPI::Structure::List'
) ) {
my
@grand_children
=
$current_element
->schildren();
if
(not
@grand_children
) {
return
;
}
my
$grand_child
=
$grand_children
[0];
if
(
$grand_child
->isa(
'PPI::Statement::Expression'
) ) {
my
@great_grand_children
=
$grand_child
->schildren();
if
(not
@great_grand_children
) {
return
;
}
return
@great_grand_children
;
}
else
{
return
@grand_children
;
}
}
return
@elements
;
}
1;