vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/NamingConventions/ProhibitMixedCaseVars.run

   1 ## name Basic failures, one variable
   2 ## failures 4
   3 ## cut
   4
   5 my $fooBAR;
   6 my ($fooBAR) = 'nuts';
   7 local $FooBar;
   8 our ($FooBAR);
   9
  10 #-----------------------------------------------------------------------------
  11
  12 ## name Failing vars, mixed with some passing ones
  13 ## failures 6
  14 ## cut
  15
  16 my ($foobar, $fooBAR);
  17 my (%foobar, @fooBAR, $foo);
  18 local ($foobar, $fooBAR);
  19 local (%foobar, @fooBAR, $foo);
  20 our ($foobar, $fooBAR);
  21 our (%foobar, @fooBAR, $foo);
  22
  23 #-----------------------------------------------------------------------------
  24
  25 ## name Basic passes
  26 ## failures 0
  27 ## cut
  28
  29 my $foo_BAR;
  30 my $FOO_BAR;
  31 my $foo_bar;
  32 my ($foo_BAR, $BAR_FOO);
  33 my ($foo_BAR, $BAR_FOO) = q(this, that);
  34 our (%FOO_BAR, @BAR_FOO);
  35 local ($FOO_BAR, %BAR_foo) = @_;
  36 my ($foo_bar, $foo);
  37
  38
  39 #-----------------------------------------------------------------------------
  40
  41 ## name Variables from other packages should pass
  42 ## failures 0
  43 ## cut
  44
  45 local $Other::Package::foo_BAR;
  46 $Other::Package::foo_BAR;
  47 local $Other::Package::fooBAR;
  48 $Some::Package::fooBAR;
  49
  50 #-----------------------------------------------------------------------------
  51 # Local Variables:
  52 #   mode: cperl
  53 #   cperl-indent-level: 4
  54 #   fill-column: 78
  55 #   indent-tabs-mode: nil
  56 #   c-indentation-style: bsd
  57 # End:
  58 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :