Login
Fixing errors in POD that were exposed in the last
[gknop/Perl-Critic.git] / t / NamingConventions / Capitalization.run
1 ## name Basic Passes
2 ## failures 0
3 ## cut
4
5 my  $foo;
6 our $bar;
7 my($foo, $bar) = ("BLEH", "BLEH");
8 my @foo;
9 my %bar;
10 sub foo {}
11
12 my  $foo123;
13 my  $foo123bar;
14 sub foo123 {}
15 sub foo123bar {}
16
17 my $fooBar;   # camelCase is ok
18 my $fooBAR;
19 sub fooBar {}
20 sub fooBAR {}
21
22 my  $CONSTANT;
23
24 package This::SomeThing;
25 package This;
26 package This::Thing;
27 package Acme::12345;
28 package YYZ;
29
30 #-----------------------------------------------------------------------------
31
32 ## name Basic Failures
33 ## failures 14
34 ## cut
35
36 my  $Foo;
37 our $Bar;
38 my  @Foo;
39 my  %Bar;
40 sub Foo {}
41
42 my  $foo_Bar;
43 sub foo_Bar {}
44
45 my  $FooBar;
46 sub FooBar {}
47
48 my  $foo123Bar;
49 sub foo123Bar {}
50
51 package pragma;
52 package Foo::baz;
53 package baz::FooBar;
54
55 #-----------------------------------------------------------------------------
56
57 ## name Combined passes and fails
58 ## failures 2
59 ## cut
60
61 my($foo, $Bar);
62 our($Bar, $foo);
63
64 #-----------------------------------------------------------------------------
65
66 ## name Variables from other packages should pass 
67 ## failures 0
68 ## cut
69
70 local $Other::Package::Foo;
71 $Other::Package::Foo;
72
73 #-----------------------------------------------------------------------------
74
75 ## name Only cares about declarations
76 ## failures 0
77 ## cut
78 Foo();
79 $Foo = 42;
80
81 #-----------------------------------------------------------------------------
82
83 ## name Constants must be all caps, passes
84 ## failures 0
85 ## cut
86
87 Readonly::Scalar my $CONSTANT = 23;
88
89 #-----------------------------------------------------------------------------
90
91 ## name Constants must be all caps, failures
92 ## TODO Detect whether a scalar is constant or not
93 ## failures 4
94 ## cut
95
96 Readonly::Scalar my $Foo = 23;
97 Readonly::Scalar my $foo = 23;
98 Readonly::Scalar my $fooBAR = 23;
99 my $CONSTANT = 23;
100
101
102 #-----------------------------------------------------------------------------
103 # Local Variables:
104 #   mode: cperl
105 #   cperl-indent-level: 4
106 #   fill-column: 78
107 #   indent-tabs-mode: nil
108 #   c-indentation-style: bsd
109 # End:
110 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :