Re: [PATCH] Tweaks so that miniperl.exe doesnt croak while building perl.exe

[perl5.git] / ext / re / lib / re / Tie / Hash / NamedCapture.pm

diff --git a/ext/re/lib/re/Tie/Hash/NamedCapture.pm b/ext/re/lib/re/Tie/Hash/NamedCapture.pm
deleted file mode 100644 (file)
index 75bf1aa..0000000
--- a/ext/re/lib/re/Tie/Hash/NamedCapture.pm
+++ /dev/null
@@ -1,124 +0,0 @@
-package re::Tie::Hash::NamedCapture;
-
-use strict;
-use warnings;
-
-our $VERSION = "0.02";
-
-no re 'debug';
-use re qw(is_regexp
-          regname
-          regnames
-          regnames_count
-          regnames_iterinit
-          regnames_iternext);
-
-sub TIEHASH {
-    my $classname = shift;
-    my $hash = {@_};
-
-    if ($hash->{re} && !is_regexp($hash->{re})) {
-        die "'re' parameter to ",__PACKAGE__,"->TIEHASH must be a qr//"
-    }
-
-    return bless $hash, $classname;
-}
-
-sub FETCH {
-    return regname($_[1],$_[0]->{re},$_[0]->{all});
-}
-
-sub STORE {
-    require Carp;
-    Carp::croak("STORE forbidden: hashes tied to ",__PACKAGE__," are read-only.");
-}
-
-sub FIRSTKEY {
-    regnames_iterinit($_[0]->{re});
-    return $_[0]->NEXTKEY;
-}
-
-sub NEXTKEY {
-    return regnames_iternext($_[0]->{re},$_[0]->{all});
-}
-
-sub EXISTS {
-    return defined regname( $_[1], $_[0]->{re},$_[0]->{all});
-}
-
-sub DELETE {
-    require Carp;
-    Carp::croak("DELETE forbidden: hashes tied to ",__PACKAGE__," are read-only");
-}
-
-sub CLEAR {
-    require Carp;
-    Carp::croak("CLEAR forbidden: hashes tied to ",__PACKAGE__," are read-only");
-}
-
-sub SCALAR {
-    return scalar regnames($_[0]->{re},$_[0]->{all});
-}
-
-1;
-
-__END__
-
-=head1 NAME
-
-re::Tie::Hash::NamedCapture - Named regexp capture buffers
-
-=head1 SYNOPSIS
-
-    tie my %hash, "re::Tie::Hash::NamedCapture";
-    # %hash now behaves like %+
-
-    tie my %hash, "re::Tie::Hash::NamedCapture", re => $qr, all => 1;
-    # %hash now access buffers from regexp in $qr like %-
-
-=head1 DESCRIPTION
-
-This module is used to implement the special hashes C<%+> and C<%->, but it
-can be used independently.
-
-When the C<re> parameter is set to a C<qr//> expression, then the tied
-hash is bound to that particular regexp and will return the results of its
-last successful match. If the parameter is omitted, then the hash behaves
-just as C<$1> does by referencing the last successful match in the
-currently active dynamic scope.
-
-When the C<all> parameter is provided, then the tied hash elements will be
-array refs listing the contents of each capture buffer whose name is the
-same as the associated hash key. If none of these buffers were involved in
-the match, the contents of that array ref will be as many C<undef> values
-as there are capture buffers with that name. In other words, the tied hash
-will behave as C<%->.
-
-When the C<all> parameter is omitted or false, then the tied hash elements
-will be the contents of the leftmost defined buffer with the name of the
-associated hash key. In other words, the tied hash will behave as
-C<%+>.
-
-The keys of C<%->-like hashes correspond to all buffer names found in the
-regular expression; the keys of C<%+>-like hashes list only the names of
-buffers that have captured (and that are thus associated to defined values).
-
-For instance:
-
-    my $qr = qr/(?<foo>bar)/;
-    if ( 'bar' =~ $qr ) {
-        tie my %hash, "re::Tie::Hash::NamedCapture", re => $qr;
-        print $+{foo};    # prints "bar"
-        print $hash{foo}; # prints "bar" too
-        if ( 'bar' =~ /bar/ ) {
-            # last successful match is now different
-            print $+{foo};    # prints nothing (undef)
-            print $hash{foo}; # still prints "bar"
-        }
-    }
-
-=head1 SEE ALSO
-
-L<re>, L<perlmodlib/Pragmatic Modules>, L<perlvar/"%+">, L<perlvar/"%-">.
-
-=cut