Login
Consolidated the ProhibitExit policies into a single Policy.
authorJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Sun, 25 Jan 2009 03:05:50 +0000 (03:05 +0000)
committerJeffrey Ryan Thalhammer <jeff@imaginative-software.com>
Sun, 25 Jan 2009 03:05:50 +0000 (03:05 +0000)
And gave it a better name too.

Changes
bin/perlcritic
lib/Perl/Critic/Policy/BuiltinFunctions/ProhibitExitInSubroutines.pm [moved from lib/Perl/Critic/Policy/Subroutines/ProhibitExit.pm with 78% similarity]
t/BuiltinFunctions/ProhibitExitInSubroutines.run [moved from t/Subroutines/ProhibitExit.run with 82% similarity]

diff --git a/Changes b/Changes
index 809746b..8636939 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 [1.xxx_xxx] Released on 2009-xx-xx
 
     New Policies:
 [1.xxx_xxx] Released on 2009-xx-xx
 
     New Policies:
+    * BuiltinFunctions::ProhibitExitInSubroutines
     * ValuesAndExpressions::ProhibitSpecialLiteralHeredocTerminator
 
     Bug Fixes:
     * ValuesAndExpressions::ProhibitSpecialLiteralHeredocTerminator
 
     Bug Fixes:
index eb938b5..e40f268 100755 (executable)
@@ -535,7 +535,7 @@ sub render_theme_listing {
     my @policies = Perl::Critic->new( %pc_params )->policies();
     my $listing = Perl::Critic::ThemeListing->new( -policies => \@policies );
     out $listing;
     my @policies = Perl::Critic->new( %pc_params )->policies();
     my $listing = Perl::Critic::ThemeListing->new( -policies => \@policies );
     out $listing;
-    
+
     exit $EXIT_SUCCESS; ## no critic qw(ProhibitExit)
 }
 
     exit $EXIT_SUCCESS; ## no critic qw(ProhibitExit)
 }
 
@@ -550,7 +550,7 @@ sub render_profile_prototype {
     my @policies = Perl::Critic->new( %pc_params )->policies();
     my $prototype = Perl::Critic::ProfilePrototype->new( -policies => \@policies );
     out $prototype;
     my @policies = Perl::Critic->new( %pc_params )->policies();
     my $prototype = Perl::Critic::ProfilePrototype->new( -policies => \@policies );
     out $prototype;
-    
+
     exit $EXIT_SUCCESS; ## no critic qw(ProhibitExit)
 }
 
     exit $EXIT_SUCCESS; ## no critic qw(ProhibitExit)
 }
 
@@ -1,11 +1,11 @@
 ##############################################################################
 ##############################################################################
-#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/lib/Perl/Critic/Policy/Modules/ProhibitMultiplePackages.pm $
-#     $Date: 2009-01-18 15:32:26 -0800 (Sun, 18 Jan 2009) $
-#   $Author: clonezone $
-# $Revision: 3007 $
+#      $URL$
+#     $Date$
+#   $Author$
+# $Revision$
 ##############################################################################
 
 ##############################################################################
 
-package Perl::Critic::Policy::Subroutines::ProhibitExit;
+package Perl::Critic::Policy::BuiltinFunctions::ProhibitExitInSubroutines;
 
 use 5.006001;
 use strict;
 
 use 5.006001;
 use strict;
@@ -26,10 +26,10 @@ Readonly::Scalar my $EXPL   => q{Use "die" or "croak" instead};
 
 #-----------------------------------------------------------------------------
 
 
 #-----------------------------------------------------------------------------
 
-sub supported_parameters { return ()                 }
-sub default_severity     { return $SEVERITY_MEDIUM   }
-sub default_themes       { return qw( core)          }
-sub applies_to           { return 'PPI::Token::Word' }
+sub supported_parameters { return ()                   }
+sub default_severity     { return $SEVERITY_MEDIUM     }
+sub default_themes       { return qw(core maintenance) }
+sub applies_to           { return 'PPI::Token::Word'   }
 
 #-----------------------------------------------------------------------------
 
 
 #-----------------------------------------------------------------------------
 
@@ -60,7 +60,7 @@ __END__
 
 =head1 NAME
 
 
 =head1 NAME
 
-Perl::Critic::Policy::Subroutines::ProhibitExit - Don't use exit() to throw exceptions from subroutines.
+Perl::Critic::Policy::BuiltinFunctions::ProhibitExitInSubroutines - Don't use exit() to throw exceptions from subroutines.
 
 
 =head1 AFFILIATION
 
 
 =head1 AFFILIATION
@@ -71,7 +71,6 @@ distribution.
 
 =head1 DESCRIPTION
 
 
 =head1 DESCRIPTION
 
-This Policy is a more extreme form of <Perl::Critic::Policy::Modules::ProhibitExit>,
 A common newbie mistake is to use the C<exit> function when they encounter some
 kind error condition in their subroutines.  But there is no way to trap an C<exit> call
 to possibly recover from the error, which makes it difficult for others to use your
 A common newbie mistake is to use the C<exit> function when they encounter some
 kind error condition in their subroutines.  But there is no way to trap an C<exit> call
 to possibly recover from the error, which makes it difficult for others to use your
@@ -88,9 +87,7 @@ for this Policy.
 
 =head1 SEE ALSO
 
 
 =head1 SEE ALSO
 
-L<Perl::Critic::Policy::Modules::ProhibitExit>
-
-L<Perl::Critic::Policy::ErrorHandling::RequireCarping>
+L<Perl::Critic::Policy::ErrorHandling::RequireCarping|Perl::Critic::Policy::ErrorHandling::RequireCarping>
 
 
 =head1 CONFIGURATION
 
 
 =head1 CONFIGURATION
similarity index 82%
rename from t/Subroutines/ProhibitExit.run
rename to t/BuiltinFunctions/ProhibitExitInSubroutines.run
index 8b5f8d2..7e3998e 100644 (file)
@@ -1,8 +1,8 @@
 ##############################################################################
 ##############################################################################
-#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/lib/Perl/Critic/TestUtils.pm $
-#     $Date: 2009-01-18 15:32:26 -0800 (Sun, 18 Jan 2009) $
-#   $Author: clonezone $
-# $Revision: 3007 $
+#      $URL$
+#     $Date$
+#   $Author$
+# $Revision$
 ##############################################################################
 
 ## name basic pass, outside of subroutine
 ##############################################################################
 
 ## name basic pass, outside of subroutine