restructure file locations

[perl/plp/.git] / PLP / Tie / Headers.pm

diff --git a/PLP/Tie/Headers.pm b/PLP/Tie/Headers.pm
deleted file mode 100644 (file)
index e5f79a8..0000000
--- a/PLP/Tie/Headers.pm
+++ /dev/null
@@ -1,78 +0,0 @@
-#----------------------------#
-  package PLP::Tie::Headers;
-#----------------------------#
-use strict;
-use Carp;
-
-=head1 PLP::Tie::Headers
-
-Makes a hash case insensitive, and sets some headers. <_> equals <->, so C<$foo{CONTENT_TYPE}> is
-the same as C<$foo{'Content-Type'}>.
-
-    tie %somehash, 'PLP::Tie::Headers';
-
-=cut
-
-sub _lc($) {
-    local $_ = $_[0];
-    tr/_/-/;
-    return lc;
-}
-
-sub TIEHASH {
-    return bless [ # Defaults.
-        {
-           'Content-Type'  => 'text/html',
-           'X-PLP-Version' => $PLP::VERSION,
-       },
-       {
-           'content-type'  => 'Content-Type',
-           'x-plp-version' => 'X-PLP-Version',
-       }
-    ], $_[0];
-}
-
-sub FETCH {
-    my ($self, $key) = @_;
-    return $self->[0]->{ $self->[1]->{_lc $key} };
-}
-
-sub STORE {
-    my ($self, $key, $value) = @_;
-    croak 'Can\'t set headers after sending them!' if $PLP::sentheaders;
-    if (defined $self->[1]->{_lc $key}){
-        $key = $self->[1]->{_lc $key};
-    }else{
-        $self->[1]->{lc $key} = $key;
-    }
-    return ($self->[0]->{$key} = $value);
-}
-
-sub DELETE {
-    my ($self, $key) = @_;
-    delete $self->[0]->{$key};
-    return delete $self->[1]->{_lc $key};
-}
-
-sub CLEAR {
-    my $self = $_[0];
-    return (@$self = ());
-}
-
-sub EXISTS {
-    my ($self, $key) = @_;
-    return exists $self->[1]->{_lc $key};
-}
-
-sub FIRSTKEY {
-    my $self = $_[0];
-    keys %{$self->[0]};
-    return each %{ $self->[0] }; # Key only, Tie::Hash doc is wrong.
-}
-
-sub NEXTKEY {
-    return each %{ $_[0]->[0] };
-}
-
-1;
-