This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Package-Constants to CPAN version 0.04
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 24 Oct 2013 19:42:28 +0000 (20:42 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 24 Oct 2013 20:19:40 +0000 (21:19 +0100)
  [DELTA]

0.04    Thu Oct 24 20:34:00 BST 2013
=================================================
* Update Makefile.PL to add repository et al
* Install into site if >= v5.12.0
* Add use deprecate due to core scheduled removal

Porting/Maintainers.pl
cpan/Package-Constants/lib/Package/Constants.pm

index 4315d5b..32d98f5 100755 (executable)
@@ -852,7 +852,7 @@ use File::Glob qw(:case);
     },
 
     'Package::Constants' => {
-        'DISTRIBUTION' => 'KANE/Package-Constants-0.02.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/Package-Constants-0.04.tar.gz',
         'FILES'        => q[cpan/Package-Constants],
         'DEPRECATED'   => '5.019006',
     },
index 9ad6c62..0ecdcf7 100644 (file)
@@ -1,19 +1,21 @@
 package Package::Constants;
 
+use if $] >= 5.019006, 'deprecate';
+
 use strict;
 use vars qw[$VERSION $DEBUG];
 
-$VERSION    = '0.02';
+$VERSION    = '0.04';
 $DEBUG      = 0;
 
-=head1 NAME 
+=head1 NAME
 
 Package::Constants - List all constants declared in a package
 
 =head1 SYNOPSIS
 
     use Package::Constants;
-    
+
     ### list the names of all constants in a given package;
     @const = Package::Constants->list( __PACKAGE__ );
     @const = Package::Constants->list( 'main' );
@@ -23,8 +25,8 @@ Package::Constants - List all constants declared in a package
 
 =head1 DESCRIPTION
 
-C<Package::Constants> lists all the constants defined in a certain 
-package. This can be useful for, among others, setting up an 
+C<Package::Constants> lists all the constants defined in a certain
+package. This can be useful for, among others, setting up an
 autogenerated C<@EXPORT/@EXPORT_OK> for a Constants.pm file.
 
 =head1 CLASS METHODS
@@ -39,23 +41,23 @@ sub list {
     my $class = shift;
     my $pkg   = shift;
     return unless defined $pkg; # some joker might use '0' as a pkg...
-    
+
     _debug("Inspecting package '$pkg'");
-    
+
     my @rv;
     {   no strict 'refs';
         my $stash = $pkg . '::';
 
         for my $name (sort keys %$stash ) {
-        
+
             _debug( "   Checking stash entry '$name'" );
-            
+
             ### is it a subentry?
             my $sub = $pkg->can( $name );
             next unless defined $sub;
-                
+
             _debug( "       '$name' is a coderef" );
-            
+
             next unless defined prototype($sub) and 
                      not length prototype($sub);
 
@@ -63,7 +65,7 @@ sub list {
             push @rv, $name;
         }
     }
-    
+
     return sort @rv;
 }
 
@@ -93,7 +95,7 @@ This module by Jos Boumans E<lt>kane@cpan.orgE<gt>.
 
 =head1 COPYRIGHT
 
-This library is free software; you may redistribute and/or modify it 
+This library is free software; you may redistribute and/or modify it
 under the same terms as Perl itself.
 
 =cut