Login
Remove column numbers from =over POD directives. The POD formatter
[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 Special case: main
58 ## failures 0
59 ## cut
60
61 package main;
62
63 #-----------------------------------------------------------------------------
64
65 ## name Combined passes and fails
66 ## failures 2
67 ## cut
68
69 my($foo, $Bar);
70 our($Bar, $foo);
71
72 #-----------------------------------------------------------------------------
73
74 ## name Variables from other packages should pass 
75 ## failures 0
76 ## cut
77
78 local $Other::Package::Foo;
79 $Other::Package::Foo;
80
81 #-----------------------------------------------------------------------------
82
83 ## name Only cares about declarations
84 ## failures 0
85 ## cut
86 Foo();
87 $Foo = 42;
88
89 #-----------------------------------------------------------------------------
90
91 ## name Constants must be all caps, passes
92 ## failures 0
93 ## cut
94
95 Readonly::Scalar my $CONSTANT = 23;
96
97 #-----------------------------------------------------------------------------
98
99 ## name Constants must be all caps, failures
100 ## TODO Detect whether a scalar is constant or not
101 ## failures 4
102 ## cut
103
104 Readonly::Scalar my $Foo = 23;
105 Readonly::Scalar my $foo = 23;
106 Readonly::Scalar my $fooBAR = 23;
107 my $CONSTANT = 23;
108
109
110 #-----------------------------------------------------------------------------
111 # Local Variables:
112 #   mode: cperl
113 #   cperl-indent-level: 4
114 #   fill-column: 78
115 #   indent-tabs-mode: nil
116 #   c-indentation-style: bsd
117 # End:
118 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :