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

   1 ## name basic failure
   2 ## failures 5
   3 ## cut
   4 Other::Package::_foo();
   5 Other::Package->_bar();
   6 Other::Package::_foo;
   7 Other::Package->_bar;
   8 $self->Other::Package::_baz();
   9
  10 #-----------------------------------------------------------------------------
  11
  12 ## name basic passes
  13 ## failures 0
  14 ## cut
  15 package My::Self::_private;
  16 use My::Self::_private;
  17 require My::Self::_private;
  18
  19 #-----------------------------------------------------------------------------
  20
  21 ## name Difficult-to-detect pass
  22 # This one should be illegal, but it is too hard to distinguish from
  23 # the next one, which is legal
  24 ## failures 0
  25 ## cut
  26 $pkg->_foo();
  27
  28 $self->_bar();
  29 $self->SUPER::_foo();