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

   1 ## name Basic failure
   2 ## failures 6
   3 ## cut
   4
   5 $Other::Package::_foo;
   6 @Other::Package::_bar;
   7 %Other::Package::_baz;
   8 &Other::Package::_quux;
   9 *Other::Package::_xyzzy;
  10 \$Other::Package::_foo;
  11
  12 #-----------------------------------------------------------------------------
  13
  14 ## name Basic passing
  15 ## failures 0
  16 ## cut
  17
  18 $_foo;
  19 @_bar;
  20 %_baz;
  21 &_quux;
  22 \$_foo;
  23 $::_foo;
  24
  25 #-----------------------------------------------------------------------------
  26
  27 ##############################################################################
  28 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Variables/ProtectPrivateVars.run $
  29 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  30 #   $Author: clonezone $
  31 # $Revision: 2187 $
  32 ##############################################################################
  33
  34 # Local Variables:
  35 #   mode: cperl
  36 #   cperl-indent-level: 4
  37 #   fill-column: 78
  38 #   indent-tabs-mode: nil
  39 #   c-indentation-style: bsd
  40 # End:
  41 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :