Login
There were POD errors in the release that I just made,
authorJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Tue, 2 Sep 2008 16:25:20 +0000 (16:25 +0000)
committerJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Tue, 2 Sep 2008 16:25:20 +0000 (16:25 +0000)
so I'm backing out Schwern's new policy again so I can
make another release.

lib/Perl/Critic/Policy/NamingConventions/Capitalization.pm [deleted file]
t/NamingConventions/Capitalization.run [deleted file]

diff --git a/lib/Perl/Critic/Policy/NamingConventions/Capitalization.pm b/lib/Perl/Critic/Policy/NamingConventions/Capitalization.pm
deleted file mode 100644 (file)
index cb74332..0000000
+++ /dev/null
@@ -1,171 +0,0 @@
-##############################################################################
-#      $URL$
-#     $Date$
-#   $Author$
-# $Revision$
-##############################################################################
-
-package Perl::Critic::Policy::NamingConventions::Capitalization;
-
-use 5.006001;
-use strict;
-use warnings;
-
-use Readonly;
-
-use Perl::Critic::Utils qw{ :severities };
-
-use base 'Perl::Critic::Policy';
-
-our $VERSION = '1.091';
-
-#-----------------------------------------------------------------------------
-
-Readonly::Scalar my $LOWER_RX       => qr/ [[:lower:]] /xms;
-Readonly::Scalar my $UPPER_RX       => qr/ [[:upper:]] /xms;
-Readonly::Scalar my $PACKAGE_RX     => qr/ :: /xms;
-Readonly::Scalar my $DESC           => 'Capitalization';
-Readonly::Scalar my $EXPL           => [ 45 ];
-
-#-----------------------------------------------------------------------------
-
-sub supported_parameters { return ()                            }
-sub default_severity     { return $SEVERITY_LOWEST              }
-sub default_themes       { return qw( core pbp cosmetic )       }
-
-sub applies_to {
-    return 'PPI::Statement::Variable',
-           'PPI::Statement::Package',
-           'PPI::Statement::Sub';
-}
-
-#-----------------------------------------------------------------------------
-
-sub violates {
-    my ( $self, $elem, undef ) = @_;
-
-    my $violates
-      = $elem->isa("PPI::Statement::Variable") ? _variable_capitalization($elem)
-      : $elem->isa("PPI::Statement::Package")  ? _package_capitalization($elem)
-      : $elem->isa("PPI::Statement::Sub")      ? _sub_capitalization($elem)
-      :                                          die "Should never reach this point"
-      ;
-
-    return $self->violation( $DESC, $EXPL, $elem ) if $violates;
-    return;
-}
-
-sub _variable_capitalization {
-    my $elem = shift;
-
-    for my $name ( $elem->variables() ) {
-        # Fully qualified names are exempt because we can't be responsible for
-        # other people's sybols.
-        next if $elem->type() eq 'local' && $name =~ m/$PACKAGE_RX/xms;
-
-        # Allow CONSTANTS
-        next if $name !~ $LOWER_RX;
-
-        # Words in variable names cannot be capitalized unless
-        # camelCase is in use
-        return 1 if $name =~ m{ [^[:alpha:]] $UPPER_RX }xmso;
-    }
-
-    return;
-}
-
-sub _package_capitalization {
-    my $elem = shift;
-    my @names = split /::/, $elem->namespace;
-
-    for my $name (@names) {
-        # Each word should be capitalized.
-        return 1 unless $name =~ m{ ^ $UPPER_RX }xmso;
-    }
-
-    return;
-}
-
-sub _sub_capitalization {
-    my $elem = shift;
-    my $name = $elem->name;
-
-    # Words in subroutine names cannot be capitalized
-    # unless camelCase is in use.
-    return 1 if $name =~ m{
-                              (?: ^ | [^[:alpha:]] )
-                              $UPPER_RX
-                          }xmso;
-    return;
-}
-
-1;
-
-__END__
-
-#-----------------------------------------------------------------------------
-
-=head1 NAME
-
-Perl::Critic::Policy::NamingConventions::Capitalization - Distinguish different program components by case.
-
-
-=head1 AFFILIATION
-
-This Policy is part of the core L<Perl::Critic|Perl::Critic> distribution.
-
-=head1 DESCRIPTION
-
-Conway recommends to distinguish different program components by case.
-
-Normal subroutines, methods and variables are all in lower case.
-
-    my $foo;            # ok
-    my $foo_bar;        # ok
-    sub foo {}          # ok
-    sub foo_bar {}      # ok
-
-    my $Foo;            # not ok
-    my $foo_Bar;        # not ok
-    sub Foo     {}      # not ok
-    sub foo_Bar {}      # not ok
-
-Package and class names are capitalized.
-
-    package IO::Thing;     # ok
-    package Web::FooBar    # ok
-
-    package foo;           # not ok
-    package foo::Bar;      # not ok
-
-Constants are in all-caps.
-
-    Readonly::Scalar my $FOO = 42;  # ok
-
-    Readonly::Scalar my $foo = 42;  # not ok
-
-=head1 CONFIGURATION
-
-This Policy is not configurable except for the standard options.
-
-
-=head1 BUGS
-
-The policy cannot currently tell that a variable is being declared as
-a constant, thus any variable may be made all-caps.
-
-
-=head1 SEE ALSO
-
-To control use of camelCase see L<Perl::Critic::Policy::NamingConventions::ProhibitMixedCaseSubs|Perl::Critic::Policy::NamingConventions::ProhibitMixedCaseSubs> and L<Perl::Critic::Policy::NamingConventions::ProhibitMixedCaseVars|Perl::Critic::Policy::NamingConventions::ProhibitMixedCaseVars>.
-
-=cut
-
-# 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 :
diff --git a/t/NamingConventions/Capitalization.run b/t/NamingConventions/Capitalization.run
deleted file mode 100644 (file)
index 8aa3486..0000000
+++ /dev/null
@@ -1,110 +0,0 @@
-## name Basic Passes
-## failures 0
-## cut
-
-my  $foo;
-our $bar;
-my($foo, $bar) = ("BLEH", "BLEH");
-my @foo;
-my %bar;
-sub foo {}
-
-my  $foo123;
-my  $foo123bar;
-sub foo123 {}
-sub foo123bar {}
-
-my $fooBar;   # camelCase is ok
-my $fooBAR;
-sub fooBar {}
-sub fooBAR {}
-
-my  $CONSTANT;
-
-package This::SomeThing;
-package This;
-package This::Thing;
-package Acme::12345;
-package YYZ;
-
-#-----------------------------------------------------------------------------
-
-## name Basic Failures
-## failures 14
-## cut
-
-my  $Foo;
-our $Bar;
-my  @Foo;
-my  %Bar;
-sub Foo {}
-
-my  $foo_Bar;
-sub foo_Bar {}
-
-my  $FooBar;
-sub FooBar {}
-
-my  $foo123Bar;
-sub foo123Bar {}
-
-package pragma;
-package Foo::baz;
-package baz::FooBar;
-
-#-----------------------------------------------------------------------------
-
-## name Combined passes and fails
-## failures 2
-## cut
-
-my($foo, $Bar);
-our($Bar, $foo);
-
-#-----------------------------------------------------------------------------
-
-## name Variables from other packages should pass 
-## failures 0
-## cut
-
-local $Other::Package::Foo;
-$Other::Package::Foo;
-
-#-----------------------------------------------------------------------------
-
-## name Only cares about declarations
-## failures 0
-## cut
-Foo();
-$Foo = 42;
-
-#-----------------------------------------------------------------------------
-
-## name Constants must be all caps, passes
-## failures 0
-## cut
-
-Readonly::Scalar my $CONSTANT = 23;
-
-#-----------------------------------------------------------------------------
-
-## name Constants must be all caps, failures
-## TODO Detect whether a scalar is constant or not
-## failures 4
-## cut
-
-Readonly::Scalar my $Foo = 23;
-Readonly::Scalar my $foo = 23;
-Readonly::Scalar my $fooBAR = 23;
-my $CONSTANT = 23;
-
-
-#-----------------------------------------------------------------------------
-# 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 :