6 our (%var2, %var3) = 'foo';
7 our (%VAR4, $var5) = ();
10 @Package::list = ('nuts');
11 %Package::hash = ('nuts');
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');
25 #-----------------------------------------------------------------------------
27 ## name Basic passes - our
32 our (%VAR2, %VAR3) = ();
34 our @EXPORT = qw(some symbols);
36 #-----------------------------------------------------------------------------
38 ## name Basic passes - use vars
42 use vars qw($VERSION @EXPORT);
43 use vars ('$VERSION, '@EXPORT');
44 use vars '$VERSION, '@EXPORT';
46 use vars '+foo'; #Illegal, but not a violaton
48 #-----------------------------------------------------------------------------
50 ## name Basic passes - symbols
57 #local $This::that{ 'key' };
58 #local $This::that[ 1 ];
59 #local (@Baz::bar, %Baz::foo);
61 $Package::VERSION = '1.2';
62 %Package::VAR = ('nuts');
63 @Package::EXPORT = ();
70 *foo::glob = $code_ref;
72 #-----------------------------------------------------------------------------
74 ## name Lexicals should pass
83 #-----------------------------------------------------------------------------
85 ## name Default package exceptions
90 print $File::Find::dir;
92 $Data::Dumper::Indent = 1;
94 #-----------------------------------------------------------------------------
96 ## name Add to default exceptions
97 ## parms {add_packages => 'Addl::Package'}
103 print $File::Find::dir;
105 $Addl::Package::bar = 27;
107 $Addl::Other::wango = 9;
108 $Addl::Other::tango = 9;
109 $Addl::Other::bango = 9;
112 #-----------------------------------------------------------------------------
114 ## name Override default package exceptions
115 ## parms {add_packages => 'Incorrect::Override::Package'}
120 print $File::Find::dir;
121 $Override::Defaults::wango = $x;
122 $Override::Defaults::tango = 47;
124 #-----------------------------------------------------------------------------
126 ## name Override default package exceptions, null package
127 ## parms {add_packages => 'Incorrect::Override::Package'}
133 #-----------------------------------------------------------------------------
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 $
140 ##############################################################################
144 # cperl-indent-level: 4
146 # indent-tabs-mode: nil
147 # c-indentation-style: bsd
149 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :