Page History

...

This noncompliant code example contains a variable $new_name that is initialized , but never subsequently read.

Code Block

bgColor	#ffcccc
lang	perl


sub fix_name {
  my $name = shift;
  my $new_name = $name;

  $name =~ s/^([a-z])/\U$1\E/g;
  $name =~ s/ ([a-z])/ \U$1\E/g;
  return $name;
}

...

Code Block

bgColor	#ccccff
lang	perl


sub fix_name {
  my $name = shift;

  $name =~ s/^([a-z])/\U$1\E/g;
  $name =~ s/ ([a-z])/ \U$1\E/g;
  return $name;
}

...

Recommendation	Severity	Likelihood	Remediation Cost	Priority	Level
MSC01-PL	low Low	unlikely Unlikely	high High	P1 L1	L3

Automated Detection

Tool	Diagnostic
Perl::Critic	Variables::ProhibitUnusedVariables

SEI CERT C

...

Coding Standard

...

	MSC13-C. Detect and remove unused values
SEI CERT C++

...

...

Tool	Diagnostic
Perl::Critic	Variables::ProhibitUnusedVariables

...

[

...

CPAN

...

]	Elliot Shank,

...

Perl-Critic-1.116

...

Variables::ProhibitUnusedVariables

...

Image Added Image Added |http://search.cpan.org/dist/Perl-Critic/lib/Perl/Critic/Policy/Variables/ProhibitUnusedVariables.pm]EXP30-PL. Do not use deprecated or obsolete functions 02. Expressions Image Modified