From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

ELLIOTJS / Perl-Critic-1.101_002 / t / Subroutines / ProtectPrivateSubs.run 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168

              
## name basic failure
## failures 5
## cut
Other::Package::_foo();
Other::Package->_bar();
Other::Package::_foo;
Other::Package->_bar;
$self->Other::Package::_baz();
#-----------------------------------------------------------------------------
## name basic passes
## failures 0
## cut
package My::Self::_private;
use My::Self::_private;
require My::Self::_private;
#-----------------------------------------------------------------------------
## name Class methods invoked via __PACKAGE__ are always OK.
## failures 0
## cut
__PACKAGE__->_private();
#-----------------------------------------------------------------------------
## name "shift" followed by private method call
## failures 0
## cut
# See http://rt.cpan.org/Ticket/Display.html?id=34713
# Also, see the test case below for a counter example.
shift->_private_sub();
shift->_private_sub;
#-----------------------------------------------------------------------------
## name other builtin-function followed by private method call
## failures 2
## cut
# See http://rt.cpan.org/Ticket/Display.html?id=34713
pop->_private_sub();
pop->_private_sub;
#-----------------------------------------------------------------------------
## name Difficult-to-detect pass
## failures 0
## cut
# This one should be illegal, but it is too hard to distinguish from
# the next one, which is legal
$pkg->_foo();
$self->_bar();
$self->SUPER::_foo();
#-----------------------------------------------------------------------------
## name Exceptions from the POSIX module.
## failures 0
## cut
POSIX::_PC_CHOWN_RESTRICTED();
POSIX::_PC_LINK_MAX();
POSIX::_PC_MAX_CANON();
POSIX::_PC_MAX_INPUT();
POSIX::_PC_NAME_MAX();
POSIX::_PC_NO_TRUNC();
POSIX::_PC_PATH_MAX();
POSIX::_PC_PIPE_BUF();
POSIX::_PC_VDISABLE();
POSIX::_POSIX_ARG_MAX();
POSIX::_POSIX_CHILD_MAX();
POSIX::_POSIX_CHOWN_RESTRICTED();
POSIX::_POSIX_JOB_CONTROL();
POSIX::_POSIX_LINK_MAX();
POSIX::_POSIX_MAX_CANON();
POSIX::_POSIX_MAX_INPUT();
POSIX::_POSIX_NAME_MAX();
POSIX::_POSIX_NGROUPS_MAX();
POSIX::_POSIX_NO_TRUNC();
POSIX::_POSIX_OPEN_MAX();
POSIX::_POSIX_PATH_MAX();
POSIX::_POSIX_PIPE_BUF();
POSIX::_POSIX_SAVED_IDS();
POSIX::_POSIX_SSIZE_MAX();
POSIX::_POSIX_STREAM_MAX();
POSIX::_POSIX_TZNAME_MAX();
POSIX::_POSIX_VDISABLE();
POSIX::_POSIX_VERSION();
POSIX::_SC_ARG_MAX();
POSIX::_SC_CHILD_MAX();
POSIX::_SC_CLK_TCK();
POSIX::_SC_JOB_CONTROL();
POSIX::_SC_NGROUPS_MAX();
POSIX::_SC_OPEN_MAX();
POSIX::_SC_PAGESIZE();
POSIX::_SC_SAVED_IDS();
POSIX::_SC_STREAM_MAX();
POSIX::_SC_TZNAME_MAX();
POSIX::_SC_VERSION();
POSIX::_exit();
#-----------------------------------------------------------------------------
## name User-configured exceptions.
## parms { allow => 'Other::Package::_foo Other::Package::_bar Other::Package::_baz' }
## failures 0
## cut
Other::Package::_foo();
Other::Package->_bar();
Other::Package::_foo;
Other::Package->_bar;
$self->Other::Package::_baz();
#-----------------------------------------------------------------------------
## name private_name_regex passing
## failures 0
## parms { private_name_regex => '_(?!_)\w+' }
## cut
Other::Package::__foo();
Other::Package->__bar();
Other::Package::__foo;
Other::Package->__bar;
$self->Other::Package::__baz();
#-----------------------------------------------------------------------------
## name private_name_regex failure
## failures 5
## parms { private_name_regex => '_(?!_)\w+' }
## cut
Other::Package::_foo();
Other::Package->_bar();
Other::Package::_foo;
Other::Package->_bar;
$self->Other::Package::_baz();
#-----------------------------------------------------------------------------
##############################################################################
#      $URL: http://perlcritic.tigris.org/svn/perlcritic/branches/Perl-Critic-PPI-1.204/t/Subroutines/ProtectPrivateSubs.run $
#     $Date: 2009-03-01 12:21:29 -0600 (Sun, 01 Mar 2009) $
#   $Author: clonezone $
# $Revision: 3194 $
##############################################################################
# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
#   indent-tabs-mode: nil
#   c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :