remove Package-Constants from core perl distribution
authorRicardo Signes <rjbs@cpan.org>
Tue, 27 May 2014 12:43:36 +0000 (08:43 -0400)
committerRicardo Signes <rjbs@cpan.org>
Tue, 27 May 2014 12:43:42 +0000 (08:43 -0400)
MANIFEST
Makefile.SH
Porting/Maintainers.pl
cpan/Package-Constants/lib/Package/Constants.pm [deleted file]
cpan/Package-Constants/t/01_list.t [deleted file]
lib/.gitignore
win32/Makefile
win32/makefile.mk

index 90406d2..75f137b 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -1580,8 +1580,6 @@ cpan/NEXT/t/dynamically_scoped_regex_vars.t       NEXT
 cpan/NEXT/t/next.t             NEXT
 cpan/NEXT/t/stringify.t                NEXT
 cpan/NEXT/t/unseen.t           NEXT
-cpan/Package-Constants/lib/Package/Constants.pm        Package::Constants
-cpan/Package-Constants/t/01_list.t             Package::Constants tests
 cpan/Params-Check/lib/Params/Check.pm  Params::Check
 cpan/Params-Check/t/01_Params-Check.t  Params::Check tests
 cpan/parent/lib/parent.pm                      Establish an ISA relationship with base classes at compile time
index 9a30f6a..897f949 100755 (executable)
@@ -1324,18 +1324,18 @@ _cleaner2:
        -rmdir lib/TAP/Formatter lib/TAP lib/Sys/Syslog lib/Sys lib/Search
        -rmdir lib/Scalar lib/Pod/Text lib/Pod/Simple lib/Pod/Perldoc
        -rmdir lib/PerlIO/via lib/PerlIO lib/Perl lib/Parse/CPAN lib/Parse
-       -rmdir lib/Params lib/Package lib/Net/FTP lib/Module/Load
-       -rmdir lib/Module/CoreList lib/Module lib/Memoize lib/Math/BigInt
-       -rmdir lib/Math/BigFloat lib/Math lib/MIME lib/Locale/Maketext
-       -rmdir lib/Locale/Codes lib/Locale lib/List/Util lib/List lib/JSON/PP
-       -rmdir lib/JSON lib/IPC lib/IO/Uncompress/Adapter lib/IO/Uncompress
-       -rmdir lib/IO/Socket lib/IO/Compress/Zlib lib/IO/Compress/Zip
-       -rmdir lib/IO/Compress/Gzip lib/IO/Compress/Base
-       -rmdir lib/IO/Compress/Adapter lib/IO/Compress lib/IO
-       -rmdir lib/I18N/LangTags lib/I18N lib/Hash/Util lib/Hash lib/HTTP
-       -rmdir lib/Filter/Util lib/Filter lib/File/Spec lib/ExtUtils/Typemaps
-       -rmdir lib/ExtUtils/ParseXS lib/ExtUtils/MakeMaker
-       -rmdir lib/ExtUtils/Liblist lib/ExtUtils/Constant lib/ExtUtils/Command
+       -rmdir lib/Params lib/Net/FTP lib/Module/Load lib/Module/CoreList
+       -rmdir lib/Module lib/Memoize lib/Math/BigInt lib/Math/BigFloat
+       -rmdir lib/Math lib/MIME lib/Locale/Maketext lib/Locale/Codes
+       -rmdir lib/Locale lib/List/Util lib/List lib/JSON/PP lib/JSON lib/IPC
+       -rmdir lib/IO/Uncompress/Adapter lib/IO/Uncompress lib/IO/Socket
+       -rmdir lib/IO/Compress/Zlib lib/IO/Compress/Zip lib/IO/Compress/Gzip
+       -rmdir lib/IO/Compress/Base lib/IO/Compress/Adapter lib/IO/Compress
+       -rmdir lib/IO lib/I18N/LangTags lib/I18N lib/Hash/Util lib/Hash
+       -rmdir lib/HTTP lib/Filter/Util lib/Filter lib/File/Spec
+       -rmdir lib/ExtUtils/Typemaps lib/ExtUtils/ParseXS
+       -rmdir lib/ExtUtils/MakeMaker lib/ExtUtils/Liblist
+       -rmdir lib/ExtUtils/Constant lib/ExtUtils/Command
        -rmdir lib/ExtUtils/CBuilder/Platform/Windows
        -rmdir lib/ExtUtils/CBuilder/Platform lib/ExtUtils/CBuilder
        -rmdir lib/Exporter lib/Encode/Unicode lib/Encode/MIME/Header
index 90ef5b9..1e79a86 100755 (executable)
@@ -838,12 +838,6 @@ use File::Glob qw(:case);
         'EXCLUDED'     => [qr{^demo/}],
     },
 
-    'Package::Constants' => {
-        'DISTRIBUTION' => 'BINGOS/Package-Constants-0.04.tar.gz',
-        'FILES'        => q[cpan/Package-Constants],
-        'DEPRECATED'   => '5.019006',
-    },
-
     'Params::Check' => {
         'DISTRIBUTION' => 'BINGOS/Params-Check-0.38.tar.gz',
         'FILES'        => q[cpan/Params-Check],
diff --git a/cpan/Package-Constants/lib/Package/Constants.pm b/cpan/Package-Constants/lib/Package/Constants.pm
deleted file mode 100644 (file)
index 0ecdcf7..0000000
+++ /dev/null
@@ -1,108 +0,0 @@
-package Package::Constants;
-
-use if $] >= 5.019006, 'deprecate';
-
-use strict;
-use vars qw[$VERSION $DEBUG];
-
-$VERSION    = '0.04';
-$DEBUG      = 0;
-
-=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' );
-
-    ### enable debugging output
-    $Package::Constants::DEBUG = 1;
-
-=head1 DESCRIPTION
-
-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
-
-=head2 @const = Package::Constants->list( PACKAGE_NAME );
-
-Lists the names of all the constants defined in the provided package.
-
-=cut
-
-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);
-
-            _debug( "       '$name' is a constant" );
-            push @rv, $name;
-        }
-    }
-
-    return sort @rv;
-}
-
-=head1 GLOBAL VARIABLES
-
-=head2 $Package::Constants::DEBUG
-
-When set to true, prints out debug information to STDERR about the
-package it is inspecting. Helps to identify issues when the results
-are not as you expect.
-
-Defaults to false.
-
-=cut
-
-sub _debug { warn "@_\n" if $DEBUG; }
-
-1;
-
-=head1 BUG REPORTS
-
-Please report bugs or other issues to E<lt>bug-package-constants@rt.cpan.org<gt>.
-
-=head1 AUTHOR
-
-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
-under the same terms as Perl itself.
-
-=cut
-
-# Local variables:
-# c-indentation-style: bsd
-# c-basic-offset: 4
-# indent-tabs-mode: nil
-# End:
-# vim: expandtab shiftwidth=4:
diff --git a/cpan/Package-Constants/t/01_list.t b/cpan/Package-Constants/t/01_list.t
deleted file mode 100644 (file)
index 80f51fe..0000000
+++ /dev/null
@@ -1,52 +0,0 @@
-use strict;
-use Test::More 'no_plan';
-
-BEGIN { chdir 't' if -d 't' };
-use lib '../lib';
-
-my $Class   = 'Package::Constants';
-my $Func    = 'list';
-my $Pkg     = '_test';
-my @Good    = 'A'..'C';
-my @Bad     = 'D'..'E';
-
-use_ok( $Class );
-can_ok( $Class, $Func );
-
-### enable debug statements?
-$Package::Constants::DEBUG = $Package::Constants::DEBUG = @ARGV ? 1 : 0;
-
-
-### small test class 
-{   package _test;
-
-    ### mark us as loaded
-    $INC{'_test.pm'} = $0;
-    
-    use vars qw[$FOO];
-    $FOO = 1;
-    
-    ### define various subs.. the first 3 are constants, 
-    ### the others are not
-    use constant A => 1;
-    use constant B => sub { 1 };
-    sub C ()        { 1 };
-    
-    sub D           { 1 };
-    sub E (*)       { 1 };
-
-}    
-
-### get the list
-{   my @list = $Class->$Func( $Pkg );
-    ok( scalar(@list),          "Got a list of constants" );
-    is_deeply( \@list, \@Good,  "   Contains all expected entries" );
-}    
-
-
-# Local variables:
-# c-indentation-style: bsd
-# c-basic-offset: 4
-# indent-tabs-mode: nil
-# End:
-# vim: expandtab shiftwidth=4:
index e811dbd..8d281ca 100644 (file)
 /Opcode.pm
 /POSIX.pm
 /POSIX.pod
-/Package/
 /Params/
 /Parse/
 /Perl/
index 06cef7d..d5bcb7b 100644 (file)
@@ -1262,7 +1262,6 @@ distclean: realclean
        -if exist $(LIBDIR)\MIME rmdir /s /q $(LIBDIR)\MIME
        -if exist $(LIBDIR)\Module rmdir /s /q $(LIBDIR)\Module
        -if exist $(LIBDIR)\Net\FTP rmdir /s /q $(LIBDIR)\Net\FTP
-       -if exist $(LIBDIR)\Package rmdir /s /q $(LIBDIR)\Package
        -if exist $(LIBDIR)\Params rmdir /s /q $(LIBDIR)\Params
        -if exist $(LIBDIR)\Parse rmdir /s /q $(LIBDIR)\Parse
        -if exist $(LIBDIR)\Perl rmdir /s /q $(LIBDIR)\Perl
index 7bd8b82..acf6e8f 100644 (file)
@@ -1460,7 +1460,6 @@ distclean: realclean
        -if exist $(LIBDIR)\MIME rmdir /s /q $(LIBDIR)\MIME
        -if exist $(LIBDIR)\Module rmdir /s /q $(LIBDIR)\Module
        -if exist $(LIBDIR)\Net\FTP rmdir /s /q $(LIBDIR)\Net\FTP
-       -if exist $(LIBDIR)\Package rmdir /s /q $(LIBDIR)\Package
        -if exist $(LIBDIR)\Params rmdir /s /q $(LIBDIR)\Params
        -if exist $(LIBDIR)\Parse rmdir /s /q $(LIBDIR)\Parse
        -if exist $(LIBDIR)\Perl rmdir /s /q $(LIBDIR)\Perl