Login
Test Const::Fast support in NamingConventions::Capitalization.
authorElliot Shank <perl@galumph.com>
Sat, 13 Nov 2010 20:36:40 +0000 (20:36 +0000)
committerElliot Shank <perl@galumph.com>
Sat, 13 Nov 2010 20:36:40 +0000 (20:36 +0000)
t/NamingConventions/Capitalization.run.PL

index b5f1ca6..734a9f6 100644 (file)
@@ -144,6 +144,7 @@ $Foo = 42;
 ## cut
 
 Readonly::Scalar my $CONSTANT = 23;
+const my $CONSTANT = 23;
 use constant FOO => 42;
 use constant { BAR => 3, BAZ => 7 };
 use constant 1.16 FOO => 42;
@@ -157,7 +158,7 @@ use constant 1.16 { BAR => 3, BAZ => 7 };
 
 Readonly::Scalar my $Foo = 23;
 Readonly::Scalar my $foo = 23;
-Readonly::Scalar my $fooBAR = 23;
+const my $fooBAR = 23;
 
 #-----------------------------------------------------------------------------