git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/Variables/ProhibitPackageVars.run

   1 ## name Basic failures
   2 ## failures 15
   3 ## cut
   4
   5 our $var1 = 'foo';
   6 our (%var2, %var3) = 'foo';
   7 our (%VAR4, $var5) = ();
   8
   9 $Package::foo;
  10 @Package::list = ('nuts');
  11 %Package::hash = ('nuts');
  12
  13 $::foo = $bar;
  14 @::foo = ($bar);
  15 %::foo = ();
  16
  17 use vars qw($fooBar $baz);
  18 use vars qw($fooBar @EXPORT);
  19 use vars '$fooBar', "$baz";
  20 use vars '$fooBar', '@EXPORT';
  21 use vars ('$fooBar', '$baz');
  22 use vars ('$fooBar', '@EXPORT');
  23
  24
  25 #-----------------------------------------------------------------------------
  26
  27 ## name Basic passes - our
  28 ## failures 0
  29 ## cut
  30
  31 our $VAR1 = 'foo';
  32 our (%VAR2, %VAR3) = ();
  33 our $VERSION = '1.0';
  34 our @EXPORT = qw(some symbols);
  35
  36 #-----------------------------------------------------------------------------
  37
  38 ## name Basic passes - use vars
  39 ## failures 0
  40 ## cut
  41
  42 use vars qw($VERSION @EXPORT);
  43 use vars ('$VERSION, '@EXPORT');
  44 use vars  '$VERSION, '@EXPORT';
  45
  46 use vars  '+foo'; #Illegal, but not a violaton
  47
  48 #-----------------------------------------------------------------------------
  49
  50 ## name Basic passes - symbols
  51 ## failures 0
  52 ## cut
  53
  54 #local $Foo::bar;
  55 #local @This::that;
  56 #local %This::that;
  57 #local $This::that{ 'key' };
  58 #local $This::that[ 1 ];
  59 #local (@Baz::bar, %Baz::foo);
  60
  61 $Package::VERSION = '1.2';
  62 %Package::VAR = ('nuts');
  63 @Package::EXPORT = ();
  64
  65 $::VERSION = '1.2';
  66 %::VAR = ('nuts');
  67 @::EXPORT = ();
  68 &Package::my_sub();
  69 &::my_sub();
  70 *foo::glob = $code_ref;
  71
  72 #-----------------------------------------------------------------------------
  73
  74 ## name Lexicals should pass
  75 ## failures 0
  76 ## cut
  77
  78 my $var1 = 'foo';
  79 my %var2 = 'foo';
  80 my ($foo, $bar) = ();
  81
  82
  83 #-----------------------------------------------------------------------------
  84
  85 ## name Default package exceptions
  86 ## failures 0
  87 ## cut
  88
  89 use File::Find;
  90 print $File::Find::dir;
  91 use Data::Dumper;
  92 $Data::Dumper::Indent = 1;
  93
  94 #-----------------------------------------------------------------------------
  95
  96 ## name Add to default exceptions
  97 ## parms {add_packages => 'Addl::Package'}
  98 ## failures 3
  99 ## cut
 100
 101
 102 use File::Find;
 103 print $File::Find::dir;
 104
 105 $Addl::Package::bar = 27;
 106
 107 $Addl::Other::wango = 9;
 108 $Addl::Other::tango = 9;
 109 $Addl::Other::bango = 9;
 110
 111
 112 #-----------------------------------------------------------------------------
 113
 114 ## name Override default package exceptions
 115 ## parms {add_packages => 'Incorrect::Override::Package'}
 116 ## failures 2
 117 ## cut
 118
 119 use File::Find;
 120 print $File::Find::dir;
 121 $Override::Defaults::wango = $x;
 122 $Override::Defaults::tango = 47;
 123
 124 #-----------------------------------------------------------------------------
 125
 126 ## name Override default package exceptions, null package
 127 ## parms {add_packages => 'Incorrect::Override::Package'}
 128 ## failures 1
 129 ## cut
 130
 131 $::foo = 1;
 132
 133 #-----------------------------------------------------------------------------
 134
 135 ##############################################################################
 136 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Variables/ProhibitPackageVars.run $
 137 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
 138 #   $Author: clonezone $
 139 # $Revision: 2187 $
 140 ##############################################################################
 141
 142 # Local Variables:
 143 #   mode: cperl
 144 #   cperl-indent-level: 4
 145 #   fill-column: 78
 146 #   indent-tabs-mode: nil
 147 #   c-indentation-style: bsd
 148 # End:
 149 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :