distribution Hash-Case-1.002.tar.gz

Hash-Case-1.001/ChangeLog → Hash-Case-1.002/ChangeLog

@@ -1,4 +1,16 @@
 
+version 1.002: Fri Aug  2 16:48:23 CEST 2002
+
+	- Changed my e-mail address to mark@overmeer.net
+
+	- Added Hash::Case::init() as dummy.
+
+	- Some configuration problems fixed.
+
+	- An array passed as initializer for the hash was cleaned in
+	  the process, which is not nice, of course.
+	  Reported by [Jenda Krynicky]
+
 version 1.001: Sat Jun 15 13:29:55 CEST 2002
 
 	This code is fully tested, and too simple to be true, so I release

Hash-Case-1.001/Hash/Case.pm → Hash-Case-1.002/Hash/Case.pm

@@ -7,7 +7,7 @@ use Tie::Hash;
 use strict;
 use Carp;
 
-our $VERSION = 1.001;
+our $VERSION = 1.002;
 
 =head1 NAME
 
@@ -91,7 +91,10 @@ sub TIEHASH(@)
     my $self  = (bless {}, $class)->init( \%opts );
 
     if(!defined $to)          { ;}
-    elsif(ref $to eq 'ARRAY') { $self->STORE(splice @$to, 0, 2) while @$to }
+    elsif(ref $to eq 'ARRAY')
+    {   my @store = @$to;
+        $self->STORE(shift @store, shift @store) while @store;
+    }
     elsif(ref $to eq 'HASH')
     {   while(my ($k, $v) = each %$to)
         {   $self->STORE($k, $v);
@@ -102,6 +105,8 @@ sub TIEHASH(@)
     $self;
 }
 
+sub init($) {shift}
+
 #-------------------------------------------
 
 =head1 SEE ALSO
@@ -112,13 +117,13 @@ L<Hash::Case::Preserve>
 
 =head1 AUTHOR
 
-Mark Overmeer (F<mailbox@overmeer.net>).
+Mark Overmeer (F<mark@overmeer.net>).
 All rights reserved.  This program is free software; you can redistribute
 it and/or modify it under the same terms as Perl itself.
 
 =head1 VERSION
 
-This code is beta, version 1.001
+This code is beta, version 1.002
 
 Copyright (c) 2002 Mark Overmeer. All rights reserved.
 This program is free software; you can redistribute it and/or modify

Hash-Case-1.001/Hash/Case/Lower.pm → Hash-Case-1.002/Hash/Case/Lower.pm

@@ -2,7 +2,7 @@
 package Hash::Case::Lower;
 use base 'Hash::Case';
 
-$VERSION = 1.001;
+$VERSION = 1.002;
 
 use strict;
 use Carp;
@@ -49,6 +49,8 @@ ref-hash.  Currently, there are no OPTIONS defined.
 sub init($)
 {   my ($self, $args) = @_;
 
+    $self->SUPER::init($args);
+
     croak "No options defined for ".__PACKAGE__
         if keys %$args;
 
@@ -74,13 +76,13 @@ L<Hash::Case::Preserve>
 
 =head1 AUTHOR
 
-Mark Overmeer (F<mailbox@overmeer.net>).
+Mark Overmeer (F<mark@overmeer.net>).
 All rights reserved.  This program is free software; you can redistribute
 it and/or modify it under the same terms as Perl itself.
 
 =head1 VERSION
 
-This code is beta, version 1.001
+This code is beta, version 1.002
 
 Copyright (c) 2002 Mark Overmeer. All rights reserved.
 This program is free software; you can redistribute it and/or modify

Hash-Case-1.001/Hash/Case/Preserve.pm → Hash-Case-1.002/Hash/Case/Preserve.pm

@@ -3,7 +3,7 @@
 package Hash::Case::Preserve;
 use base 'Hash::Case';
 
-$VERSION = 1.001;
+$VERSION = 1.002;
 
 use strict;
 use Carp;
@@ -63,6 +63,8 @@ Defaults to LAST, which is slightly faster.
 sub init($)
 {   my ($self, $args) = @_;
 
+    $self->SUPER::init($args);
+
     my $keep = $args->{keep} || 'LAST';
     if($keep eq 'LAST')     { $self->{HCP_update} = 1 }
     elsif($keep eq 'FIRST') { $self->{HCP_update} = 0 }
@@ -132,13 +134,13 @@ L<Hash::Case::Upper>
 
 =head1 AUTHOR
 
-Mark Overmeer (F<mailbox@overmeer.net>).
+Mark Overmeer (F<mark@overmeer.net>).
 All rights reserved.  This program is free software; you can redistribute
 it and/or modify it under the same terms as Perl itself.
 
 =head1 VERSION
 
-This code is beta, version 1.001
+This code is beta, version 1.002
 
 Copyright (c) 2002 Mark Overmeer. All rights reserved.
 This program is free software; you can redistribute it and/or modify

Hash-Case-1.001/Hash/Case/Upper.pm → Hash-Case-1.002/Hash/Case/Upper.pm

@@ -2,7 +2,7 @@
 package Hash::Case::Upper;
 use base 'Hash::Case';
 
-$VERSION = 1.001;
+$VERSION = 1.002;
 
 use Carp;
 use strict;
@@ -49,6 +49,8 @@ ref-hash.  Currently, there are no OPTIONS defined.
 sub init($)
 {   my ($self, $args) = @_;
 
+    $self->SUPER::init($args);
+
     croak "No options defined for ".__PACKAGE__
         if keys %$args;
 
@@ -74,13 +76,13 @@ L<Hash::Case::Preserve>
 
 =head1 AUTHOR
 
-Mark Overmeer (F<mailbox@overmeer.net>).
+Mark Overmeer (F<mark@overmeer.net>).
 All rights reserved.  This program is free software; you can redistribute
 it and/or modify it under the same terms as Perl itself.
 
 =head1 VERSION
 
-This code is beta, version 1.001
+This code is beta, version 1.002
 
 Copyright (c) 2002 Mark Overmeer. All rights reserved.
 This program is free software; you can redistribute it and/or modify

Hash-Case-1.002/Hash/Makefile.PL

@@ -0,0 +1,6 @@
+use ExtUtils::MakeMaker;
+
+WriteMakefile
+   ( NAME      => 'Hash::Case'
+   , PMLIBDIRS => [ qw/Case/ ]
+   );

Hash-Case-1.001/MANIFEST → Hash-Case-1.002/MANIFEST

@@ -3,6 +3,7 @@ Hash/Case.pm
 Hash/Case/Lower.pm
 Hash/Case/Upper.pm
 Hash/Case/Preserve.pm
+Hash/Makefile.PL
 Makefile.PL
 t/10lower.t
 t/20upper.t

Hash-Case-1.001/Makefile.PL → Hash-Case-1.002/Makefile.PL

@@ -5,8 +5,8 @@ use ExtUtils::MakeMaker;
 WriteMakefile
   ( NAME	 => 'Hash::Case'
   , VERSION_FROM => 'Hash/Case.pm'
-# , DIR          => [ 'Hash' ]
-  , PMLIBDIRS    => [ 'Hash', 'Hash/Case' ]
+  , DIR          => [ 'Hash' ]
+# , PMLIBDIRS    => [ 'Hash/Case' ]
   , AUTHOR       => 'Mark Overmeer'
   , ABSTRACT     => 'Play trics with hash keys'
   );