Login
10e79cc464f601ec660e6ab5f383a571c61b59ed
[gknop/Perl-Critic.git] / 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();