| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/ARRAY.pm |
package ARRAY;
use strict;
use Digest::MD5;
use Data::Dumper;
use HASH;
#********************************************************************************
sub merge {
my $self = shift;
my $class = ref($self);
my $diff = shift || [];
my $adr = { map { (bless($_,ref($_))->key(),$_) } @$self };
$diff = { map { (bless($_,ref($_))->key(),$_) } @$diff };
$adr = bless($diff,ref($diff))->merge($adr);
$self = [ values %$adr] ;
# $self = [ map { bless($_,ref($_))->rekey();$_ } @$self ];
bless($self,$class);
}
#********************************************************************************
sub rekey { my $self = shift; map { bless($_,ref($_))->rekey() } @$self }
#********************************************************************************
1;