Help for this page

Select Code to Download


  1. or download this
    package Perl::Critic::Policy::BuiltinFunctions::GrepWithSimpleValue;
    use warnings;
    ...
    }
    
    1;
    
  2. or download this
    #!/usr/bin/env perl
    use warnings;
    ...
    my @ary;
    push @ary, "foo" unless grep { "foo" } @ary;       # bad
    push @ary, "foo" unless grep { $_ eq "foo" } @ary; # good