## name Suspicious but OK
## failures 0
## cut

my $data = 'foo';
print $1;
sub utf8 { return; }

#-----------------------------------------------------------------------------

## name No Plan
## failures 3
## cut

my $data3 = 'bar';
my @obj4 = qw( Moe Larry Curly );
my %user5 = ();

#-----------------------------------------------------------------------------

## name Default Exceptions
## failures 0
## cut

my $md5;
my $x11;
my $UTF8;

#-----------------------------------------------------------------------------

## name Overriding Exceptions
## failures 0
## parms { exceptions => 'logan7' }
## cut

my $logan7;

#-----------------------------------------------------------------------------

## name Overriding Exceptions Removes Defaults
## failures 3
## parms { exceptions => 'logan7' }
## cut

my $md5;
my $x11;
my $UTF8;
my $logan7;

#-----------------------------------------------------------------------------

## name partial exception
## failures 0
## cut

  my $generated_md5;

#-----------------------------------------------------------------------------

## name partial exceptions require underscores as separators
## failures 1
## cut

  my $mymd5;

#-----------------------------------------------------------------------------

## name Underscores can confuse the partial matching.  See GitHub issue #6.
## failures 0
## parms { exceptions => 'av_format1 av_format2 mp3' }
## cut

  my ($av_format1,$av_format2, $mp3) = fetch_formats();

  my $this_av_format1 = 'this should pass';

#-----------------------------------------------------------------------------

## name Only check variables we create.  RT #20854
## failures 0
## cut

  my $foo = $bad_var2;

#-----------------------------------------------------------------------------

## name Don't complain about $1, $2, etc
## failures 0
## cut

  my $foo = $1;

#-----------------------------------------------------------------------------

## name Check for poorly named subs, too
## failures 1
## cut

  sub flooble {}
  sub process2 {}
  sub bongo {}

#-----------------------------------------------------------------------------

## name Only check for poorly named subs that we create.  Ignore BEGIN etc.
## failures 0
## cut

  my $foo = process2();

  BEGIN {
      my $x = 4;
  }

#-----------------------------------------------------------------------------
# ex: set ft=perl: